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

[keman]

arkadaslar merhaba
ek te olan ve olması gereken dıye adlandırdıgım excel sablonu var yardımcı olabılırmısınız.

http://www.dosya.tc/server24/KGUEDw/KopyaDENEME.xls.html

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

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

 

[Murat OSMA]

Özel mesaj:

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.