Excelde alt alta yazılı düzensiz sayıları sütuna çevirme

[Katip1834]

İyi çalışmalar arkadaşlar. Sorumun cevabını forumda aradım bulamadim. Yardımcı olursanız sevinirim.

Excelde alt alta 6730 hücrede düzensiz sayılar var. Bunları yanyana gelecek şekilde ama 19 sütun şeklinde düzenlemek istiyorum. Acaba bunun formülü var mıdır. (Baktım bulamadım). Veya raporlara sistemi gibi birşeyle yapılabilir mi.

 

[hamitcan]

devrik dönüşüm(transpose) fonksiyonunu kullanmayı deneyin.

 

[Katip1834]

Cevabınız için teşekkür ederim. Oda teker teker 19 sayıyı bulup işlem yaptırıyor. Daha kısa bir çözüm var mı.

 

[veyselemre]

Sub test()
   'With Sheets("Sheet1").Range("A:A") 'veriler A sütununda ise
    With Sheets("Sheet1") 'veriler tüm sayfadan alınacak ise
        If WorksheetFunction.CountA(.Cells) = 0 Then Exit Sub
        Set Rng = .Cells.SpecialCells(xlCellTypeConstants)
    End With
    sut = 20
    With Sheets("Sheet2")
        .Cells.ClearContents
        For Each cell In Rng.Cells
            If sut = 20 Then sat = sat + 1: sut = 1
            Sheets("Sheet2").Cells(sat, sut).Value = cell.Value
            sut = sut + 1
        Next cell
    End With
End Sub

 

[Merhum İdris SERDAR]

.

Sayıların A1 hücresinden başladığını varsayarsak;

C1 hücresine:

=OFFSET($A$1;COLUMNS($A1:A1)-1+(ROWS($1:1)-1)*19;0)

=KAYDIR($A$1;SÜTUNSAY($A1:A1)-1+(SATIRSAY($1:1)-1)*19;0)

yazıp önce V1 hücresine kadar, sonra C1:V1 deki formülleri yeterince aşağıya kadar kopyalayın.

.

 

[Katip1834]

C1 hücresine mi iki formülü de yazmam gerekiyor

 

[Merhum İdris SERDAR]

.

Kullandığınız Excel sürümünüzün dilini belirtmediğiniz için, Formülün hem İngilizcesini ve hem de Türkçesini verdim. Excel Sürümümüz ne ise onu kullanacaksınız.

.

 

[Katip1834]

.

Sayıların A1 hücresinden başladığını varsayarsak;

C1 hücresine:

=OFFSET($A$1;COLUMNS($A1:A1)-1+(ROWS($1:1)-1)*19;0)

=KAYDIR($A$1;SÜTUNSAY($A1:A1)-1+(SATIRSAY($1:1)-1)*19;0)

yazıp önce V1 hücresine kadar, sonra C1:V1 deki formülleri yeterince aşağıya kadar kopyalayın.

.

Satirsaydaki parantez icerisindekiler kırmızı uyarısı veriyor. Acaba niçin

 

[Katip1834]

.

Kullandığınız Excel sürümünüzün dilini belirtmediğiniz için, Formülün hem İngilizcesini ve hem de Türkçesini verdim. Excel Sürümünüz ne ise onu kullanacaksınız.

.

Teşekkür ederim. Türkçe Office profesyonel plus 2016 Türkçe

 

[Merhum İdris SERDAR]

Teşekkür ederim. Türkçe Office profesyonel plus 2016 Türkçe

Bunu Profilinize yazmanız gerekli.

Örnek dosyayı burada bulabilirsiniz.

İndir sütun

Dosyayı indir sütun

dosya.co

.

 

[Katip1834]

Bunu Profilinize yazmanız gerekli.

Örnek dosyayı burada bulabilirsiniz.

İndir sütun

Dosyayı indir sütun

dosya.co

.

Allah razı olsun. harikasınız. çok teşekkür ediyorum.