vba code to repeat operation on selected rows

[rossy48]

Hi,

I am just starting to learn vba and need some help on this.

I have written the code below, to copy the txt in colum h to the same row in column J, and then clear the original cell.


Range("j69") = Range("H69").Value
Range("H69").Select
Selection.ClearContents


what i dont know how do is to repeat the loop (probably something very simple), on the next row, and the row after

and to select the rows that i need to do this. eg rows 50:70, miss out rows 71:75, repeat on rows 76:96, miss rows 97:101 and so on. (may not be so simple)

anybody help???

 

[Yahya]

i don't know if i understand you, but try this code

Sub Test()
Dim LR As Long, c As Range
LR = Range("H" & Rows.Count).End(xlUp).Row
For Each c In Range("H69:H" & LR)
    c.Offset(, 2).Value = c.Value
    c.Value = ""
Next c
End Sub

 

[villy]

Yahya it copies all but jumping onto another range...
I made the same as this is but I'm kinda stuck on how to jump on another range..

 

[rossy48]

yes thanks, that worked

I added c.Value = "" & ClearContents to clear the formating of column h, but that didnt work.

how would i do that ?

thanks again, that is very helpful

 

[villy]

yes thanks, that worked

I added c.Value = "" & ClearContents to clear the formating of column h, but that didnt work.

how would i do that ?

thanks again, that is very helpful

From Yahya:

instead of c.value="" you write c.clearcontents or c.clear

 

[rossy48]

thanks again

 

[Yahya]

thanks again

you are welcome