VBA Msgbox

[AussieVic]

Hi, i am after VBA msgbox which will tell me if there is data from A6:A & C6:C

Excel Workbook
	A	B	C	D
6	Life	Comments	Noms	Comments
7	Test1		Test1
8	Test2		Test2
9	Test3		Test3
10	Test4		Test4
11	Test5		Test5
12	Test6		Test6
13	Test7		Test7
14	Test8		Test8
15			Test9
16			Test10
17			Test11
18			Test12
19			Test13
20			Test14
21			Test15
22			Test16
23			Test17
Sheet1

 

[Smitty]

Something like this maybe:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, y <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        x = Application.WorksheetFunction.CountA(Range("A:A")) - 1<br>        y = Application.WorksheetFunction.CountA(Range("C:C")) - 1<br>        <br>        MsgBox "There are " & x & " entries in column A" & vbCrLf & vbCrLf & _<br>            "There are " & y & " entries in column C", vbInformation + vbOKOnly, "Entry Count"<br>            <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[repairman615]

This could be a start...It is not great but maybe give some ideas and options.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Data()<br><br><SPAN style="color:#00007F">If</SPAN> Range("A6:A" & Range("A6").End(xlDown).Row).Count > 0 Or _<br>        Range("C6:C" & Range("C6").End(xlDown).Row).Count > 0 <SPAN style="color:#00007F">Then</SPAN><br>      <br>            MsgBox "Data is found in range(s):  " & vbNewLine & _<br>                Range("A6:A" & Range("A6").End(xlDown).Row).Address & vbNewLine & _<br>                Range("C6:C" & Range("C6").End(xlDown).Row).Address<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <br>    <br>    <br>End <SPAN style="color:#00007F">Sub</SPAN><br></FONT>