Greetings and thanks for all the help. One more here for this projects
I have worksheet that has data copied from another and columns updated with a replace function. This works great starting from A2 to the end of rows in A. However I now add data from another sheet to the end of A:900 extending the range of A to A:1800 past the initial replace. The amount of data varies with each upload. Now I need to replace blank cells in H:901 from where we left off with new data to the new end of A:1900. Example of desired results below
This code worked great to replace in column H from A2:
With Range("A2", Range("A" & Rows.Count).End(xlUp))
.Replace What:="", Replacement:="302", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Offset(, 7).Value = "302"
End With
When I paste new data at the end of current A, say A:901 I park the cursor at the next cell in H:901
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(8).Cells
If Len(cell) = 0 Then cell.Select: Exit For
Next cell
How do I replace "" with "123" from the ActiveCell H:993 position to the end of A?
<colgroup><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>
I have worksheet that has data copied from another and columns updated with a replace function. This works great starting from A2 to the end of rows in A. However I now add data from another sheet to the end of A:900 extending the range of A to A:1800 past the initial replace. The amount of data varies with each upload. Now I need to replace blank cells in H:901 from where we left off with new data to the new end of A:1900. Example of desired results below
This code worked great to replace in column H from A2:
With Range("A2", Range("A" & Rows.Count).End(xlUp))
.Replace What:="", Replacement:="302", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
.Offset(, 7).Value = "302"
End With
When I paste new data at the end of current A, say A:901 I park the cursor at the next cell in H:901
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(8).Cells
If Len(cell) = 0 Then cell.Select: Exit For
Next cell
How do I replace "" with "123" from the ActiveCell H:993 position to the end of A?
Row | A | B | C | D | E | F | G | H |
988 | Ted | E | Bear | 302 | ||||
989 | Ted | E | Bear | 302 | ||||
990 | Ted | E | Bear | 302 | ||||
991 | Ted | E | Bear | 302 | ||||
992 | Ted | E | Bear | 302 | ||||
993 | Will | I | Am | 123 | ||||
994 | Will | I | Am | 123 | ||||
995 | Will | I | Am | 123 | ||||
996 | Will | I | Am | 123 | ||||
997 | Will | I | Am | 123 |
<colgroup><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>