Bul kopyala

[polis-53]

Merhabalar sayfa1 deki i harfiyle başlayanları bul sayfa2 kopyala nasıl yapabilirim yardım edermisiniz.

 

[Ömer]

Merhaba,

Sayfa1 de nerde arama yapacak ve kopyalama tam olarak nereye olacak.

Sorularınızı küçük bir örnek dosya ile destekleyip detaylı açıklamaya özen göstermenizi rica ederim.

.

 

[polis-53]

Merhaba arkadaş ekte gönderdiğim dosyada İ harfi yazdığımdan i den başlayanları sayfa2 de boş olan hücreden itibaren kopyalasın İR yazdığımda İR ile başlayanları kopyalasın boyle devam edecek

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız. Eğer Sayfa2 de eski veriler silinmeden alt alta ekleme yapılacaksa kırmızı satırı silersiniz.

Aranan değerin A1 hücresinde olduğu düşünülmüştür.

Sub Listele()
 
    Dim i As Long, son As Long, S2 As Worksheet, deg As String
 
    Set S2 = Sheets("Sayfa2")
    Sheets("Sayfa1").Select
 
    [COLOR=red]S2.Range("A2:H" & Rows.Count).ClearContents[/COLOR]
    
    deg = UCase(Replace(Replace(Range("A1"), "i", "İ"), "ı", "I"))
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Cells(i, "A") Like deg & "*" Then
            Range("A" & i, "H" & i).Copy S2.Range("A" & son)
        End If
    Next i
 
End Sub

 

[polis-53]

ellerin dert görmesin kal sağlıcakla