copy and paste to new sht in one col
 

The below listed code
sheet1 macro copies from one sheet and then paste exact on sheet2 by column
How can I force the paste action to be in col A? each paste in col A

Sub aaaaa(
mysf = "xxx
myst = "yyyyy
For myrow = 11 To 15 Step
For mycol = 3 To 33 Step
myval = Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Valu
If myval = "yes" The
Sheets(myst).Range("a1").Offset(myrow - 9, mycol - 3).Value = Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Valu
End I
Next myco
Next myro
End Su

Thanks
Rozb

copy and paste to new sht in one col
 

first just try removing the offset. But, that will always be cell A1. So
where in col A do you want it? If the next avail row then you have to
qualify it.
Sheets(myst).Range("a1").Offset(myrow - 9, mycol - 3).Value
Sheets(myst).Range("a1").Value

x=sheets(myst).cells(rows.count,"a").end(xlup).row +1
Sheets(myst).Range("a" & x).Value
--
Don Guillett
SalesAid Software

"rozb" wrote in message
...
The below listed code :
sheet1 macro copies from one sheet and then paste exact on sheet2 by
column.
How can I force the paste action to be in col A? each paste in col A?

Sub aaaaa()
mysf = "xxx"
myst = "yyyyy"
For myrow = 11 To 15 Step 1
For mycol = 3 To 33 Step 1
myval = Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Value
If myval = "yes" Then
Sheets(myst).Range("a1").Offset(myrow - 9, mycol - 3).Value =
Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Value
End If
Next mycol
Next myrow
End Sub

Thanks,
Rozb

copy and paste to new sht in one col
 

Thank you Don
Will try it
Found a funny workaround by accident. and it works. Still trying to break it

Thanks again as always for you coaching

Public Sub CheckProductTypePaste(
mysl = "Select
myselt = "SelectSummary
CheckProductTypeProces
x =
For myrow = 11 To 15 Step
For mycol = 3 To 33 Step
myval = Sheets(mysl).Range("a1").Offset(myrow - 1, mycol - 1).Valu
If myval < isblank The
Sheets(myselt).Range("A" & x).Value = Sheets(mysl).Range("a1").Offset(myrow - 1, mycol - 1).Valu
End I
Application.CutCopyMode = Fals
x = x +
Next myco
Next myro
End Su

----- Don Guillett wrote: ----

first just try removing the offset. But, that will always be cell A1. S
where in col A do you want it? If the next avail row then you have t
qualify it
Sheets(myst).Range("a1").Offset(myrow - 9, mycol - 3).Valu
Sheets(myst).Range("a1").Valu

x=sheets(myst).cells(rows.count,"a").end(xlup).row +
Sheets(myst).Range("a" & x).Valu
--
Don Guillet
SalesAid Softwar

"rozb" wrote in messag
..
The below listed code
sheet1 macro copies from one sheet and then paste exact on sheet2 b
column
How can I force the paste action to be in col A? each paste in col A
Sub aaaaa(
mysf = "xxx
myst = "yyyyy
For myrow = 11 To 15 Step
For mycol = 3 To 33 Step
myval = Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Valu
If myval = "yes" The
Sheets(myst).Range("a1").Offset(myrow - 9, mycol - 3).Value
Sheets(mysf).Range("a1").Offset(myrow - 1, mycol - 1).Valu
End I
Next myco
Next myro
End Su
Thanks
Roz