Streaming data to cells

Logit · #8 06-17-2018, 12:39 PM

.
Thats ok.

If you determine how to use this code, it will check for a cell to determine if it is NOT EMPTY. If it is not empty, the code inserts a blank row where the cell was located and moves all other rows down one row.

So, you can change the code from A1 to M12 and hopefully it will work for your needs.

Best wishes !

Code:

Option Explicit

Sub IsEmptyExample1()
Application.ScreenUpdating = False
If IsEmpty(Range("A1")) = False Then
     Rows("1:1").Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Else
   Exit Sub
End If
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Manipulating Data in Cells	Stockturn	Word Tables	1	09-11-2017 04:45 AM
Clear data from unlocked cells	wpryan	Excel Programming	5	02-25-2016 10:51 PM
How to populate cells in Sheet2 with Data Source query using cell data from Sheet1	bobznkazoo	Excel	2	03-27-2014 11:14 AM
data in some cells moving	Sherriann	Excel	1	08-07-2013 06:52 AM
WMP Streaming	frith	Word	2	02-25-2013 01:17 PM