Veri Aktarma

[denese]

Merhaba,

Çalışma sayfasında buton yardımıyla;
A sütununu F sütununa,
B sütununu G sütununa,
C sütununu H sütununa, sadece hücre değerleriyle aktaracak koda ihtiyacım var. Forumdaki örnekleri inceledim ama tüm sütunu olduğu gibi aktaracak bir örnek bulamadım.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Sub aktar59()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("F2:H" & Rows.Count).Clear
Range("A2:C" & sonsat).Copy
Range("F2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[çıtır]

Deneyiniz.

Sub aktar()
son = Cells(35336, "A").End(3).Row
For i = 2 To son
Cells(i, "F") = Cells(i, "A")
Cells(i, "G") = Cells(i, "B")
Cells(i, "H") = Cells(i, "C")
Next i
End Sub

 

[denese]

Sayın Orion1 ve Sayın Çıtır,

Hızlı çözümünüz ve desteğiniz için teşekkür ediyorum.