Filtrelenen Bir Sütundan Metin Alma

[keremnideck]

Merhaba arkadaşlar,

Ben İstanbul'dan Kerem yeni katıldım aranıza, gerçekten çok faydalı bir forum.Emeği geçen herkese çok teşekkürler.

Gelelim sorunuma; Filtreleme yapılan bir sütundan alttoplam ile sayıları alabiliyoruz aynı işlemi metin için nasıl yapabiliriz? Metinlerin toplamını istemiyorum tabi sadece filtre seçilmiş başlığı başka bir hücreye kopyalamak istiyorum.

Şimdiden teşekkürler.

 

[systran]

projene yeni bir modül ekleyip, aşağıdaki kodları yapıştır,
daha sonra çalışma sayfasında birleştirmek istediğin yerde =yeniBirleştir(aralık) olarak kullan. seçilen aralıktaki hücre değerlerini metin olarak birleştirir. eğer bir filtreleme varsa onları dahil etmez.

Function yeniBirleştir(ByVal aralık As Range) As String
Dim hucre As Range
Dim tmp_str As String
tmp_str = vbNullString
For Each hucre In aralık
    
    If (Not (IsEmpty(hucre))) And [COLOR="Red"](hucre.Rows.EntireRow.Hidden = False[/COLOR]) Then
        tmp_str = tmp_str & hucre
    End If
Next hucre
yeniBirleştir = tmp_str
End Function