• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre metni sonuna eklenti yapmak

sward175

Özel Üye
Katılım
4 Şubat 2011
Mesajlar
1,196
Excel Vers. ve Dili
Excel Vers. ve Dili:
Microsoft Office Professional Plus 2016
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,
 

Ekli dosyalar

Sayın: mustafa1205,

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

Saygılarımla,

sward175
 
Merhaba,

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

Kod:
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
 
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
 

Ekli dosyalar

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.
 
Sayın: Korhan Ayhan Bey,

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

Teşekkürler ederim,

Hoşçakalın,
sward175
 
Geri
Üst