MsgBox if within selected rows a specific column is not filled in
 

Hello,

If somebody can help me :)


In a sheet several rows are selected. It could be rows near eachother (like row 5 till 15) or even rows that are not near eachother (like row 5 till 15 and also row 25 till 30). It could be also only one or two separated rows.

I have a macro that do some follow up actions with those selected rows, but in in those selected rows in column K there must be data filled in in each row of it.

If in one of them the datafield in column K is empty, I want a MsgBox which shows me the number of empty datafields in column K.

In a quick view: MsgBox - NrOf Empty datafields in column K in the selected rows.


regards, Johan

MsgBox if within selected rows a specific column is not filled in
 

Hi Johan,

Am Fri, 25 Nov 2016 12:33:56 -0800 (PST) schrieb :

In a sheet several rows are selected. It could be rows near eachother (like row 5 till 15) or even rows that are not near eachother (like row 5 till 15 and also row 25 till 30). It could be also only one or two separated rows.

I have a macro that do some follow up actions with those selected rows, but in in those selected rows in column K there must be data filled in in each row of it.

If in one of them the datafield in column K is empty, I want a MsgBox which shows me the number of empty datafields in column K.

try:

Sub Test()
Dim rngC As Range
Dim varEmpty() As Variant
Dim n As Long, i As Long
Dim myStr As String

For Each rngC In Intersect(Range("K:K"), Selection)
If Len(rngC) = 0 Then
i = i + 1
ReDim Preserve varEmpty(n)
varEmpty(n) = rngC.Address(0, 0)
n = n + 1
End If
Next
myStr = Join(varEmpty, Chr(10))
MsgBox "These " & i & " cells are empty:" & Chr(10) & myStr
End Sub


Regards
Claus B.
--
Windows10
Office 2016

MsgBox if within selected rows a specific column is not filled in
 

Hi Johan,

Am Fri, 25 Nov 2016 22:49:57 +0100 schrieb Claus Busch:

Sub Test()

better try:

Sub Test()
Dim rngC As Range
Dim varEmpty() As Variant
Dim n As Long, i As Long
Dim myStr As String

For Each rngC In Intersect(Range("K:K"), Selection)
If Len(rngC) = 0 Then
i = i + 1
ReDim Preserve varEmpty(n)
varEmpty(n) = rngC.Address(0, 0)
n = n + 1
End If
Next
Select Case i
Case 0
Exit Sub
Case 1
myStr = varEmpty(0)
Case Else
myStr = Join(varEmpty, Chr(10))
End Select
MsgBox "These " & i & " cell(s) are empty:" & Chr(10) & myStr
End Sub


Regards
Claus B.
--
Windows10
Office 2016

Website batdongsanquangninh.vn lÃ* website hÃ*ng đầu vá»� quảng cáo, mua bán bất Ä‘á»™ng sản tại Quảng Ninh, chÃ*nh thức Ä‘Æ°Æ¡c thÃ*nh láº*p vÃ*o năm 2012. LÄ©nh vá»±c hoạt Ä‘á»™ng chÃ*nh của công ty lÃ* quảng cáo, tÆ° vấn, môi giá»›i, mua bán, cho thuê bất Ä‘á»™ng sản.

Trải qua nhiều năm hoạt Ä‘á»™ng chúng tôi đã ná»— lá»±c vượt qua má»�i khó khăn để dần từng bÆ°á»›c thay đổi được phÆ°Æ¡ng thức quảng cáo vÃ* mua bán truyá»�n thống của ngÆ°á»�i dân thÃ*nh phố giúp cho NgÆ°á»�i bán vÃ* NgÆ°á»�i mua rá»… dÃ*ng thá»±c hiện các giao dịch mua bán nhÃ*, đất má»™t cách minh bạch, nhanh chóng. Rút kinh nghiệm qua việc hoaÌ£t động nhiều năm vaÌ€ tÆ°Ì€ những ý kiến đóng góp của quý khách, trong thá»�i gian tá»›i chúng tôi sẽ ná»— lá»±c hÆ¡n nÆ°a nhằm phát triển Website có thêm những tÃ*nh năng Æ°u việt, quảng bá rá»™ng khắp hÆ¡n nữa giúp cho các giao dịch được tiến hÃ*nh má»™t cách nhanh chóng.

Ra Ä‘á»�i xuất phát từ trải nghiệm thá»±c tế của chÃ*nh ngÆ°á»�i sáng láº*p ra Công ty vá»›i mong muốn giúp cho cá»™ng đồng có được thông tin minh bạch mang lại giá trị lợi Ã*ch tốt nhất cho khách hÃ*ng. Ä�ây chÃ*nh lÃ* cÆ¡ sở ná»�n tảng để công ty xây dá»±ng phÆ°Æ¡ng châm kinh doanh vá»›i mong muốn mang đến sá»± chuyên nghiệp, uy tÃ*n, niá»�m tin cho khách hÃ*ng.

Các dịch vụ chÃ*nh:

- Ä�ăng tin quảng cáo mua bán nhÃ* đất
- �ăng banner quảng cáo
- Ä�ăng bÃ*i PR quảng bá sản phẩm, dịch vụ bất Ä‘á»™ng sản
- Tư vấn, mua bán bất động sản
- Môi giới bất động sản
- bất động sản quảng ninh
- mua đất hạ long
- bán nhÃ* quang ninh
- ban đất ha long
M�i thông tin đóng góp, quý khách vui lòng liên hệ

MsgBox if within selected rows a specific column is not filled in
 

Amazing. Thanks !

regards, Johan