Değişken Atamak

[drejan62]

Merhabalar,
Aşağıdaki kodla satır kopyalama işlemi yapıyorum.
Ama ikinci kriter olan isim (örnekte ALİ CENGİZ) sürekli değişebileceğinden bunu kullanıcıya sordurup girilen ismi arattırmak mümkünmüdür?
Teşekkürler

For i = 1 To Sheets("Fiş listesi").Range("S65536").End(3).Row
If Cells(i, "s").Text = "KKD" And Cells(i, "M").Value Like "*ALİ CENGİZ*" Then Rows(i).Copy Sheets("rapor").Range("a65536").End(3)(2, 1)
Next i

 

[Mehmet Şahin]

Merhaba,
aşağıdaki kodu deneyiniz, iyi çalışmalar.

ad = "*" & InputBox("Aranacak ismi giriniz!", "Arama") & "*"
For i = 1 To Sheets("Fiş listesi").Range("S65536").End(3).Row
If Cells(i, "s").Text = "KKD" And Cells(i, "M").Value Like ad Then Rows(i).Copy Sheets("rapor").Range("a65536").End(3)(2, 1)
Next i

 

[drejan62]

Merhaba,
aşağıdaki kodu deneyiniz, iyi çalışmalar.

ad = "*" & InputBox("Aranacak ismi giriniz!", "Arama") & "*"
For i = 1 To Sheets("Fiş listesi").Range("S65536").End(3).Row
If Cells(i, "s").Text = "KKD" And Cells(i, "M").Value Like ad Then Rows(i).Copy Sheets("rapor").Range("a65536").End(3)(2, 1)
Next i

Sayın dentex teşekkür ederim ama verileri alamadım maalesef..

 

[Mehmet Şahin]

Merhaba,
kodu oluşturduğumuz bir dosyada denedim. Mümkünse dosyanızın örnek verilerle ekleyin, inceleyelim, kolay gelsin.

 

[drejan62]

Merhaba,
kodu oluşturduğumuz bir dosyada denedim. Mümkünse dosyanızın örnek verilerle ekleyin, inceleyelim, kolay gelsin.

Üstad çok özür dilerim,
kapyalamadan kendim yazarak aktarayım dedim ama bir harf hatası nedeni ile veri alamadım. Çok özür dilerim şimdi fark ettim.
Tamamdır çok sağolun.

 

[Mehmet Şahin]

rica ederim,
sizler de sağolun...