excluding part of text in Email

[howard]

If sheet2 , Col C , contains a value <> 0 for eg -325.65, 985.75 etc , then the text below to be excluded from being in the body of the email

  Strbody = Strbody & Join(Application.Transpose(Range("R3:R4").Value)) & " - please attend to these amounts " & vbNewLine & vbNewLine

It would be appreciated if someone can provide me with code to be included in my code to do the above

 

[Kenneth Hobson]

I guess there are easier ways but I would need to know your data better.

I was unclear whether R3:R4 were on Sheet2 or not. Note my commented If() line.

Sub Main()
  Dim strBody As String, r As Range, c As Range, tf As Boolean
  
  strBody = "Hello World! "
  
  With Worksheets("Sheet2")
    Set r = .Range("C2", Cells(.Rows.Count, "C").End(xlUp))
    For Each c In r
      If c.Value <> 0 Then
      'If IsNumeric(c.Value) And c.Value <> 0 Then
        tf = True
        Exit For
      End If
    Next c
  End With
  If tf Then _
    strBody = strBody & Join(Application.Transpose(Range("R3:R4").Value)) & _
      " - please attend to these amounts " & vbNewLine & vbNewLine
  
  MsgBox strBody
End Sub

 

[howard]

Thanks for the help, Kenneth. Will test tomorrow and let you know

 

[howard]

Hi Kenneth

Have tested your code. It works perfectly


Thanks for the help