İzin onayı

[beykatip]

Sevgili arkadaşlar siz değerli dostlarımdan aşağıda belirttiğim soruma cevap vererek sorunumun giderilmesini rica ediyorum
1-Aşağıdaki Yazdır butonuna tıkladığımda kod sayfasındaki userform1 geliyor ve kaydet -kapat -yazdır vb.butonları çıkıyor buda hem iş kaybı hemde çok sıkıcı olduğundan bu formun ibtal edilerek sadece yazdır butonuna tıklandığında (userform) çıkmadan yine aynı şekilde hem defter sayfasına kayıt edilip hemde karteks sayfasına aktarılarak yazmasını istiyorum herkese şimdiden teşekkür ederim

 

[Mahir64]

Merhaba,
Kendi kodlarınız ile bunu çözebilir siniz?
Bir düğmeye atayarak deneyiniz.

Sub yazdır()
Application.ScreenUpdating = False
GirisSayfasi = "TEKLİ"
VeriSayfasi = "DEFTER"
SatirSay = 1
Alan = Sheets(VeriSayfasi).Range("A1:A10000")
For Each Kayit In Alan
If Kayit <> "" Then SatirSay = SatirSay + 1
Next Kayit
Sheets(GirisSayfasi).Select
Range("D14").Copy 'İSİM'
Sheets(VeriSayfasi).Range("A" & SatirSay).PasteSpecial xlPasteValues
Range("H14").Copy 'İzin Başlama Tarihi'
Sheets(VeriSayfasi).Range("B" & SatirSay).PasteSpecial xlPasteValues
Range("K14").Copy 'İzin Bitiş Tarihi'
Sheets(VeriSayfasi).Range("C" & SatirSay).PasteSpecial xlPasteValues
Range("L4").Copy 'İzine Ait Yıl Seçimi'
Sheets(VeriSayfasi).Range("D" & SatirSay).PasteSpecial xlPasteValues
Range("I17").Copy 'İzin Süresi'
Sheets(VeriSayfasi).Range("E" & SatirSay).PasteSpecial xlPasteValues
Range("H19").Copy 'İzin Kayıt Tarihi'
Sheets(VeriSayfasi).Range("F" & SatirSay).PasteSpecial xlPasteValues
Range("D14").Select 'İSİM'
Call karteks
Sheets("Tekli").Select
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[beykatip]

Mahir bey çok teşekkür ederim

 

[Mahir64]

İyi çalışmalar