Soru Koşullu Hücre Değer Birleştirme

[bybaskomutan]

Takip Listesinde :

B sütununda isimler C sütununda da durumu bilgileri yer almaktadır.

C2 Hücresine durumunda (CSutunda) Hasta yazan personelin isimlerini yazdırmak istiyorum. yardımcı olabilirmisiniz.

-----TAKİP LİSTESİ ---

Hasta olan ; Hasan, Derya, Melek
(A) (B) (C)
S. NO - ADI SOYADI -- DURUMU
1 ALİ
2 HASAN HASTA
3 AHMET
4 DERYA HASTA
5 MELEK HASTA

 

[Ömer]

Merhaba,

Deneyiniz. D1 hücresine yazar.

Sub yaz()

    Dim c As Range, Adr As String, d As String
    
    Set c = [C:C].Find("HASTA", , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            d = d & ", " & Cells(c.Row, "B")
            Set c = [C:C].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
    
    [D1] = "Hasta olan; " & WorksheetFunction.Substitute(d, ", ", "", 1)
    
End Sub

 

[bybaskomutan]

Merhaba,

Deneyiniz. D1 hücresine yazar.

Sub yaz()

    Dim c As Range, Adr As String, d As String
   
    Set c = [C:C].Find("HASTA", , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            d = d & ", " & Cells(c.Row, "B")
            Set c = [C:C].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
   
    [D1] = "Hasta olan; " & WorksheetFunction.Substitute(d, ", ", "", 1)
   
End Sub

Hocam teşekkür ederim. Bunu formülle yapmamız mümkün mü acaba.

 

[bybaskomutan]

Hocam güncelleme yapmıyor kodu run yapmadıkca

 

[Ömer]

Evet kodu çalıştırmanız gerekiyor.
Veri birleştirme olacağı için yerleşik fonksiyonlarla yapmayı tavsiye etmem, oldukça fazla yardımcı hücre kullanmanız gerekebilir. Kodu çalıştırmadan yapmak için tetikleme yada KTF ( yine makro ile kullanıcı tanımlı fonksiyon) kullanarak yapılabilir.

 

[bybaskomutan]

Evet kodu çalıştırmanız gerekiyor.
Veri birleştirme olacağı için yerleşik fonksiyonlarla yapmayı tavsiye etmem, oldukça fazla yardımcı hücre kullanmanız gerekebilir. Kodu çalıştırmadan yapmak için tetikleme yada KTF ( yine makro ile kullanıcı tanımlı fonksiyon) kullanarak yapılabilir.

Elinize emeğinize sağlık teşekkür ederim hocam.

 

[Korhan Ayhan]

Kullanıcı tanımlı fonksiyon için inceleyiniz.

Sütun başlıklarını satıra yazdırma

Arkadaşlar Şöyle bir tablo var. Buradaki satırlara veri girdiğimde o sütünün başlığını yazmasını istiyorum. İki veri girdiğimde de ikisinin birden gelmesi gerekiyor. Mantığını çözemedim. Konuyla ilgili yardımcı olabilir misiniz?

www.excel.web.tr