Push jump to next row in macro

[cosiek]

Hi,

I am new in the topic of VBA and macro. I have problem with making a loop on the search & replace function.

I have the code:

Sub CommmandButton1Click() 
 
For i = 2 To 36 
 
Worksheets("Arkusz1").Range("J2:J37").Select 
 
Selection.Replace What:="xxx", Replacement:=Cells(i, 2).Value, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False 
 
Selection.Replace What:="---", Replacement:=Cells(i, 3).Value, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False 
 
Selection.Replace What:=";;;", Replacement:=Cells(i, 4).Value, _ 
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False 
 
Next 
 
Worksheets("Arkusz1").Cells(1, 1).Select 
 
End Sub  

It is copying and replacing values from 2nd, 3rd and 4th column and puts in the cell under specific line of characters the values. The problem is that it is copying with the same data for all rows further. How to force jumping to next row?

Can you please help?

Reagrds,
Jakub

[AlphaFrog]

Please Login or Register  to view this content.

[cosiek]

Thank you very much for this reply. It was really helpful!

I have also such questions, maybe you know the answer, as want to improve the quality of work for my wife, who has to send similar mails to multiple individuals:

1. How can I change below to have flexible?

to

2. How can I rerun the mentioned above macro? Let's say my wife forgot to correct the name of individual and need to have the mail template populated once again. Can we somehow have it rerun?

3. How can I add macro, which will copy paste the populated template of text from (J2:till is populated), add mails in section TO in mail message from the same row (F2:till is populated) and add have predefined subject of mail for Outlook application?

Appreciate your help in understanding that.

Regards,
Jakub

[AlphaFrog]

Please Login or Register  to view this content.

I don't understand #2 and#3. Ask them in a NEW thread with more details and attach an example workbook.

[cosiek]

Thank you. Sure, will do.