Tablo Oluşturma

[DrsnDrsn]

Selamlar, şu şekilde tablo oluşturmak istiyorum.
Örnek, A1:A30
D1:E30
K1:N30
boyutlarda ki verileri yan yana sutun şeklinde formüller ile nasıl yazdırabilirim.

Not: verilerin satırları eşit sutun sayıları farklı

 

[uzmanamele]

Selamlar, şu şekilde tablo oluşturmak istiyorum.
Örnek, A1:A30
D1:E30
K1:N30
boyutlarda ki (Boyutlardaki: B büyük ve -ki bitişik yazılır) verileri yan yana sutun (sütun) şeklinde formüller ile nasıl yazdırabilirim.(soru cümlesi: ? ile bitmeli)

Not: verilerin satırları eşit sutun sayıları farklı

Merhaba

Sorunuzu ek dosya ile destekleyiniz.

 

[DrsnDrsn]

Örnek çalışma dosyası,

 

[uzmanamele]

Merhaba

Makro ile deneyiniz.
Formül için bilahare bakarız.

 

[DrsnDrsn]

Teşekkürler. Bekliyor olacağım

 

[DrsnDrsn]

Merhaba

Makro ile deneyiniz.
Formül için bilahare bakarız.

Ek olarak sonuçları farklı sayfada göstermek istesem kod satırına ne yazmam gerekecek?

 

[uzmanamele]

Ek olarak sonuçları farklı sayfada göstermek istesem kod satırına ne yazmam gerekecek?

Merhaba

Bunu deneyiniz.

Sub VerileriKaydir_2()
Application.ScreenUpdating = False

Set s2 = Worksheets("Sayfa2")
Set s3 = Worksheets("Sayfa3")
s3.Range("A1:W50").ClearContents

Dim deg(1 To 500) As Variant
For i = 1 To 10
X = 0
For j = 1 To 15
If s2.Cells(i, j) <> "" Then
X = X + 1
deg(X) = s2.Cells(i, j)
End If
Next
    For k = 1 To 15
    s3.Cells(i, k) = deg(k)
    deg(k) = Empty
    Next
Next

Application.ScreenUpdating = True
End Sub

 

[DrsnDrsn]

Teşekkür ederim.

 

[uzmanamele]

Merhaba

Ek dosyada istediğiniz her seçenek var.