baskı miktarını otomatik yeni sayfada kaydet

[pigment79]

Değerli arkadaşlar, ekte isteklerim dosya içinde açıkça belirtilmiştir. yardımlarınızı rica ediyorum.
saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kod;

Option Explicit
 
Sub AKTAR()
    Dim SATIR As Long
    
    With Sheets("BIÇAK_LİSTEM")
         SATIR = .Range("A65536").End(3).Row + 1
        .Cells(SATIR, "A") = Range("G11")
        .Cells(SATIR, "B") = Range("AX12")
        .Cells(SATIR, "C") = Range("Y11")
    End With
 
    MsgBox "Veriler arşive aktarılmıştır.", vbInformation
End Sub

 

[pigment79]

Teşekkür ederim ilginize, örnek dosyayı açamadım ve de kod uygulaması bende çalışmadı.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyayı açabilmeniz için sisteminizde Winrar programı olmalıdır.

Çalışmanıza bir adet sayfa ekleyin adı BIÇAK_LİSTEM olsun. İlk satıra başlıklarınızı yazın.

Önerdiğim kodu boş bir modüle ekleyin ve sarı renkli sayfalarda çalıştırın.

 

[pigment79]

teşekkürler sorun çözüldü.