biren fazla sütun başlıklı tabloyu farklı formata çevirme

[modoste]

merhaba sayın hocalarım ekli tablomda sorumu ilettim
forumda arama yaptım ancak benim soruma benzer soru bulamadım.

 

[s4kinqz]

Pivot tablo işinizi görür diye düşünüyorum.

 

[modoste]

birden fazla farklı farklı bu tarzda işlenmiş tabloları sorudaki gibi dönüştürmem gerekiyor.
kimisi 3 satırlık kimisi 50 satırlık

 

[ÖmerFaruk]

Fonksiyon kısmında sorduğunuz için sonuç bir hayli külfetli. KTF ya da Makrolarla çok rahat çözülür.
Makroyla çözüm.

Sub TabloOluştur()
Dim Alan1 As Range
Dim Alan2 As Range
On Error Resume Next
Application.DisplayAlerts = False
Set Alan1 = Application.InputBox("Hücre seçin", Type:=8)
Set Alan2 = Application.InputBox("Hücre seçin", Type:=8)
If Alan1 Is Nothing Or Alan2 Is Nothing Then
    MsgBox "Alanları Tekrar Seçin"
    GoTo Son
End If
Range(Alan2.Address) = "Tarih"
Range(Alan2.Address).Offset(0, 1) = "Malzeme"
Range(Alan2.Address).Offset(0, 2) = "Miktar"

For i = Alan1.Row + 1 To Alan1.Rows.Count + Alan1.Row - 1
    For k = Alan1.Column + 1 To Alan1.Columns.Count + Alan1.Column - 1
        If Cells(i, k) > 0 Then
            x = x + 1
            Range(Alan2.Address).Offset(x, 0) = Cells(i, Alan1.Column)
            Range(Alan2.Address).Offset(x, 1) = Cells(Alan1.Row, k)
            Range(Alan2.Address).Offset(x, 2) = Cells(i, k)
        End If
    Next k
Next i
Son:
Application.DisplayAlerts = True
End Sub

 

[modoste]

çözüm için teşekkür ederim.
makro çok kullanışlı her makro çalıştırıldığında tablo aralık olarak mouse ile seçebiliyoruz ve nerden itibaren listelenmesini istiyorsak orayıda seçmemizi istiyor.
emeğinize sağlık bugün içinde 1-2 sorum daha oldu foruma inşallah formüllü yada makrolu çözümler gelir.