kaydet macrosu yardım

[MAYKMAYKMAYK]

Sub KAYDET()
' KAYDET Makro

Dim LR As Long, i As Long, cls
cls = Array("F2:FB2")


With Sheets("arşiv")
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("TAHMİN").Range(cls(i)).Value
Next i
End With
End Sub
tahmin dosyasında f2 den fb2 ye kadar değerler var bu değerleri arşiv dosyasına a hücresinden başlayarak alt alta kaydetsin

 

[Korhan Ayhan]

Bu işinize yarar mı?

Option Explicit

Sub Aktar()
    Sheets("tahmin").Range("F2:FB2").Copy
    Sheets("arşiv").Range("A1048576").End(3)(2, 1).PasteSpecial , Transpose:=True
    Application.CutCopyMode = False
End Sub

 

[Korhan Ayhan]

Bu kod da olabilir.

Option Explicit

Sub Aktar()
    Dim Veri
    Veri = Sheets("tahmin").Range("F2:FB2").Value
    Sheets("arşiv").Range("A1048576").End(3)(2, 1).Resize(UBound(Veri, 2)) = Application.Transpose(Veri)
End Sub

 

[MAYKMAYKMAYK]

Bu işinize yarar mı?

Option Explicit

Sub Aktar()
    Sheets("tahmin").Range("F2:FB2").Copy
    Sheets("arşiv").Range("A1048576").End(3)(2, 1).PasteSpecial , Transpose:=True
    Application.CutCopyMode = False
End Sub

malesef olmadı benim vermiş olduğum kod çalışıyor ama f2:fb2 aralığını alamıyorum sadece f2 yi kaydediyor kodu f2:fb2 nasıl yazmam gerekiyor

 

[Korhan Ayhan]

Ben denedim ve olumlu sonuç aldım.

 

[MAYKMAYKMAYK]

Ben denedim ve olumlu sonuç aldım.

yukardan aşağı tek a sütununa dolduruyor a1-b1-c1 diye gitmesi lasımken a1-a2-a3 diye gidiyor

 

[Korhan Ayhan]

İkinci paylaştığım kodu deneyin.

 

[Korhan Ayhan]

Tamam durumu şimdi anladım. Siz A sütununa alt alta aktarsın deyince konu yanlış anlaşılıyor.

Birazdan doğru kodu paylaşırım.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Aktar()
    Dim Veri
    Veri = Sheets("tahmin").Range("F2:FB2").Value
    Sheets("arşiv").Cells(Rows.Count, 1).End(3)(2, 1).Resize(, UBound(Veri, 2)) = Veri
End Sub

 

[Korhan Ayhan]

Böyle de olabilir;

Option Explicit

Sub Aktar()
    Sheets("arşiv").Cells(Rows.Count, 1).End(3)(2, 1).Resize(, 153).Value = Sheets("tahmin").Range("F2:FB2").Value
End Sub