[حل شده] شمارش سلول های خالی در یک ستون تا آخرین سطر

[amir0914]

سلام. دوستان فرمولی پیدا کردم برای شمارش تعداد سلول های خالی در یک ستون. اما تا آخرین سطر شمارش نمیکند کل سلول های خالی ستون را شمارش میکند. میخوام که تا آخر سطر سلول خالی ها رو بشماره

Dim mycount As Long    mycount = Application.WorksheetFunction.CountBlank(Range("A:A"))    MsgBox mycount 

ممنون میشم کمکم کنین.

[iranweld]

با سلام

کدهای خود را اصلاح کنید
ابتدا آخرین ردیف ستون مورد نظر را بدست بیاورید

Sub test()

Dim mycount As Long

k1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

mycount = Application.WorksheetFunction.CountBlank(Range("A1:A" & k1))

MsgBox mycount

End Sub 

[amir_ts]

با سلام
سوالتون رو تو محل مناسبی قرار ندادید.
کد زیر رو امتحان کنید.

[LEFT]Sub test()
Dim mycount As Long
 mycount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).Count
MsgBox mycount
End Sub[/LEFT]

[Amir Ghasemiyan]

با تشکر از دوستانی که پاسخ دادند
تاپیک به تالار مناسب منتقل شد

دوست عزیز اگر پاسخ سوالتون رو دریافت کردین لطفا تاپیک رو حل شده کنید

[amir0914]

خیلی ممنون ....آقای مهندس میشه این فرمول رو برای سلول های پر بزارین؟

[amir_ts]

[LEFT]Sub test()
Dim mycount As Long
 mycount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
MsgBox mycount
End Sub[/LEFT]

[amir0914]

خیلی ممنون اما در ستون هایی که تیره یا صفر وجود دارد کار نمی کند.

[amir_ts]

خیلی ممنون اما در ستون هایی که تیره یا صفر وجود دارد کار نمی کند.

با سلام
فایل نمونه رو ملاحظه کنید.

[amir0914]

در فایل من درست کار نمیکنه متاسفانه....نمونه اش رو قرار دادم با همین فرمول شما...ممنون میشم نگاه کنین.

[amir_ts]

در فایل من درست کار نمیکنه متاسفانه....نمونه اش رو قرار دادم با همین فرمول شما...ممنون میشم نگاه کنین.

ارسال شد.