Sonuç hata ise bir altaki satırdan veri al

[ikikan]

Sonuç hata ise bir altaki satırdan veri al formülü nasıl uygulana bilir?

Arkadaşlar örnek bir tablo ekledim yardımlarınızı bekliyorum!

 

[Ömer]

Sonuç hata ise bir altaki satırdan veri al formülü nasıl uygulana bilir?

Arkadaşlar örnek bir tablo ekledim yardımlarınızı bekliyorum!

Merhaba,

Ekteki dosyada uygulamayı açıkladım.

.

 

[ikikan]

Ömer bey yardımcı sütun kullanmadan yapamazmiyiz 20*20 lik tablo yapınca A sütunu cok fazla uzuyor?

 

[Ömer]

Makro kullanmak gerekir. Eğer makro işinize yararsa belirtin, ona göre tekrardan düzenleme yaparım.

 

[ikikan]

Makro veya KTF işimi görür Ömer bey ..

 

[Ömer]

Module kopyalayıp çalıştırın.

Sub Yerlestir()
 
    Dim hucre As Range, sut As Integer, sat As Long, alan As Range, ilk As Integer
 
    Set alan = Range("B4:U7") 'verinin alınacağı alan
    sat = 11 'verinin yazılacağı satır
    sut = 2 'verinin yazılacağı ilk sütun başlangıçı
 
    Application.ScreenUpdating = False
    Range(Cells(sat, sut), Cells(sat, Columns.Count)).Clear
 
    ilk = sut
    For Each hucre In alan
        If hucre <> "" Then
            Cells(sat, sut) = hucre
            sut = sut + 1
        End If
    Next hucre
 
    Range(Cells(sat, ilk), Cells(sat, sut - 1)).Borders.LineStyle = 1
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[ikikan]

Ömer bey makro veya sizin verdiğiniz formül ile bir şekilde işlemimi çözüyorum, fakat aklıma birşey takıldı onu sormadan edemiyeceğim size ve ilgilenen arkadaşlara örnek bir tablo gönderiyorum,
konuyu detaylı anlatım.

Sizin ve Korhan beyin verdiği kodlarla bir sonuca ulaşmaya çalıştım inceler ve fikrinizi söylerseniz sevinirim şimdiden teşekürler..

EĞERHATA(İNDİS($B$4:$U$9;SATIRSAY($A$4:$A4);KÜÇÜK(EĞER($B4:$U4<>"";SÜTUN($B$1:$U$1)-SÜTUN($B$1)+1;"-");SÜTUNSAY($B$1:B$1)-TOPLA.ÇARPIM(($B$3:$U3<>"")+0)));"")