• DİKKAT

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

tabloyu ıstedıgımız duruma getırme

  • Konbuyu başlatan Konbuyu başlatan keman
  • Başlangıç tarihi Başlangıç tarihi
Bu kodları kullanabilirsiniz;

Kod:
Sub Emre()
    Dim i%, son%
    With Sayfa2
        son = .Range("A65536").End(3).Row + 1
        For i = 8 To Sayfa1.Range("A65536").End(3).Row
            .Cells(son, "A") = Sayfa1.Cells(i, "A")
            .Cells(son, "B") = Sayfa1.Cells(i, "C")
            .Cells(son, "C") = Sayfa1.Cells(i, "F")
            .Cells(son, "D") = Sayfa1.Cells(i, "H")
            .Cells(son, "E") = Sayfa1.Cells(i, "J")
            'Diğer sütunları siz yazarsınız.
            ''''
            '''''
            son = son + 1
        Next i
    End With
    son = Empty: i = Empty
End Sub
 
Özel mesaj:
keman' Alıntı:
murat bey merhaba

teşekkur ederım soyledıgınızı yaptım ve calıstı.ama ben bu kodu kod goruntuleden yapıstırdım.diğer verılerı almak ıcın ne yapmak gerekıyor.yanı bu makroyu nasıl kaydedecem.offıce 2007 kullanıyorum yardımcı olurmusunuz


VBE Penceresindeyken (Kod görütüleden ulaştığınız bölüm) üst menülerden önce Insert'e sonra da Modüle basın ve açılan boş sayfaya verdiğim kodları yapıştırıp F5 tuşuna basın.

Dosyanızı da Makro İçerebilen Excel Çalışma Kitabı olarak farklı kaydedin.
 
Geri
Üst