aktar

[hegu42]

Arkadaşlar ekteki örnekte yazdır butonuna şöyle bir şey yapmak istiyorum. Yazdır butonuna tıklayınca hem yazdıracak hem de menüdeki bilgileri depo sayfasına aktarmasını yaptırmak istiyorum. Tabi aynı zamanda menü bilgisi silinecek.
teşekkür ederim.

 

[usubaykan]

Merhaba;

Yazdır Butonunun altına aşağıdaki kodu kopyalayın.

Sub Yazdır()
    With Sheets("Rapor")
        .Range("D9") = Sheets("Menü").Range("A2")
        .Range("D10") = Sheets("Menü").Range("B2")
        .Range("D11") = Sheets("Menü").Range("C2")
        .Range("D12") = Sheets("Menü").Range("D2")
        .Range("F12") = Sheets("Menü").Range("E2")
        .PrintOut Copies:=2
    End With
 
    For U = 2 To Sheets("Menü").Range("E65536").End(3).Row
        Son_Satır = Sheets("Depo").Range("A65536").End(3).Row + 1
        Sheets("Menü").Range(Cells(U, "A"), Cells(U, "E")).Copy
        Sheets("Depo").Cells(Son_Satır, "A").PasteSpecial
        Next
        Application.CutCopyMode = False
End Sub

 

[hegu42]

sayın usubaykan emeğine sağlık çok teşekkür ederim

 

[usubaykan]

sayın usubaykan emeğine sağlık çok teşekkür ederim

Rica ederim ;-)