merhaba excel sayfasında sutunlarda olan bilgilerin alt alta gelmesini istiyorum bunun için yardım edebilirmisiniz.
Ekli dosyalar
-
14.5 KB Görüntüleme: 15
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aktar()
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("F:G").ClearContents
sat = 1
For i = 2 To Cells(65536, "A").End(xlUp).Row
sat = sat + 1
Range("F" & sat & ":G" & sat).Value = Range("A" & i & ":B" & i).Value
sat = sat + 1
Range("F" & sat & ":G" & sat).Value = Range("C" & i & ":D" & i).Value
sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "İşelm bitti.", vbOKOnly + vbInformation, Application.UserName
End Sub
Sorunuz ve tablonuzdan anladığım kadarıyla birşeyler yaptım.Merhabalar yan yana olan verileri alt alta dizmekle ilgili bii sıkıntım yardımlarınızı bekliyom gerekli açıklama ekte mevcut