Modify Macro to Only Print if sales > 0

[rf7clan]

I need to modify a current macro to print only if sales > 0. I have tried a few modifications use if, next, etc. with no luck.

Current Macro:
Sub PSL()
'
' PSL Macro
' Macro recorded 2/6/2012 by wcast
'
'
Sheets("DATA").Select

Range("B12").Select

Dim x As Long, y As Long
Dim q As Integer
x = ActiveCell.Row
y = ActiveCell.Column

Sheets("DATA").Select
Range("A11").Select
x = 11
y = 1

Do While x < Range("r96")


Selection.Copy
Sheets("LETTER").Select
Range("e4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "TM1RECALC"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
x = x + 1
Sheets("DATA").Select
Cells(x, y).Select


Loop

Sheets("DATA").Select
Range("A11").Select
Selection.Copy
Sheets("LETTER").Select
Range("e4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Run "TM1RECALC"

End Sub

Portion of DATA sheet:

Any assistance would be appreciated.

 

[rf7clan]

Dante, appears we need a single quote before the store. Thus for E4 value should be '99089 not 99089. How can this be achieved in your code? I attempt to do by adding a line after initial E4 value set but my method did not work.

 

[DanteAmor]

Try this:

Sub PSL()
  Dim i As Long, sh As Worksheet
  Set sh = Sheets("DATA")
  For i = 12 To sh.Range("A" & Rows.Count).End(3).Row
    If sh.Range("C" & i).Value > 0 Then
      With Sheets("LETTER")
        .Range("E4").Value = "'" & sh.Range("A" & i).Value
        Application.Run "TM1RECALC"
        .PrintOut Copies:=1, Collate:=True
      End With
    End If
  Next i

 

[rf7clan]

Dante, my light bulb went on and I had the business owner change the E4 cell format from number to text then your macro worked liked a charm! Really appreciate your assistance, professionalism, and mentoring!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.