Makro için sürekli çalışma komutu

[cenqawer]

Merhaba Elimde forumdan destek alarak tamamladığım bi dosya var. İkinci sayfada her kart için bir kere aşağı tuşuna basıp jpg olarak kaydete basıyorum. Bunun örnek 1000 datayı otomatik makronun çalışmasını nasıl sağlayabilirim.

 

[Muzaffer Ali]

Merhaba.

Module1'e aşağıdaki kodu kopyalayın.
Yeni bir buton ekleyip bu kodu butona tanımlayın.

Sub TumunuResimOlarakKaydet()
    Dim Bak As Long
    With Worksheets("Sayfa1")
        For Bak = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            Range("A2") = .Cells(Bak, "A")
            Range("H8") = .Cells(Bak, "C")
            Resimolarakkaydet
        Next
    End With
End Sub

 

[cenqawer]

Yeni buton ekleyip komutu ekledim fakat olmadı dosyanın kaydedilme yerini bozdu ve hata verdi

 

[Muzaffer Ali]

Kodlar değiştirdim. Tekrar dener misiniz.

 

[cenqawer]

Muzaffer bey Çok güzel çalıştı otomatik kopyalama yapıyor fakat modül 3 te karaktere göre punto ayarlayan bi kod var onu çalıştırmıyor sanırım

 

[cenqawer]

Verdiğiniz kodun ortasına punto kodunu yapıştırdım ikisi beraber çalıştı Çok teşekkür ederim nihayet tamamlandı dosya elinize emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.