Vba Problem
Hi
I have a macro that does almost what i want, but it misses me some detail.
The objective is to copy to other sheet some data, but this formula makes
two things i cant control, it duplies information if i click 2 times macro
button, and it goes to First row in the sheet i want.
I would like to control this 2 elements. How can i?
Thanks
Sub Ferias2()
For i = 7 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A").Value = "1" Then
With Worksheets("1")
nextrow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
Cells(i, "C").Resize(, 36).Copy Worksheets("1").Range("A" &
nextrow)
End If
next i
End Sub
|