Rakam yazıldığında metin ekleme

[sedat2161]

Hayırlı günler sayın hocalarım ekli dosyamın Bilgi Giriş sayfasında B6 hücresin 3 (Üç) yazdığımda, HİZMET İŞLERİ sayfasındaki HİZMET İŞLERİ KABUL TUTANAĞI başlığına KESİN kelimesi eklenerek HİZMET İŞLERİ KESİN KABUL TUTANAĞI yazdırılması mümkün mü acaba. Yardımlarınızı bekliyorum.

 

[1Al2Ver]

Merhaba,

Hizmet işleri sayfası "A1" e,

=EĞER('Bilgi Girişi'!B6=3;"HİZMET İŞLERİ KESİN KABUL TUTANAĞI";"HİZMET İŞLERİ KABUL TUTANAĞI")

Kolay gelsin.

 

[sedat2161]

Merhaba,

Hizmet işleri sayfası "A1" e,

=EĞER('Bilgi Girişi'!B6=3;"HİZMET İŞLERİ KESİN TUTANAĞI";"HİZMET İŞLERİ KABUL TUTANAĞI")

Kolay gelsin.

Çok teşekkür ederim hocam

 

[dEdE]

Alternatif
Makro Sorularına yazmışsınız. Makrolu çözüm.
Bilgi Girişi Sayfasının Kod kısmına yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B6]) Is Nothing Then Exit Sub
    If [B6] = 3 Then _
    Sheets("HİZMET İŞLERİ").Cells(1, 1) = "KESİN HİZMET İŞLERİ KABUL TUTANAĞI"
End Sub

 

[sedat2161]

Alternatif
Makro Sorularına yazmışsınız. Makrolu çözüm.
Bilgi Girişi Sayfasının Kod kısmına yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B6]) Is Nothing Then Exit Sub
    If [B6] = 3 Then _
    Sheets("HİZMET İŞLERİ").Cells(1, 1) = "KESİN HİZMET İŞLERİ KABUL TUTANAĞI"
End Sub

Hocam çok teşekkür ederim.

 

[sedat2161]

Her iki çözümde işime yaradı