Hi can anyone help?
I want to add transpose to the line in red, is there a way to do this?
I would like the copy to transpose to AK20:AK21
Any help would be apprieciated
Regards
pwill
I want to add transpose to the line in red, is there a way to do this?
Code:
Private Sub CommandButton3_Click()
Set FromSht = Sheets("Sheet1")
Set ToSht = Sheets("Sheet2")
r = 2
While FromSht.Cells(r, "A") <> "" And FromSht.Cells(r, "C") <> ""
r = r + 1
Wend
If FromSht.Cells(r, "A") <> "" Then
FromSht.Cells(r, "C") = 1
FromSht.Range("A" & r & ":B" & r).[COLOR=#ff0000]Copy ToSht.Range("AK20:AL20")[/COLOR]
End If
End Sub
I would like the copy to transpose to AK20:AK21
Any help would be apprieciated
Regards
pwill
Last edited: