Veri Aktarımı

[airborne]

s.a.

Sayfa1'de bulunan tablodaki çay sütunundaki dolu olan hücreleri karşılarındaki isimler ile birlikte Sayfa2 deki forma aktarım için Sayfa2 de aktar butonunun arkasına nasıl bir aktarma makrosu yazılabilir.

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

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub Açık1_Demli2_Cay()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
    s2.Range("a5:c65536").ClearContents
ss1 = s1.Range("a65536").End(3).Row
ss2 = s2.Range("a65536").End(3).Row
For i = 3 To ss1
If s1.Cells(i, "E") <> "" Then
s2.Cells(ss2 + 1, "B") = s1.Cells(i, "B")
s2.Cells(ss2 + 1, "C") = s1.Cells(i, "E")
s2.Cells(ss2 + 1, "A") = i - 2
ss2 = ss2 + 1
End If
Next
ss3 = s2.Range("a65536").End(3).Row
s2.Cells(ss3 + 1, "B") = "TOPLAM"
s2.Cells(ss3 + 1, "C") = Application.WorksheetFunction.Sum(s2.Range("c3:" & "c" & ss3))
MsgBox "bittim :) "
End Sub

 

[airborne]

s.a.

sayın uzmanamele Sayfa2 deki 1. form tamam ama ikincisinde problem var. formlar arasınadada aktarım yapıyor. iki forma Sayfa1 deki veriler nasıl tam olarak yerleştirilebilir.