|
-
Sep 20th, 2013, 09:57 AM
#4
Thread Starter
Junior Member
Re: VBA Scan column is case of blank cell copy the cell to the right in the blank cel
Hello Bryce,
I've tried this on column E and F but it didnt work as there is text in these rows.
When i've added numbers in E and F it did work.
Hmmm Could you help?
Sub fillBlanks()
Dim i As Integer
Dim lastRow As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
lastRow = ws.Range("e" & Rows.Count).End(xlUp).Row
For i = 1 To lastRow
If ws.Range("e" & i).Value = "" Then
ws.Range("e" & i).Value = ws.Range("f" & i).Value
End If
Next i
End Sub
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|