Kaydet ve yazdır kodunu birleştirme

[ASLAN7410]

Hayırlı geceler arkadaşlar.

Daha önceden forum'dan almış olduğum yardımlarda ekte gönderdiğim excel sayfasındaki kodları kullanıyorum.

Gönderdiğim sayfada iki ayrı kod var bu kodların birleştirilmesini istiyorum, sayfa üzerinde gerekli açıklamayı yaptım, yardım edecek arkadaşlara şimdiden çok teşekkür ediyorum.

 

[ulutanas]

Merhaba yeni eklediğiniz tuşa aynı makroları yazınca sorun çözülüyor. Örneğinizde denedim oldu.

 

[ASLAN7410]

Sayın ulutanas ilginize çok teşekkür ediyorum, maalesef sayfa içerisinde yazdığım sorularıma karşılık gelmiyor.

 

[ulutanas]

Aslan bey kusura bakmayın lütfen ben 2. isteğinizi hiç okumamışım 1. isteğiniz oluyor ama 2. isteğiniz beni aşar destek ekibi arkadaşlar mutlaka bir cevap bulur.

İyi çalışmalar...

 

[ASLAN7410]

Arkadaşlar konu güncel, çözemedim.

 

[YUSUF44]

Şöyle olmuyor mu?

Sub kaydetyazdır()
Say = WorksheetFunction.CountIf(Sheets("ARŞİV").[B:B], Sheets("ASLAN").[E7])
If Say > 0 Then
    soru = MsgBox("Mükerrer kayıt !" & vbCrLf & "Aktarmak istediğiniz bilgiler ARŞİV'de var." & vbCrLf & "Devam  Etmek İstiyormusunuz ?", vbInformation + vbYesNo, "                          Dikkat  ")
    If soru = vbNo Then
        GoTo son
    ElseIf soru = vbYes Then
        satir = WorksheetFunction.Match(Sheets("ASLAN").Range("E7"), Sheets("ARŞİV").Range("B:B"), 0)
        Sheets("ARŞİV").Range("B" & satir & ":h" & satir) = WorksheetFunction.Transpose(Range("E7:E13"))
    End If
Else
    Sheets("ASLAN").Select
    If Range("E7") <> Empty Then
        satir = Sheets("ARŞİV").Cells(Rows.Count, 2).End(3).Row + 1
        Sheets("ARŞİV").Range("B" & satir & ":h" & satir) = WorksheetFunction.Transpose(Range("E7:E13"))
    End If
End If
son:
yazdir = Application.InputBox("Kaç kopya yazdırılacak?", "A S L A N", 1)
If yazdir = False Then
MsgBox " Yazdırmaktan vazgeçildi.", vbInformation, "A S L A N"
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir, Collate:=True, _
IgnorePrintAreas:=False
MsgBox yazdir & " adet yazdırıldı.", vbInformation, "A S L A N"
End If

End Sub

 

[sensizsoldum]

Merhaba,
Yanlış anlamadıysam aşağıdaki kodu sayfanızın modüle kısmına ekleyin ve önceki iki butonu kaldırın. tek butonla iki butona basmış olacaksınız.
Örnek Dosyayı inceleyiniz

Sub kaydetyazdır()
Call aynısıvar
Call Yaz
End Sub

 

[ASLAN7410]

Sayın YUSUF44 Bey ve sensizsoldum Bey ilginize çok teşekkür ediyorum, her ikisi de istediğim gibi değil, ancak uğraşmalarım da yazdır kodu ile kaydet kodunun yerlerini değiştirince istediğim gibi oldu.
Başkalarına yardımcı olur diye sayfayı ekliyorum, hayırlı çalışmalar.