Tümünü Bul Yapıp Bulunan Satırları kopyalama

[YASINT]

Arkadaşlar benim problemim aradığım bir kelimeyi (tabii bu kelimi sayfada bir çok satırda var) sayfada bulucak sonra bulunan bu kelimelerin satırlarını kopyalayıp başka bir sayfaya yapıştıracak bir makroya ihtiyacım var sanırım anlatabildim. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Arkadaşlar benim problemim aradığım bir kelimeyi (tabii bu kelimi sayfada bir çok satırda var) sayfada bulucak sonra bulunan bu kelimelerin satırlarını kopyalayıp başka bir sayfaya yapıştıracak bir makroya ihtiyacım var sanırım anlatabildim. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

Bu kelimeler hep aynı sütundamı yoksa farklı sütunlarda da mevcutmu? tek sütunda ise bu sütunun adı nedir?

 

[YASINT]

evet hepsi "A" sütunda var.

 

[Levent Menteşoğlu]

Veriler tamamen kesilipmi aktarılacak yoksa sadece kopyasımı birde aktarılacak sayfanın adı nedir.

 

[YASINT]

verilerin kopyalanacak "data" adlı sayfaya yapıştırılacak.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
aranan = InputBox("Aranacak veriyi yazınız.", "Aranacak Veri")
If aranan = "" Then Exit Sub
say = WorksheetFunction.CountIf([a:a], aranan)
For a = 1 To say
adr = "a" & sat + 1 & ":a65536"
sat = WorksheetFunction.Match(aranan, Range(adr), 0) + sat
Sheets("data").Rows(a) = Rows(sat).Value
Next
MsgBox "Aktarma işlemi tamamlanmıştır."
End Sub

 

[YASINT]

yardımlarınız için teşekkür ederim Sn. leventm