Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End Sub
Sub copyc3toothersheet()
With Sheets("sheet14")
If Len(Application.Trim(.Range("a5"))) < 1 Then
lr = 5
Else
lr = .Cells(4, "a").End(xlDown).Row + 1
End If
'MsgBox lr
Range("c3").Copy .Cells(lr, "a")
End With
End Sub
Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If shw.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub
Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If sh2.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.