Veri aktarma

[kapmesli]

Merhabalar; Excel e yeni başlayanlardan biriyim ve hem öğrenme hem ihtiyac bazında bir uygulama yapıyorum. Bu uygulamada veri aktarma fonksiyonu var. 2 Sutunu Visual Basic ile farklı sayfaya aktarabılıyorum fakat 3 sutun yapmak istiyorum ve nedense basaramıyorum. uygulamanın şablonu ektedir. yardımlarınız için teşekkür ederim.

Herkese başarılar dilerim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub aktar()
Dim sekle, sdepo As Worksheet
Dim sat, son As Integer
Set sekle = Sheets("EKLE")
Set sdepo = Sheets("DEPO")
For sat2 = 2 To sdepo.Cells(65536, "a").End(xlUp).Row
If sekle.[a2] = sdepo.Cells(sat2, "a") Then
MsgBox "Bu barkot daha önce aktarılmış", vbInformation
Exit Sub: End If: Next
son = sdepo.Cells(65536, "a").End(xlUp).Row + 1
sekle.Range("a2:c2").Copy _
Range(sdepo.Cells(son, "a"), sdepo.Cells(son, "c"))
End Sub

 

[kapmesli]

Çözüldü

Çok teşekkrü ederim. tam istediğim gibi oldu. allah zihin açıklığı versin.