Makroda düzenleme

[igultekin2000]

iyi günler; formda makro bulmuştum kullanıyorum ama ufak bir sorunum var.

Sub Aktar()

    Set Sb = Sheets("Bilgi Girişi")
    Set S1 = Sheets("Sayfa1")
    
    Application.ScreenUpdating = False
    S1.Range("A1:DJ5").ClearContents
    
    For i = 2 To 6
        Sb.Cells(7, i).Resize(120 - 6, 1).Copy
        S1.Cells(i - 1, "A").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Next i
    
    S1.Select
    Range("A1").Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

makro devrik dönüşüm, ilk satıra ilk sütün özelliği veriyor. Veriyi sayfa 1' e A hücresinden başlayarak kopyalıyor. ben ise C hücresinden başlatmak istiyorum. mevcut kod üzerinde harfleri değiştirdiğim halde işleyişi değişmiyor. Kopyalamayı A1 hücresinden başlatıyor.

 

[isteobenim]

Merhaba,

Kodunuzda aşağıda işaretli olan "A" değerini "C" olarak değiştirince istediğiniz olabilir.

S1.Cells(i - 1, "A").PasteSpecial Paste:=xlPasteValues, Transpose:=True

 

[igultekin2000]

Merhaba,

Kodunuzda aşağıda işaretli olan "A" değerini "C" olarak değiştirince istediğiniz olabilir.

S1.Cells(i - 1, "A").PasteSpecial Paste:=xlPasteValues, Transpose:=True

C5 olarak deniyordum hata veriyordu, teşekkürler