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

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

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