veriyi tablo sekmesinden alıp belli düzen dahilinde sonuç sutununa yazdırmak.

[senerozun]

Veriyi tablo sekmesinden alıp belli düzen dahilinde sonuç sutununa yazdırmak istiyorum. Gönderdiğim tablo örneğinde açıklamaya çalıştım. Makro oluşturarak bunu nasıl çözebiliriz.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim son As Long, i As Long, ilk As Long, bitis As Long
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Sheets("sonuc").Select
    Range("A8:M" & Rows.Count).Clear
 
    With Sheets("tablo")
        son = .Cells(Rows.Count, "B").End(xlUp).Row
        .Range("C11:C" & son).Copy Range("A8")
        .Range("D11:D" & son).Copy Range("C8")
        .Range("E11:E" & son).Copy Range("D8")
        .Range("H11:H" & son).Copy Range("F8")
        .Range("J11:J" & son).Copy Range("G8")
        .Range("I11:I" & son).Copy Range("H8")
        .Range("M11:M" & son).Copy Range("I8")
        .Range("L11:L" & son).Copy Range("J8")
        .Range("N11:N" & son).Copy Range("K8")
        .Range("O11:O" & son).Copy Range("L8")
        .Range("Q11:Q" & son).Copy Range("M8")
    End With
 
    bitis = Cells(Rows.Count, "D").End(xlUp).Row
 
    For i = 8 To bitis
        If Cells(i, "A") <> "" Then ilk = i
        If Cells(i + 1, "A") <> "" Or i = bitis Then
            son = i + 1
            Range("A" & ilk, "A" & son - 1).Merge
            Range("C" & ilk, "C" & son - 1).Merge
            Range("M" & ilk, "M" & son - 1).Merge
        End If
    Next i
 
    With Range("A8:A" & bitis & ",C8:C" & bitis & ",M8:M" & bitis)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
 
End Sub

Dosya ektedir.

.

 

[senerozun]

Ömer bey ellerinize saglık. Güzel olmuş. BU verileri tablo sekmesindeki kızmındaki verileri son satırı içine alacak şekilde nasıl makro oluşturabiliriz. Ben bununla ilgili yeni bir konu gönderdim. Yardımcı olabilirseniz sevinirim.

 

[Ömer]

Sayın senerozun,

Sorunuz net değil, dosya üzerinde sorunuzu detaylı açıklayarak aktarırmısınız.