sayfa 2 den sayfa 1'e seçime göre veri ekleme

[mahmutozdemir]

sayfa 2 de 12 ayın verileri var.Sayfa 1 dede bir tablo ve ayların yazılı olduğu bir açılır menü var.Açılır menüden hangi ayı seçersek o ayın verileri tabloya eklenebilirmi.
Şimdiden teşekkürler ...

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
For sat = 1 To Sayfa2.Cells(65536, "a").End(xlUp).Row
    If Sayfa1.[h2] Like Sayfa2.Cells(sat, "a").Value Then
    Sayfa2.Cells(sat, "a").CurrentRegion.Copy Sayfa1.[a3]
    End If
Next
End Sub

 

[mahmutozdemir]

Ziya bey teşekkürler.
Ziya bey sayfa 2 deki veriler karışık olsaydı nasıl yapabirdik.

 

[mahmutozdemir]

Yada başka sayfalarda olsaydı nasıl yaparız.

 

[N.Ziya Hiçdurmaz]

yanıt

Veriler karışık olsaydı bu şekil yapabilirdik.

Sub aktar()
If Sayfa1.[h2] = "" Then
MsgBox "Önce bir veri seçmelisiniz."
Exit Sub
End If
Sayfa2.Activate
Cells.Find(Sayfa1.[h2], , xlValues, xlWhole).Select
Selection.CurrentRegion.Copy Sayfa1.[a3]
Sayfa1.Activate
End Sub