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

Katılım
11 Kasım 2020
Mesajlar
4
Excel Vers. ve Dili
türkçe
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz. D1 hücresine yazar.
Kod:
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
 
Katılım
11 Kasım 2020
Mesajlar
4
Excel Vers. ve Dili
türkçe
Merhaba,

Deneyiniz. D1 hücresine yazar.
Kod:
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.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.
 
Katılım
11 Kasım 2020
Mesajlar
4
Excel Vers. ve Dili
türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kullanıcı tanımlı fonksiyon için inceleyiniz.

 
Üst