Hücre metni sonuna eklenti yapmak

[sward175]

Tüm Forum yöneticilerinin ve üyelerinin Cumhuriyet Bayramını ve Kurban Bayramını kutlar esenlikler dilerim.

Yapmak istediğim, Belirli bir liste içindeki metinlerden birini hücre içine yazdığım zaman metin devamına ( Dikkat ) ilevesi yazdırmak istiyorum.
Ekli dosyada gerekli açıklamayı yaptım.

Yardımlarınız için teşekkür ederim.

sward175
Nice Bayramlara,

 

[mustafa1205]

İyi bayramlar...
Dosyanız ektedir. Kolay gelsin...

 

[sward175]

Sayın: mustafa1205,

Benim istediğim D2500 Aralığına B23:B43 aralığındaki isimlerden herhangi biri yazılması durumunda yazının devamına ( Dikkat ) yazsın.

Saygılarımla,

sward175

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D2:D500")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If WorksheetFunction.CountIf(Range("B23:B43"), Target) > 0 Then
        Target = Target & " ( Dikkat )"
    End If
End Sub

 

[sward175]

Hücre metnin sonuna eklenti

Sayın: Korhan Ayhan,

Ekli dosyada görüleceği gibi yapmaya çalıştım fakat başarılı olmadım dosya içinde açıklama bulunmakta yardımlarınızı rica ederim.

Saygılarımla,

sward175

 

[Korhan Ayhan]

Kodu modüle uygulamışsınız. Sayfanızın adı üzerinde sağ klik yapın ve KOD GÖRÜNTÜLE komutunu çalıştırın. Açılan beyaz pencereye kodu uygulayın.

 

[sward175]

Sayın: Korhan Ayhan Bey,

Vermiş olduğunuz bilgi ile dosyamı yararlı hale getirdim.

Teşekkürler ederim,

Hoşçakalın,
sward175