Yanyana Sütunları Tek Bir Satır Haline Getirmek

[uakkoc]

Merhaba arkadaşlar;

Ekteki dosyada olduğu gibi 3 satır ve 23 sütundan oluşan verim var. Ben bunları tek bir satırda alt alta yazmak istiyorum. Yani, alt alta a1,a2,a3,b1,b2,b3,c1,... şeklinde.

Ve bunu defalarca tekrar yapmam gerekiyor.

Yardımcı olabilecek var mı? Şimdiden teşekkürler.

 

[excelci1]

A4

=DOLAYLI(ADRES(1;YUKARIYUVARLA((SATIR()-3)/3;0)))

A5

=DOLAYLI(ADRES(2;YUKARIYUVARLA((SATIR()-3)/3;0)))

A6

=DOLAYLI(ADRES(3;YUKARIYUVARLA((SATIR()-3)/3;0)))

yaz ve formülleri aşağıya doğru kopyala

kolay gelsin

 

[SEMAY77]

Merhaba uakkoc,

excelci1 Gerçekten çok güzel bir formül yazmış.Bende makro yaparak yardımcı olmak istemiştim.

İyi çalışmalar!

 

[Necdet]

Bir makro örneği de benden olsun.

Sayfa1 den okur, sayfa2 ye yazar.

Sub SatSut()
    
    Dim Kol As Integer, _
        Sat As Long, _
        i   As Long, _
        j   As Long, _
        s2  As Worksheet
    
    With Application
        .ScreenUpdating = False
    End With
    
    Set s2 = Sheets("Sayfa2")
    s2.Cells.ClearContents
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Sat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    j = 1
    For i = 1 To Sat
        Range(Cells(i, "A"), Cells(i, Kol)).Copy
        s2.Range("A" & j).PasteSpecial Transpose:=True
        j = j + Kol
    Next i
    
    Application.CutCopyMode = False
    
End Sub

 

[SEMAY77]

Merhaba Nejdet bey,

İstenen sıralama gözünden kaçmış zannedersem.a1,a2,a3,b1,b2,b3,c1,...

İyi çalışmalar!

 

[Necdet]

Merhaba Nejdet bey,

İstenen sıralama gözünden kaçmış zannedersem.a1,a2,a3,b1,b2,b3,c1,...

İyi çalışmalar!

Evet ona dikkat etmedim, bu da altarnatif olsun o zaman

 

[fresha1602]

Merhabalar,
Benim de buna benzer bir dosya ile problemim var.
Fonksiyonlar bolumunun altında "transpose, makro ya da crosstab hangisi ile coulebilir?" baslıklı bir soru sormustum.Sağolsun Emrehan26 yardımcı oldu ancak formulu kopyalamak bu işlemin 20bin kod için dusunulurse cok zor olacak . Bunu da makroyla cozmek için yardımcı olur musunuz ?

Dosyadaki 2.ve 3. satırdaki baslıkların yatay değil dikey sıralanmasını , bunlar sıralanırken de A kolonundaki sayıların tekrar etmesini ve bu verilere karşılık gelen değerlerin de dikey sıralanmasını istiyorum. Onceki ve olması gereken tablolar ekteki dosyadadır. Ekteki dosyada Gri boyalı alan emrehan26 nın formullestirdiği alandır.


Teşekkürler

 

[fresha1602]

Merhaba;

Macroya gerek kalmadan dosyayı formulasyonu geliştirip sorunumu hallettim. Gri boyalı alan formulasyonun oldugu olmasını istediğim alan. Umarım ihtiyacı olanlara da faydalı olur.

 

[Necdet]

Sorun çözülmüş ama benim de emeğim boşa gitmesin bari
2. sayfada düzenler.

Sub Duzenle()
 
    Dim i   As Long, _
        j   As Long, _
        k   As Long, _
        Kol As Integer, _
        Sh1 As Worksheet, _
        Sh2 As Worksheet
 
    Set Sh1 = Sheets("Sheet1")
    Set Sh2 = Sheets("Sheet2")
 
    Kol = Sh1.Cells(2, Columns.Count).End(1).Column
 
    Application.ScreenUpdating = False
 
    Sh2.Range("A1:D" & Rows.Count).Clear
 
    For i = 4 To 6
        j = Sh2.Cells(Rows.Count, "B").End(3).Row + 1
        Sh2.Cells(j, "A") = Sh1.Cells(i, "A")
        Sh1.Range(Sh1.Cells(2, "B"), Sh1.Cells(3, Kol)).Copy
        Sh2.Range("B" & j).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Sh1.Range(Sh1.Cells(i, "B"), Sh1.Cells(i, Kol)).Copy
        Sh2.Range("D" & j).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        k = j + Kol - 2
        Sh2.Range("A" & j & ":A" & k).FillDown
 
    Next i
 
    With Sh2.Range("A2:D" & k)
        .Sort Key1:=Sh2.Range("A1")
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
        .Borders.LineStyle = xlNone
        .Font.Bold = False
    End With
 
    With Application
        .ScreenUpdating = False
        .CutCopyMode = False
    End With
 
    MsgBox "İşlem Tamamdır..."
 
End Sub

 

[fresha1602]

Emeğinize, elinize sağlık Necdet Bey ;

Yeri gelmişken sormak isterim.
Benim excelim ingilizce , turkçe formulleri ya da makroları ingilizceye cevirebileceğim bir yontem ya da arac var mıdır?

Teşekkürler