Hi All,
Thank for your support for learning for VBA
I have a small problem, I find the text and copy 7 cell in the Active sheet but code not move Next finding. This my code
Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
Range(ActiveCell, ActiveCell.Offset(0, 9)).Copy
<colgroup><col></colgroup><tbody>
</tbody>
Thank for your support for learning for VBA
I have a small problem, I find the text and copy 7 cell in the Active sheet but code not move Next finding. This my code
Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
Range(ActiveCell, ActiveCell.Offset(0, 9)).Copy
Date | ||||
View | ||||
work | ||||
Key Observations Empty cells
<colgroup><col></colgroup><tbody> </tbody> |
<colgroup><col></colgroup><tbody>
</tbody>