Sayfa2 de ara-bul sayfa1 e yaz

[ugurrrrrr]

Arkadaşlar merhaba,
Ekte göndermiş olduğum dosyada sayfa 1 de ismi bulunan kişileri sayfa 2 de bulup yanındaki alacak kısmını sayfa 1 e aktarmak istiyorum.
Bu listeler çok değişken azalabiliyor artabiliyor kişiler girip çıkabiliyor.
ve bu sayfayı excel bilgisi çok az olan kişiler kullanacak bu yüzden bunu bir kod ve bir buton yardımı ile yapmam lazım .(formül kullanamıyorum)

 

[ugurrrrrr]

Arkadaşlar bir el atsanız VB zayıf olduğu için çözüm bulamıyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet
Dim sat1, sat2 As Integer
Set s1 = Sayfa1
Set s2 = Sayfa2
s1.[d3:d100] = Empty
For sat1 = 2 To s2.Cells(65536, "a").End(xlUp).Row
For sat2 = 3 To s1.Cells(65536, "b").End(xlUp).Row
If s2.Cells(sat1, "a") = s1.Cells(sat2, "b") Then
s1.Cells(sat2, "d") = s2.Cells(sat1, "b")
End If: Next: Next
End Sub

 

[ugurrrrrr]

Sn. N.Ziya Hiçdurmaz
Emeğinize sağlık teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Birşey değil.Sayın ugurrrrrr