zero appears in the Msg box

[KlausW]

Hi everyone In an Msg box, some information from some cells has, see the VBA code.
This works well, but when the cells are empty a zero appears in the Msg box see image, can I hide them?

Any help will be appreciated

Best regards Klaus W

Sub Afrundetrektangel1_Klik()

If Range("ai52") = 0 Then Range("ai75") = ""

MsgBox Range("Ai52") & vbNewLine & Range("Ai53") & vbNewLine & Range("Ai54") & vbNewLine & Range("Ai55") & vbNewLine & Range("Ai56") & vbNewLine & Range("Ai57") & vbNewLine & Range("Ai58") & vbNewLine & Range("Ai59") & vbNewLine & Range("Ai60") & vbNewLine & Range("Ai61") & vbNewLine & Range("Ai62") & vbNewLine & Range("Ai63") & vbNewLine & Range("Ai64") & vbNewLine & Range("Ai65") & vbNewLine & Range("Ai66") & vbNewLine & Range("Ai67") & vbNewLine & Range("Ai68") & vbNewLine & Range("Ai69") & vbNewLine & Range("Ai70") & vbNewLine & Range("Ai71") & vbNewLine & Range("Ai72") & vbNewLine & Range("Ai73") & vbNewLine & Range("Ai74") & vbNewLine & Range("Ai75"), , "Symbol oversigt tjeneste-frihed"

Sheets(Format(Now, "mmmm")).Select 

End Sub

 

[Alex Blakenburg]

Too risky I would say, Alex. vba Filter is a "contains" (or "does not contain") filter.
Example: If AI61 was "P for AFS. P 70" instead of "P for AFS. P 17" then it would be omitted from the message box.

Thanks Peter. I was kind of excited that I had finally found a use for the VBA Filter function but that puts a bit of a damper on it .
I know you managed to make it work but I would probably just stick to using a loop rather than jump through all those hoops.

 

[Peter_SSs]

I would probably just stick to using a loop rather than jump through all those hoops.

Fair enough - personal choice. To me it isn't a lot of hoops, pretty much just copy/paste some saved code.