Thread: [Solved] Streaming data to cells
View Single Post
 
Old 06-17-2018, 12:39 PM
Logit Logit is offline Windows 10 Office 2007
Expert
 
Join Date: Jan 2017
Posts: 587
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

.
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
Reply With Quote