karma veri aktarımı

[damra2005]

ekli dosyada sayfa1 ve sayfa2'de bulunan bilgilerden I sütundaki Müdür Odası ve Büro gibi bilgiler bulunmaktadır. Sayfa3'te bulunan Müdür Odası ve Büro düğmelerine basıldığında sayfa1 deki bilgileri atmaktadır. Oysa her iki sayfadanda bilgileri sıralamasını istiyorum. bunun için çok uğraştım ama beceremedim. yardımcı olacak üstadlara şimdiden teşekkürler

 

[damra2005]

sevgili üstadlar bu konu çok acil. yardımcı olursanız sevnirim

 

[danersin]

Müdür Odası için yapmasını istediğiniz bumu bir kontrol edermisiniz.


Sub olustur4()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Set s4 = Sheets("sayfa3")
son_s1 = s1.[a65536].End(3).Row
son_s2 = s2.[a65536].End(3).Row

s4.Range("a1:e100").ClearContents
satir = 1

For X = 1 To son_s1
If s1.Cells(X, "I") = "Müdür Odası" Then
satir = satir + 1
If satir > 50 Then Exit Sub
s4.Cells(satir, "A") = satir - 1
s4.Cells(satir, "B") = s1.Cells(X, "B")
s4.Cells(satir, "C") = s1.Cells(X, "C")
s4.Cells(satir, "D") = s1.Cells(X, "G")
s4.Cells(satir, "E") = s1.Cells(X, "H")
End If
Next

For X = 1 To son_s2
If s2.Cells(X, "I") = "Müdür Odası" Then
satir = satir + 1
If satir > 50 Then Exit Sub

s4.Cells(satir, "A") = satir - 1
s4.Cells(satir, "B") = s2.Cells(X, "B")
s4.Cells(satir, "C") = s2.Cells(X, "C")
s4.Cells(satir, "D") = s2.Cells(X, "G")
s4.Cells(satir, "E") = s2.Cells(X, "H")
End If
Next
End Sub

 

[damra2005]

üstadım çok teşekkürler, allah razı olsun