İçinde ara_kopyala

[bage]

Arkadaslar Merhaba;
Elimde 3000 adet firma bilgileri olan bir dosya var.
"Firmalar" adli sayfada A:A sütununda bulunan firma isimleri icerisinde arama yaptirmak istiyorum.
Ornegin TextBox1'e "Beton" yazip "Ara" butonuna basinca adinda "Beton" gecen bütün firmalari bulup bunlari "Data" adli sayfaya B:B , C:C , D sütunlarindaki karsiliklari ile kopyalamak istiyorum.
Arama kriterini "Cimento" yazdigim zaman, bulunan firmalari "Data" sayfasinda en son bos hucreden devam ederek yazmasini istiyorum.

Bu konuda yardim ederseniz cok memnun olrum.
Simdiden cok tesekkurler...

 

[Mahmut Kök]

.Find([COLOR=red]BETON[/COLOR], lookat:=xlPart)

İstediğiniz işlem yapılabilir. Örnek eklerseniz daha iyi olur.

 

[bage]

Ornek dosya ek'tedir....

 

[bage]

Ozur diliyorum, dosya eklemeden gondermisim...

 

[Mahmut Kök]

Büyük harf kullanarak deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Firmalar")
Set s2 = Sheets("DATA")
For a = 2 To s1.[a65536].End(3).Row
Set bak = s1.Cells(a, "a").Find(TextBox1, lookat:=xlPart)
If bak Is Nothing Then GoTo 6
Set alan1 = s1.Range("a" & a & ":F" & a)
Set alan2 = s2.Range("a" & s2.[a65536].End(3).Row + 1 & ":F" & s2.[a65536].End(3).Row + 1)
alan2.Value = alan1.Value
6
Next
msgbox "işlem bitti."
End Sub