KTF ile boş satır silme

[siyahyedili]

Merhabalar,

Kullanıcı tanımlı fonksiyon ile boş olan satırlar nasıl silinir?

Forumda örnekler var ama ben ktf ile nasıl yapılabileceğini merak ediyorum. Mümkün müdür?

Şimdiden teşekkürler..

 

[siyahyedili]

üstadlarım,
mümkün değil mi istediğim şey?

 

[hamitcan]

Formülü aşağıdaki şekilde kullanın.

=BosSatir("a";SATIR())

Function BosSatir(SutunAdi As String, SatirNo As Long)
Dim arr()
Application.Volatile
For i = 1 To Range(SutunAdi & 65536).End(3).Row
    If Cells(i, SutunAdi) <> "" Then
        k = k + 1
        ReDim Preserve arr(k)
        arr(k) = Cells(i, SutunAdi)
    End If
Next
BosSatir = arr(SatirNo)
End Function

 

[siyahyedili]

Sayın hamitcan,

öncelikle ilginiz için teşekkür ederim..

kodunuz çok işime yaradı. Hatta istediğimden öte bir çözüm olmuş.

Eğer zamanınız varsa kodun çalışma prensibini açıklayabilir misiniz?

Örneğin Application.Volatile ne işe yarıyor?

 

[hamitcan]

Application.Volatile: fonksiyonu, tetiklemek, uyandırmak yada tekrar hesaplanmasını sağlamak gibi anlamlara geliyor. Zannedersem, geçmişte okuduğum, yabancı bir makaleye göre, Excel'in 97 versiyonunda, bu komut(Application.Volatile) olmadan Ktf fonksiyonları çalışmıyordu, sonrakiler için ise, gerekli olmadığı; kullanılsa da birşey değiştirmeyeceği şeklinde bir bilgi okumuştum. Benim kullanma sebebim de işi sağlama almak idi. Ama, dediğim gibi, bu komut çıkarılsa da fonksiyonun çalışacağını düşünüyorum. Daha detaylı bilgi için; Sayın yurttas'ın konuyla ilgili makalesini de inceleyebilirsiniz. http://www.excel.web.tr/f60/volatile-oynak-fonksiyonlar-t74745.html
Gelelim kodun mantığına, belirlenen sütundaki son satıra bir döngü çalışmakta ve boş olmayan hücreleri tespit etmekte, daha sonra belirlenen bu hücreler, bir diziye alınmakta, son olarak ise, dizideki sırasıyla aktif hücrenin satır numarası ilişkilendirilerek formül değerini oluşturmakta.

 

[siyahyedili]

Sayın hamitcan,

Açıklamalarınız için çok teşekkür ederim.
Sn. yurttaş'ın makalesi de oldukça faydalı oldu.
Bu gün de sayenizde yeni bir şey öğrendim.

İyi akşamlar..