• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Filtreleme gibi bişey

Katılım
30 Aralık 2013
Mesajlar
2
Excel Vers. ve Dili
2007 tr
x sayfasının 4.sütununda, içinde a değeri bulunduran satırları kopyala ve y sayfasına alt alta yaz.
Bu formülü excelde nasıl yapabilirim ?
 
Sayfa 1' e Command buton Ekle, kodları içine yaz.
Sayfa1 deki D sütunundaki içinde *a* geçenleri Sayfa2 deki D sütununa alt alta ekler

Kod:
Dim son_satir As Long
Dim i As Long
Dim sayac As Long
Dim tmp As String
son_satir = Sayfa1.Range("D65536").End(xlUp).Row
sayac = 1
For i = 1 To son
    tmp = Sayfa1.Range("D" & i).Value
    If tmp Like "*a*" Then
        Sayfa2.Range("D" & sayac).Value = tmp
        sayac = sayac + 1
    End If
Next i
End Sub
 
Geri
Üst