Değerli ve Saygıdeğer Hocalarım merhabalar. Birden fazla veriyi sorgulayacak kodlar yazmaya çalışıyorum fakat olmuyor yardımcı olabilirseniz sevinirim.
Aşağıdaki kodlarla M29 hücresine yazdığım isimleri, belirtilen sayfalarda aratıp sayfa1 e getiriyorum. istediğim şeyse M29 hücresine birkaç isim yazsam bu isimlere uygun olan verileri getirse, her getirdiği isimden sonrada bir satır boşluk bıraksa çok güzel olacak. Acaba buna uygun kodlar varmı. Örneğin ahmet, mehmet, cemil isimlerini M29 hücresine yazdım. Burda sırasıyla en başdaki isime ait kaç adet veri varsa getirse bir satır boşluk bırakıp diğer isimi getirse vs.. bu şekilde kaç isim varsa devam edecek. Herkese şimdiden teşekkür ederim.
Sub Bir_Cok_Veri_Getir()
Application.ScreenUpdating = False
Worksheets("sayfa1").Range("a3:K500").Select
Selection.ClearContents
Selection.ClearComments
Dim S1 As Worksheet, S2 As Worksheet, Defterler(), Son As Long, Satır As Long
Set S1 = Sheets("Sayfa1")
Defterler = Array("AYLIK", "BAKİYELER", "YENİLER")
Satır = 3
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
For x = 2 To Son
If S2.Cells(x, "B") = Worksheets("Sayfa1").Range("M29") Then
S2.Range("A" & x & ":K" & x).Copy S1.Cells(Satır, 1)
Satır = Satır + 1
End If
Next
Satır = Satır + 1
Next
Range("L2").Select
Application.ScreenUpdating = True
End Sub
Aşağıdaki kodlarla M29 hücresine yazdığım isimleri, belirtilen sayfalarda aratıp sayfa1 e getiriyorum. istediğim şeyse M29 hücresine birkaç isim yazsam bu isimlere uygun olan verileri getirse, her getirdiği isimden sonrada bir satır boşluk bıraksa çok güzel olacak. Acaba buna uygun kodlar varmı. Örneğin ahmet, mehmet, cemil isimlerini M29 hücresine yazdım. Burda sırasıyla en başdaki isime ait kaç adet veri varsa getirse bir satır boşluk bırakıp diğer isimi getirse vs.. bu şekilde kaç isim varsa devam edecek. Herkese şimdiden teşekkür ederim.
Sub Bir_Cok_Veri_Getir()
Application.ScreenUpdating = False
Worksheets("sayfa1").Range("a3:K500").Select
Selection.ClearContents
Selection.ClearComments
Dim S1 As Worksheet, S2 As Worksheet, Defterler(), Son As Long, Satır As Long
Set S1 = Sheets("Sayfa1")
Defterler = Array("AYLIK", "BAKİYELER", "YENİLER")
Satır = 3
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
For x = 2 To Son
If S2.Cells(x, "B") = Worksheets("Sayfa1").Range("M29") Then
S2.Range("A" & x & ":K" & x).Copy S1.Cells(Satır, 1)
Satır = Satır + 1
End If
Next
Satır = Satır + 1
Next
Range("L2").Select
Application.ScreenUpdating = True
End Sub