Loop and print

[jgalas]

Hi,

i want to look at range(n19:n50) if they contain TRUE take the number in range (L19:L50) put in Sheets("Impressao").Range("BF2") and print Sheets("Impressao").
I figured the code for one:

If Sheets("Dados").Range("n19") = True Then Sheets("Impressao").Range("BF2") = 1
      Sheets("Impressao").PrintOut
If Sheets("Dados").Range("n20") = True Then Sheets("Impressao").Range("BF2") = 2
      Sheets("Impressao").PrintOut
If Sheets("Dados").Range("n21") = True Then Sheets("Impressao").Range("BF2") = 3
      Sheets("Impressao").PrintOut
......

I could copy this code 31 times.... but it will be simple to use a loop a think. At the moment i dont know how to do it, if anyone can help me it will save me hours of works.

Thanks for your help

 

[Trebor76]

Hi jgalas,

Let me know how this goes:

Option Explicit
Sub Macro1()

    'http://www.mrexcel.com/forum/showthread.php?t=578642

    Dim rngCell As Range
        
    Application.ScreenUpdating = False
    
    For Each rngCell In Sheets("Dados").Range("N19:N50")
        If rngCell.Value = True Then
            With Sheets("Impressao")
                .Range("BF2").Value = rngCell.Offset(0, -2).Value
                .PrintOut
            End With
        End If
    Next rngCell
    
    Application.ScreenUpdating = True

End Sub

HTH

Robert

 

[jgalas]

Is exactly what i wanted you save me a lot of hours working.
Thanks a lot Trebor.

 

[Trebor76]

You're welcome