Makro ile kopyala yapıştır işlemi hakkında

[misnet]

Sayın hocalarım sorunumu örnek dosyamda açıklamaya çalıştım.Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürlerimi sunarım. Saygılar.

 

[Huseyinkis]

Sayın hocalarım sorunumu örnek dosyamda açıklamaya çalıştım.Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürlerimi sunarım. Saygılar.

ekli kodarı denermisiniz.

Private Sub CommandButton1_Click()
For i = 3 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 10).Value = Cells(i, 10 + 3).Value
Cells(i, 11).Value = Cells(i, 11 + 3).Value
Cells(i, 12).Value = Cells(i, 12 + 3).Value
Cells(i, 13).Value = Cells(i, 13 + 3).Value
Cells(i, 14).Value = Cells(i, 14 + 3).Value
Cells(i, 15).Value = Cells(i, 15 + 3).Value
Cells(i, 16).Value = Cells(i, 16 + 3).Value
Cells(i, 17).Value = Cells(i, 17 + 3).Value
Cells(i, 18).Value = Cells(i, 18 + 3).Value
Cells(i, 19).Value = ""
Cells(i, 20).Value = ""
Cells(i, 21).Value = ""
Cells(i, 22).Value = Cells(i, 12).Value + Cells(i, 15).Value + Cells(i, 18).Value
Next i
End Sub

 

[misnet]

Sayın Huseyinkis yardımınız için çok teşekkürler
istediğim gibi olmuş. Saygılar