iki makronun birleştirilmesi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar elimde iki adet kod var 1. si;
Sub BELGE_TEMİZLE()
If MsgBox("ALINDI BELGESİ OLUŞTURULACAK!" _
& vbCrLf & "ALINDI BELGESİNİ TEMİZLEMEYİ ONAYLIYOR MUSUNUZ? ", _
vbInformation + vbYesNo, "..::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub 'BURDA HAYIR DEYİNCE TEKRAR BELGE OLUŞTUR MAKROSUNUN ÇALIŞMASINI İSTİYORUM.
With Sheets("ALINDI").Range("A711")
.Value = ""
.Interior.ColorIndex = xlNone
End With
MsgBox "ALINDI BELGESİ TEMİZLENDİ ", vbInformation, "CENGİZ Y....K"

End Sub

Bu makroda yani yukardaki makroda "HAYIR" işaretleyince akabinde devamında
Şu makro çalışsın istiyorum.
Sub BELGE_OLUSTUR()
If Sheets("ALINDI").Range("B11") > "" Then
MsgBox "ALINDI BELGESİNDE YAZDIRILACAK YER KALMADI.", vbCritical, "UYARI"
Exit Sub
End If
a = WorksheetFunction.CountA(Sheets("ALINDI").Range("I7:I10"))
Sheets("ALINDI").Range("A" & a + 7) = a + 1
Sheets("ALINDI").Range("B" & a + 7) = [I12]
Sheets("ALINDI").Range("I" & a + 7) = [I9]
Sheets("ALINDI").Range("O" & a + 7) = [K10]
Sheets("ALINDI").Range("P" & a + 7) = [I10]
MsgBox "YENİ ALINDI BELGESİ OLUŞTURULDU", vbInformation, "DİKKAT"

Dim Hacı
Hacı = MsgBox("BELGE HAZIR...YAZDIRILSIN MI?", vbYesNo, "MEMUR BEY")
If Hacı = vbNo Then Exit Sub
Sheets("ALINDI").PrintOut Copies:=1
End Sub

Bunun için nereye nasıl bir ek yapılır teşekkürler.

 

[Ömer]

Merhaba,

İlk koddaki;

= vbNo Then Exit Sub

yerine;

= vbNo Then BELGE_OLUSTUR: Exit Sub

yazarak deneyiniz.

 

[Huseyinkis]

Ektekli gibi denermisiniz:


Alternatif.

Sub BELGE_TEMİZLE()
If MsgBox("ALINDI BELGESİ OLUŞTURULACAK!" _
& vbCrLf & "ALINDI BELGESİNİ TEMİZLEMEYİ ONAYLIYOR MUSUNUZ? ", _
vbInformation + vbYesNo, "..::LÜTFEN DİKKAT::..") = vbYes Then
With Sheets("ALINDI").Range("A7:P11")
.Value = ""
.Interior.ColorIndex = xlNone
End With
MsgBox "ALINDI BELGESİ TEMİZLENDİ ", vbInformation, "CENGİZ Y....K"

Else

If Sheets("ALINDI").Range("B11") > "" Then
MsgBox "ALINDI BELGESİNDE YAZDIRILACAK YER KALMADI.", vbCritical, "UYARI"
Exit Sub
End If
a = WorksheetFunction.CountA(Sheets("ALINDI").Range("I 7:I10"))
Sheets("ALINDI").Range("A" & a + 7) = a + 1
Sheets("ALINDI").Range("B" & a + 7) = [I12]
Sheets("ALINDI").Range("I" & a + 7) = [I9]
Sheets("ALINDI").Range("O" & a + 7) = [K10]
Sheets("ALINDI").Range("P" & a + 7) = [I10]
MsgBox "YENİ ALINDI BELGESİ OLUŞTURULDU", vbInformation, "DİKKAT"
Dim Hacı
Hacı = MsgBox("BELGE HAZIR...YAZDIRILSIN MI?", vbYesNo, "MEMUR BEY")
If Hacı = vbNo Then Exit Sub
Sheets("ALINDI").PrintOut Copies:=1
End If
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Ömer bey ve Hüseyinkis her ikinizede teşekkür ederim. Şöyle bir sorun oluşuyor, Birinci koddan sonra EVET deyince İkinci kodun yani Belge_oluştur makrosununda çalışmasını istiyorum. Buna bakarmısınız. Teşekkürler.

 

[Ömer]

Birinci kodun;

End Sub satırından önce;

BELGE_OLUSTUR

ekleyerek deneyin.

 

[Hacı Bayram ÖZKAN]

Tamam Ömer bey; oldu eline sağlık, dua ile kal. İyi akşamlar.