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?
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.