nasıl mesaj verdirilir

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, aşağıdaki gibi bir makrom var, bunlar alındı sayfasına 5 satırlık aktarım yapıyor, 5 satır dolduğunda 6 satırda yer kalmadı diye nasıl mesaj verdirilir. Bu makroya ilave yaparsanız sevinirim. Teşekkürler
Sub Alındı()
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 "ALIM BELGESİ TAMAMLANDI", vbInformation, "DİKKAT"

'5 satırlık aktarım bittiğinde "
'ALINDI BELGESİNDE YAZDIRILACAK YER KALMADI.
'ŞEKLİNDE MESAJ VERSİN

End Sub

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, aşağıdaki gibi bir makrom var, bunlar alındı sayfasına 5 satırlık aktarım yapıyor, 5 satır dolduğunda 6 satırda yer kalmadı diye nasıl mesaj verdirilir. Bu makroya ilave yaparsanız sevinirim. Teşekkürler
Sub Alındı()
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 "ALIM BELGESİ TAMAMLANDI", vbInformation, "DİKKAT"

'5 satırlık aktarım bittiğinde "
'ALINDI BELGESİNDE YAZDIRILACAK YER KALMADI.
'ŞEKLİNDE MESAJ VERSİN
End Sub

Merhaba arkadaşlar buna bir bakarmısınız.

 

[Seyit Tiken]

Aklıma gelen bir yöntem söyleyeyim : (Örnek Olarak) Kodların üstünde (Atıyorum, A1 Hücresine) [A1]=[A1]+1 kodu yazarak böyle bir kontrol sağlayabilirsiniz. If [A1]=6 Then MsgBox "6.Satırda Yer Kalmadı", gibi bir yöntemi deneyiniz.

 

[Excelmy]

Sayın tarzanhaci

Kodlarınız aşağıdadır.

Sub Alındı()
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 "ALIM BELGESİ TAMAMLANDI", vbInformation, "DİKKAT"
End Sub

 

[Hacı Bayram ÖZKAN]

Kuman bey eline sağlık Teşekkürler, çok güzel oldu dua ile kal