merhabalar...
şöyle bir kodum var.
Dim i As Long
i = Sheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row + 1
If i < 10 Then i = 10
Range("c2").Copy
Sheets("Sayfa1").Range("C" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
yazmaya başlamasını istediğim hücre tabloya ait olduğu için tablonun altından yazmaya başlıyor.
(d10 dan başlayarak yazmasını istiyorum ama d11-d13 arası tabloya ait olduğu için d14 den yazmaya başlıyor)
şöyle bir kodum var.
Dim i As Long
i = Sheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row + 1
If i < 10 Then i = 10
Range("c2").Copy
Sheets("Sayfa1").Range("C" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
yazmaya başlamasını istediğim hücre tabloya ait olduğu için tablonun altından yazmaya başlıyor.
(d10 dan başlayarak yazmasını istiyorum ama d11-d13 arası tabloya ait olduğu için d14 den yazmaya başlıyor)