bir hücredeki bilgiyi formülle altındaki satırların solundaki koluna kopyalama

[sirvan]

Merhaba, bir sütunda, başlıklar ve altlarında da o başlığa ait bilgiler satır satır var. Bilgilerin en üstündeki hücredeki bilgiyi formülle, altındaki satırların solundaki kolona satır satır kopyalamak istiyorum. Çünkü, o kolonda bulunan bu şekildeki başlık ve bilgi sayısı çok fazla ve değişken aralılarla. Bu nedenle başlık her değiştiğinde bunu alıp altındaki satırların solundaki kolona, bir dahaki başlık değişene kadar kopyalamasını istiyorum. "kaydır" ve "kaçıncı" fonksiyonlarıyla halletmeye çalıştım ama başaramadım. Yardımcı olabilirseniz çok memnun olacağım. Tablonun küçük bir kısmını ekte örnek olarak bulabilirsiniz. İlgilenenlere şimdiden teşekkürler.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Dosyanızı 2003 formatında yolarsanız daha çabuk yanıt alabilirsiniz.2007 herkeste yok çünkü.Bendede.

[sirvan]

dosyayı 2003 formatında ekledim. Teşekkürler.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Bunun için elimizde bir kıstas olmalı.Bende bu kıstası aranılacak olan değer string değer olarak kabul ettim.Azalan döngüye girerek String değeri bulduğunda onu başlık kabul ediyor.
Aşağıya yazdığım Kullanıcı tanımlı fonksiyonu boş stab-ndart bir modüle yapıştırınız.
Sonra formülünüzü yazınız.Dosyanız ektedir.

Kod: [Seç]

Function baslik_bul(deg As Range) As String
If deg = "" Then Exit Function
If Not IsNumeric(deg) Then baslik_bul = deg: Exit Function
sat = deg.Row - 1
Do While sat > 1 And IsNumeric(Cells(sat, deg.Column))
    sat = sat - 1
Loop
baslik_bul = Cells(sat, deg.Column).Value
End Function

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]