Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
MsgBox if within selected rows a specific column is not filled in
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
|
|||
|
|||
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ệ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
MsgBox if within selected rows a specific column is not filled in
Amazing. Thanks !
regards, Johan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Skip copying empty column where remaining rows are filled | Excel Programming | |||
Msgbox when a cell with a specific text entry is selected. | Excel Programming | |||
In VBA, How to Refer to Cell In Specific Column But Selected Rows? | Excel Discussion (Misc queries) | |||
Select specific # of rows below selected cell - please help | Excel Programming | |||
VB code for selecting all rows below filled column | Excel Programming |