• DİKKAT

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

aktarma kodunda hata var

Katılım
3 Haziran 2006
Mesajlar
418
Excel Vers. ve Dili
excel 2003 Türkçe
Arkadaşlar siteden aldığım daha dohrusu sayın as3434 yazdığı kodları bu dosyaya uyarlamak istedim ama aktarma olmuyor.
yapmak istediğim
1a dan 12 a olan hücreleri
baştan sona kadar yani a5 den af ya kadar aktarma sayfasına göndermek
sizden rıca etsem hata nerede
 
Son düzenleme:
Kod:
Sub aktar()
    Application.ScreenUpdating = False
    DEGER = Application.InputBox("Hangi Değer Aktarılacak?", "ÖZCAN")
    If DEGER = Cancel Then Exit Sub
    Sheets("Ana").Select
    Set sas = Sheets("aktarma sayfası")
    sas.[a5:ad500].ClearContents
    sat = 5
    For s = 5 To [C65536].End(3).Row
        If WorksheetFunction.CountIf(Rows(s), DEGER) >= 1 Then
            Rows(s).Copy sas.Rows(sat)
            sat = sat + 1
        End If
    Next
    sas.Select
    [a5].Select
    Set sas = Nothing
    Application.ScreenUpdating = True
    MsgBox ("Aktarma Tamamlandı.")
End Sub
 
teşekkür ederim

kodlar oldu elinizesağlık üstat
 
Geri
Üst