Bir sayfadan diğerine otomatik veri aktama

[ahsunay]

Bir sayfadan diğerine otomatik veri aktama...çok acil

 

[N.Ziya Hiçdurmaz]

Yanıt

Sıra no dan bir numara seçip butona basınız

Sub AKTAR1()
Dim S1, S2 As Worksheet
Dim SAT, S As Integer
Set S1 = Sheets("üyelistesi")
Set S2 = Sheets("kişiselsorgu")
S = 4
For SAT = 2 To 25
S1.Cells(Selection.Row, SAT).Copy
S2.Cells(S, "B").PasteSpecial
S = S + 1
Next
End Sub

 

[ahsunay]

teşekkür ederim hocam..çok saolun.emeğinize ve ellerinize sağlık

 

[ahsunay]

sayın hocalarım...belirli bir yere kadar aktarıyor...ben im bütün bilgileri ilgili sayfadaki ilgili yerlere aktarmak için ne yapmalıyım..

 

[N.Ziya Hiçdurmaz]

İlk mesajınızdaki soruya göre kodlama yapıldı