tablo ıcınde deger olanları saga kaydırma

[kakara]

Merhaba ustadlarım tablo ıcındekı degerlerı bellı bır alana cekmek ıstıyorum detayları eklı dosyamda paylastım ılgınız ıcın tesekkur ederım

 

[Korhan Ayhan]

Deneyiniz.

Dizi formüldür..

Eğer Türkçe sürüm kullanıyorsanız formülü çevirmelisiniz. (Ayrıca bu bilgiyi profilinizde de güncellemenizde fayda var..)

F12;

=INDEX(G12:AB12;MATCH(TRUE;G12:AB12>0;0))

Ya da normal formül olarak aşağıdaki formülü deneyebilirsiniz.

=OFFSET(G12;;AGGREGATE(15;6;(COLUMN(G12:AB12))/(G12:AB12>0);1)-6)

 

[kakara]

@Korhan Ayhan ustadım ılgınız ıcın tesekkur ederım alt alta bırbırınden bagımsız cok tablo var ve her tablonun ıcını o sekılde duzeltmem gerekıyor makro ıle yapılabılme ıhtımalı var mıdır acaba ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Aktar()
    Dim Rng As Range, Formul As String
    
    Application.ScreenUpdating = False
    
    Formul = "=INDEX(G12:AB12,MATCH(TRUE,G12:AB12>0,0))"
    
    For Each Rng In Range("AC12:AC" & Cells(Rows.Count, "AC").End(3).Row)
        If IsNumeric(Rng) And Rng.Value > 0 Then
            Cells(Rng.Row, "F") = Evaluate(Replace(Formul, 12, Rng.Row))
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kakara]

@Korhan Ayhan ustadım verdıgınız kod sadece G12 ile AB12 arasındakını duzeltıyor ben g satırıyla ab satırı arasında olan hepsının kaydırılmasını ıstemıstım. bırbırınınden bagımsız aynı formatta 100 lerce tablo olusuyor o yuzden ılgınız ıcın tesekkurler

 

[Korhan Ayhan]

AC sütununda rakam içeren tüm hücreler için çalışmaktadır..