Veri kaydı için döngü

[feryat]

Abcd sütununda yer alan tablodaki tüm veriyi yandaki alana satır olarak kaydetmek istiyorum.

Hücre hücre yaptığımda işlem oldukça uzun sürüyor. Bu işi daha hızlı yapabilecek bir döngü yazmak mümkün mü acaba ?

Dosya ekte.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Dim Satir As Long, Sutun As Integer
 
    Satir = Cells(Rows.Count, "F").End(xlUp).Row + 1
    Sutun = 12
 
    Cells(Satir, "F") = Satir
 
    For X = 8 To 29
        For Y = 1 To 4
            Cells(Satir, Sutun) = Cells(X, Y)
            Sutun = Sutun + 1
        Next
    Next
 
    UserForm_Initialize
End Sub

 

[feryat]

Çok teşekkür ederim. Kod gayet güzel çalışıyor.

 

[Korhan Ayhan]

Merhaba,

Kodda küçük bir düzeltme yaptım. Son halini kullanınız.