kaydet makrosu

[MAYKMAYKMAYK]

Sub KAYDET()
' KAYDET Makro

Dim LR As Long, i As Long, cls
cls = Array("E7", "E8")

With Sheets("taslak")
LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1)
For i = LBound(cls) To UBound(cls)
.Cells(LR, i + 1).Value = Sheets("VeriGiris").Range(cls(i)).Value
Next i
End With
End Sub
macrom bu e7 e8 değilde e1 den e255 e kadar verilerimi nasıl aktarabilirim macromu nasıl düzenlemem gerek e140 dan sonra yazamıyorum yardımlarınız için şimdiden teşekkür ederim

 

[Ziynettin]

Bu şekilde deneyin.

Sub kaydet()
Dim LR As Long, _
    i As Long, _
    cls()
    cls = Sheets("VeriGiris").Range("E7:E10").Value
    With Sheets("taslak")
        LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1)
        For i = LBound(cls) To UBound(cls)
            .Cells(LR, i).Value = cls(i, 1)
        Next i
    End With
End Sub

cls = Sheets("VeriGiris").Range("E7:E10").Value satırında tablo araloğını "E7:E10" kendinize göre uyarlayın.

 

[MAYKMAYKMAYK]

Bu şekilde deneyin.

Sub kaydet()
Dim LR As Long, _
    i As Long, _
    cls()
    cls = Sheets("VeriGiris").Range("E7:E10").Value
    With Sheets("taslak")
        LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1)
        For i = LBound(cls) To UBound(cls)
            .Cells(LR, i).Value = cls(i, 1)
        Next i
    End With
End Sub

cls = Sheets("VeriGiris").Range("E7:E10").Value satırında tablo araloğını "E7:E10" kendinize göre uyarlayın.

zaman ayırdığın için çok teşekkür ederim yalnız bu kod alt alta değilde yukardan aşağıya bide üstüne yazıyor alt alta 2500 değerim var makroya her bastımda alt alta yazmasını istiyoru