butona tıkladığımda uyarı versin

[orange4609]

merhabalar,

a sutunu boş ise butona tıkladığımda "a sutununa veri kopyalamadınız" diye uyarı veren kod yazabilimiyiz.yardımcı olabilirseniz sevinirim

Tşkler.

iyi günler.

 

[Emir Hüseyin Çoban]

. . .

Soruda açık bırakılan kısımlar var.
Komple A sütunu mu, yoksa belirli bir hücre aralığı mı ?

. . .

 

[orange4609]

a1 ile a10 aralığı yeterli hocam.yada sadece a1 hücresi yeterli olur.

 

[Emir Hüseyin Çoban]

a1 ile a10 aralığı yeterli hocam.

. . .

Sub KOD1()

If WorksheetFunction.CountA(Range("A1:A10")) <> "10" Then
MsgBox " Boş Hücre Var ", vbCritical
End If

End Sub

. . .

yada sadece a1 hücresi yeterli olur.

Sub KOD2()

If Range("A1") = "" Then
MsgBox " Boş Hücre Var ", vbCritical
End If

End Sub

. . .

 

[orange4609]

tşkler. hocam elinize sağlık.

iyi akşamlar.