formül ile hücre birleştirme

[xhilalx]

arkadaşlar herkeze iyi geceler dilerim
takıldığım bir konu hakkında yardımınıza ihtiyacım var
bir tablo yapıyorum yanlız tabloda şöyle bi gereksinimim var yapamıyorum

şu şekilde
diyelimki;
A1 hücresi 13 ise B1C1D1 hücresini ve altındaki B2C2D2 hücresini birleştir
yada şu şekilde
A1 13 ise B1C1D1 hücresini birleştir ve içine real yaz.
böyle bi formül mevcutmudur

yardımcı olan arkadaşlara şimdiden teşekkür eder ve yine iyi geceler dilerim. herkeze kolay gelsin.

 

[ExcelF1]

Formül (işlev) ile hücre birleştirmesi yapılamıyor diye biliyorum ama, yanlış biliyor da olabilirim.

Ben makro'yu tavsiye ederim.

 

[xhilalx]

arkadaşlar bunu nasıl çözebilirim bir bilgisi olan arkadaşım varmı ?

 

[Ömer]

Merhaba,

Eğer amaçınız hücreleri birleştirmek ise bu işlemi formül ile yapamazsınız makro kullanmanız gereki.

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Range("B1:D2").UnMerge
    
    If Target = 13 Then
        Range("B1:D2").Merge
    End If
    
End Sub

Yadalı seçenel için, yukarıdaki kod değilde aşağıdaki kodu kullanmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    Range("B1:D1").UnMerge
    Range("B1").ClearContents
    
    If Target = 13 Then
        Range("B1:D1").Merge
        Range("B1") = "Real"
    End If
        
End Sub

.