Hücredeki değere göre listeden veri bütünü çekme

[Kavinsky]

Merhabalar personel ismine göre bir buton yaptım o butonu tıkladığımda Sayfa 1 deki A ile E arasındaki tüm hücreleri tarayıp b hücresinde "10" , C sütununda "D4" , D sütununda ise "HSS" verilerinin hepsine uyan tüm satırları seçip sayfa 2 ye yapıştırsın. Böyle bir şey mümkün müdür ?

 

[YUSUF44]

Aşağıdaki kodlar tam olarak yazdığınız işlemi yapıyor. Ancak muhtemelen tam olarak istediğiniz bu değil.

Kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

son = s1.Cells(Rows.Count, "B").End(3).Row

For i = 1 To son
    If s1.Cells(i, "B") = 10 And s1.Cells(i, "C") = "D4" And s1.Cells(i, "D") = "HSS" Then
        yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
        s1.Range("A" & i & ":E" & i).Copy s2.Cells(yeni, "A")
    End If
Next
    
End Sub