Yatay genişleyen tabloyu, sütuna çevirmek

[igultekin2000]

İyi çalışmalar;
E tablo üzerinden veriler geliyor ve sayfa1 olarak listeleniyor. Araç sayısına göre sütun sola doğru genişliyor ve ortak nokta sadece tarih ve zaman damgası olabilir.
Sayfa1 deki verileri Sayfa2'de üç sütunlu veri haline getirmek istiyorum. İlaveten zaman damgası da olabilir. Firmanın birden fazla aracı olduğunda alt alta yazarak karşılığında firmanın ismini ve şehrini getirmek istiyorum. İşlem gereği makro olmadan Excel formülü ile nasıl yapabilirim. Örnek çalışma sayfası ektedir. Teşekkür ederim.

 

[Necdet]

Merhaba,

Kodları bir modüle kopyalayıp deneyiniz.

Public Sub Duzenle()

    Dim i   As Long, _
        j   As Long, _
        k   As Integer
    
    Application.ScreenUpdating = False
    
    Sayfa2.Range("B1").CurrentRegion.Offset(1).ClearContents
    
    j = 1
    
    For i = 2 To Sayfa1.Cells(Rows.Count, "B").End(3).Row
    
        k = 4
        Do
        
            j = j + 1
            Sayfa2.Cells(j, "B") = Sayfa1.Cells(i, "B")
            Sayfa2.Cells(j, "C") = Sayfa1.Cells(i, "C")
            Sayfa2.Cells(j, "D") = Sayfa1.Cells(i, k)
            k = k + 1
            
        Loop Until Sayfa1.Cells(i, k) = ""
        
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlanmıştır...."
    
End Sub

 

[igultekin2000]

Teşekkür ederim makro sorunsuz çalışıyor, bilgisayarımda işlemi yapabiliyorum. Bu arada bilgi E tablo üzerinden geliyor, indirip işlem yapabiliyorum. E tabloda makro kaydet dışında makro çalıştıramıyorum o yüzden formül tercih ediyorum. Böyle makroların E tablo üzerinde de çalışması için bir kolaylık var mı? Bazen E tablo üzerinde de işlem yapmam gerekiyor. İyi çalışmalar.

 

[Necdet]

Merhaba,

e-tablo dediğiniz sanırım google'ın e-tablosu olsa gerek.
Onun makroları çok farklı.
Onu da öğrenmek gerek

 

[igultekin2000]

Evet makro kaydet olarak yapılabilenler oluyor da normal makroyu uyarlamak olmuyor. Ama çok şükür formüller kullanılıyor.