Help by creat a counter

[nader]

PageSetup.PrintArea = "[COLOR="Blue"]Where I have to insert the counter[/COLOR]"

I want to make this code limit the columns (C2,D2,E2) that has data from the frist cell to the last cells in the columns by insert a counter.

 

[northwolves]

Not very cleary with your needs.Provide more details,please.

 

[erik.van.geit]

Hi, Nader,

To my sense this is what you need.

Sub test()
Dim LR As Long
 
    With Range("C2:D" & Rows.Count)
    LR = .Find("*", .Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False, False).Row
    End With
ActiveSheet.PageSetup.PrintArea = "C2:D" & LR
End Sub

kind regards,
Erik

 

[nader]

I tried this code to set area only the red data in these columns, but it didn't succes with me.
By the way there is a row between the data in red and black.

Dim i As Integer
For i = 1 To Rows.End(xlUp).Count
ActiveSheet.PageSetup.PrintArea = "C2:D2" & i
Next i

10 4000
22 3900
23 3800
5 1500
99 1200

7 1000
8 900
8 700
55 800
2 550
2 550

 

[erik.van.geit]

your question was "to the LAST cell"
so you mean till the first blank?

the code you displayed was not the code provided
if you react to this reply I will see what to do

 

[nader]

Yes, for the first blank.

 

[erik.van.geit]

try this

Sub test()
Dim LR As Long
 
    LR = Range("C2").End(xlDown).Row 

ActiveSheet.PageSetup.PrintArea = "C2:D" & LR
End Sub

typed off hand, typos possible
you can record a macro while pressing Ctrl + Arrow Down and you will get similar syntax

kind regards,
Erik

 

[nader]

Thank you very mush for help.
God bless you.

 

[erik.van.geit]

You're WELCOME!
This was the last one before vacation