Makro Uyarı

[aligunes]

Sub aktar1()
a = WorksheetFunction.CountA(Sheets("LİSTE").Range("G5:G65536"))
Sheets("LİSTE").Range("A" & a + 5) = a + 1
Sheets("LİSTE").Range("H" & a + 5) = [s6]
Sheets("LİSTE").Range("I" & a + 5) = [o14]
Sheets("LİSTE").Range("F" & a + 5) = [r41]
Sheets("LİSTE").Range("E" & a + 5) = [m37] + [m38] + [m39] + [m40]
Sheets("LİSTE").Range("G" & a + 5) = [f14] & "." & [g14] & "." & [h14] & "." & [ı14] & "-" & [j14] & "-" & [k14] & "." & [l14] & "." & [m14] & "." & [n14]

Kodlarım bu excel "LİSTE" sayfasına aktarma yapıyor ve bu sayfada G sutununun dolu olup olmadığını esas alarak bir alt satıra aktarma yapıyor benim sormak istediğim bu aktarmayı yaparken örnek 36.sırayı yazdığında uyarı vermesini istiyorum "Liste Doldu Kontrol ediniz" şeklinde yardımlarınız için teşekkürler.

 

[Levent Menteşoğlu]

Kodlarınızın en altına aşağıdaki ilaveyi yapın.

if a=36 then msgbox "Liste Doldu Kontrol Ediniz"

 

[aligunes]

leventm teşekkür ederim