Msgbox içerisine işlem sonucu yazdırmak

[Mesafe]

makro işlemi sonucunda çıkacak msgbox içerisine iki sütundaki dolu hücreleri saydırıp arasındaki farkı yazdırmak istiyorum
Örneğin;
if (A sütünu dolu hücre sayıs) - (D sütunu dolu hücre sayısı) = 0 then
msgbox "işleminiz tamamlanmıştır"
Else
msgbox "D sütununda 10 ürün eksik" (10 ürün A-D dolu hücre farkı olarak değişecek)
end if
end sub

yardımlarınız için şimdiden teşekkürler

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub kontrol()
bosA = WorksheetFunction.CountBlank([A:A])
bosD = WorksheetFunction.CountBlank([D:D])
If bosA = bosD Then
    MsgBox "İşlem tamamlanmıştır!", vbInformation
ElseIf bosA > bosD Then
    MsgBox "A sütununda " & bosA - bosD & " ürün eksik!", vbCritical
Else
    MsgBox "D sütununda " & bosD - bosA & " ürün eksik!", vbCritical
End If
End Sub