با درود
ابتدا اون ردیف رو که ایجاد کردین . ردیف دوم که خالی هستش رو منظورم هست. بعد
یه سل رو مثلا E1 رو داخلش بنویسین good یا اون شرطی که باید برسی بشه. بعد کد زیر رو برای همون باتن که گذاشتی بنویس
کد:
If Sheet1.Range("E1").Value = "" Then
MsgBox "Please enter your condition in range E1 ", vbInformation
Sheet1.Range("E1").Select
Exit Sub
End If
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
j = 0
For Each c In Sheet1.Range("D2:D" & lastRow)
If Not c.Rows.Hidden = True And c.Value = Sheet1.Range("E1").Value Then
j = j + 1
End If
Next c
Sheet1.Range("F1").Value = j
علاقه مندی ها (Bookmarks)