boşlukları üsttekine göre değil alttakine göre doldurma

[modoste]

merhaba sayın hocalarım
ekli dosyada sorumu ilettim çok boğuştuım ama çözemedim

formüllü çözüm office 2019 için olmalıdır
office 2021 için çözüm de olabilir

 

[Necdet]

Merhaba,
Soruyu Fonksiyon bölümende sormuşsunuz ama makro isterseniz aşağıdaki kodu kullanabilirsiniz.

Sub Doldur()

Dim arr As Variant
Dim i   As Long
Dim deg As Variant

arr = Range("Q7:Q" & Cells(Rows.Count, "Q").End(3).Row).Value

For i = UBound(arr, 1) To 1 Step -1
    If Not arr(i, 1) = "" Then
        deg = arr(i, 1)
    Else
        arr(i, 1) = deg
    End If
Next i

Range("Q7").Resize(UBound(arr, 1), 1) = arr

End Sub

 

[Korhan Ayhan]

Formülle alternatif..

=DOLAYLI("Q"&MİN(EĞER(Q7:$Q$54<>"";SATIR(Q7:$Q$54))))

 

[modoste]

Teşekkür ederim Korhan Hocam
Dolaylı kullanmadan alternatif çözümler formüller yapılabilir mi (tabloya satır eklendiğinde dolaylı ile Q sütunu değişmediğinden, ve 20000 satıra kadar formülü sürüklediğimde yavaşlamaya sebep olduğundan, ve öğrenmek adına)

 

[Korhan Ayhan]

Hız istiyorsanız makro kullanmanızda fayda var..

Ayrıca satır eklemeyle "Q" sütununun bir bağlantısını kuramadım.

Sanıyorum sütun eklendiğinde demek istediniz.

Bu durumda İNDİS ya da KAYDIR kullanabilirsiniz. Bunuda sizin yapabileceğinizi düşünüyorum.

 

[modoste]

evet sütun eklediğimizde Harf sorunu oluyo,
hocam dün akşam indis kaydır ve satırdaki son değer ARA2;1/... çok uğraştım ama çözemedim

 

[Korhan Ayhan]

İpucu vererek devam etmek istedim..

Önerdiğim formülde aşağıdaki kısım size SATIR numarasını vermektedir.

MİN(EĞER(Q7:$Q$54<>"";SATIR(Q7:$Q$54)))


Son önerdiğim fonksiyonların söz dizimleri ise aşağıdaki gibidir.

=İNDİS(Tablo_Dizisi;Satır;Sütun)
=KAYDIR(Başvuru;Satır;Sütun;Yükseklik;Genişlik)

Temelde gerek daha önce sorduğunuz sorulara verilen cevaplarda önerilen fonksiyonları irdeleyerek gerekse forumda geçirdiğiniz zamandan dolayı bu bilgilere haiz olduğunuzu düşünüyorum. Eğer bu anlamda eksikleriniz varsa acilen tamamlamanızda fayda var.. Fonksiyonların çalışma mantıklarını detaylıca öğrenmek için nette bulunan videolu anlatımları incelemenizi tavsiye ederim...

 

[modoste]

daha önce en üstte yazılanı bulma ile ilgili sorum ve çözümlere bakmıştım

sizin çözümdeki kurduğunuz mantığı anlayınca bu formülü kullanıp sonuçlara ulaştım
teşekkür ederim