Makro ile ara bul diğer sayfaya satırı kopyala

[tamay]

Herkese selam,

A B C
1 hasan veli 1500
2 ahmet veli 1500 buton
3 osman veli 2500
4 ayşe veli 1500

yukarıdaki örnekte yapmak isteğim butona bsınca C sütünunda arama yapacağım ufak bir kutu çıkacak buraya 1500 yazaam (1500 ile başlayanları bul ) bulduğu satırları sayfa 2 A1 den itibaren oraya kopyalacak.

Benzerlerine de baktım forumda ama çıkamadım içinden.

Teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:C65536").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If LCase(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) Like _
    TextBox1.Value & "*" Then
        adr1 = Range(Cells(i, "A"), Cells(i, "C")).Address
        adr2 = Range(Cells(sat, "A"), Cells(sat, "C")).Address
        Sheets("Sayfa2").Range(adr2).Value = Range(adr1).Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Sayfa2'ye Aktarma Yapıldı..!!"
Unload Me
End Sub

 

[tamay]

Çok Teşekkürler, Ellerin dert görmesin, süper.

 

[Orion1]

Çok Teşekkürler, Ellerin dert görmesin, süper.

Rica ederim.
İyi çalışmalar.

 

[serkanar]

Arkadaşlar merhaba
Ben bir sayfadaki satırı diğer sayfaya butonla sıra satırlı kopyalamasını istiyorum nasıl yaparım yardımcı olrsannız sevinirm