Gİrİlen DeĞere GÖre Satir Kopyalatma

[reagle]

ekte gönderdiğim belgede, "değerler" sayfasında girilen verilerden, A sütunundaki değer A' ya eşit ise, o satırı komple ya da parça parça "tablo" sayfasına sırasıyla kopyalatmak istiyorum. bunu yapmak mümkün müdür?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("değerler")
Set s2 = Sheets("tablo")
s2.[a:c].ClearContents
For a = 1 To s1.[a65536].End(3).Row
If s1.Cells(a, "a") = "A" Then
c = c + 1
s2.Range("a" & c & ":d" & c) = s1.Range("a" & a & ":d" & a).Value
End If
Next
MsgBox "Aktarma işlemi tamamlandı."
End Sub