Hi,
Sub CommandButton_Click()
Dim i As Long
For i = 1 To Range("K65000").End(xlUp).Row
If Trim(Range("K" & i).Text) = Empty Then
Range("L" & i).Cut
Range("P" & i).Select
ActiveSheet.Paste
End If
Next I
End Sub
On Saturday, January 10, 2015 at 2:00:54 PM UTC+5:30
Hi
Try below code..
Sub blah()
Dim fRow As Range, lRow As Range, rRange As Range
Dim c As Range
Set fRow = Range("K2")
Set lRow = Range("K" & Rows.Count).End(3)
Debug.Print lRow.Row
Set rRange = Range(fRow.Address & ":" & lRow.Address)
Debug.Print rRange.Address
For Each c In rRange
If IsEmpty(c)
I have a macro I am working on. I have found a way do the find, cut and
paste, but it does not loop, It stops after it does the find, cut and
paste one time.
When there are blanks in K there will be data data sitting in L that needs
to be moved to P. I
KLM NOP123 main streetSEDALIAMO65
