I am trying to run the following macro and it dies when
it reaches "Range("A(i):C(j)").Select". What am I doing
wrong? Please help.

TIA

Pingger


Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop

Try

Range("A" & i & ":C" & j).Select
makes a string A1:C21
You'll probably also neet to change
Range("F" & k).Select

Dan E

"pingger" wrote in message
...
I am trying to run the following macro and it dies when
it reaches "Range("A(i):C(j)").Select". What am I doing
wrong? Please help.

TIA

Pingger


Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop

I responded to the other identical question posted at 21:24 - check that one
out.

--

HTH

Bob Phillips

"pingger" wrote in message
...
I am trying to run the following macro and it dies when
it reaches "Range("A(i):C(j)").Select". What am I doing
wrong? Please help.

TIA

Pingger


Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop

Ahhhhhhh! Works like a charm. Thanks a million, Dan E!!!

Pingger


-----Original Message-----
Try

Range("A" & i & ":C" & j).Select
makes a string A1:C21
You'll probably also neet to change
Range("F" & k).Select

Dan E

"pingger" wrote in message
...
I am trying to run the following macro and it dies when
it reaches "Range("A(i):C(j)").Select". What am I doing
wrong? Please help.

TIA

Pingger


Dim i As Integer, j As Integer, k As Integer
i = i + 1
j = j + 1
k = k + 1
j = j + 21

Do While j < 1100
Range("A(i):C(j)").Select
Selection.Copy
Range("F(k)").Select
Selection.PasteSpecial
Paste:=xlValues,Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
i = j + 1
j = i + 21
k = k + 3
Loop



.