copy a variable range

[methode2404]

Hi,

i have to copy a variable range in a for next loop,
"s" is a variable

the line in bold doesn't work
it should copy the range from activecell to row "s" (s is a integer)

Sheets("taslak").Activate
ActiveCell.Offset(0, 1).Select
Range(Cells(0, 0), Cells(0 & s)).Select
Selection.Copy

Who can help me

Best regards
Metin

 

[MARK858]

There is no such thing as a Cells with 0 rows or 0 columns.
You probably want

Range (Cells(ActiveCell
.Row,ActiveCell.Column),Cells(ActiveCell.Row,s))

 

[Yongle]

S = 25 is for illustration only

Sub SelectRange()
    Dim cel As Range, s As Long
    s = 25
    Set cel = ActiveCell
    Range(cel, Cells([COLOR=#ff0000]s[/COLOR], cel.Column)).Select
End Sub

There is no requirement to select a range to copy it

Sub SelectRange()
    Dim cel As Range, s As Long
    s = 25
    Set cel = ActiveCell
    Range(cel, Cells([COLOR=#ff0000]s[/COLOR], cel.Column)).Copy
End Sub

 

[methode2404]

I know it's wrong (it doesn't work)
can you say how it's work ?
it should copy the range from activecell to row "s" (s is a integer)

for example : activecell is c7
and s=12

it should select the range C7:C12

select activecell:same_column,row 12

 

[Yongle]

test post#3 solution

 

[methode2404]

it's works fine YONGLE, many thanks.

 

[Yongle]

Thanks for the feedback

 

[MARK858]

Eek, and apologies for my bad on putting the s as the column. Teach me to post code on my phone