Hücre Tıklandığında X işaretini koysun

[Filose]

Merhaba,

Makro ile; D140 ve F1:F40 Hücrelerine mouse ile tıkladığımda X işaretini hücreye yazsın. Tekrar tıkladığımda silsin.

Ne kadar sitede baktıysam sorunu çözemedim. Yada buna uygun bir örnek bulamadım. Herkese teşekkür eder ellerine sağlık diyorum.

 

[Mustafa MUTLU]

Denermisiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("d1:d40")) Is Nothing Then
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
           Target = "r"
        Else
           Target = vbNullString
        End If
    End If
End Sub

 

[Filose]

Mustafa Bey Merhaba,

Yazdığınız kodu modüle ekledim. Makro tuşu oluşturamadığımdan çalıştıramadım. Ayrıca, sadece D sütünü için yazıldı galiba. D140 sütünü ile E1:40 sütünü için olacaktı.

Şimdiden teşekkür eder saygılar sunarım.

 

[Mustafa MUTLU]

Bu kodu sayfanın kod bölümüne yapıştır.
Makro tuşuna gerek yok.
Hücreyi tıkladığında makro çalışacak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("d1:e40")) Is Nothing Then
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
           Target = "r"
        Else
           Target = vbNullString
        End If
    End If
End Sub

 

[Filose]

Merhaba Mustafa Bey,

Sizi yordum önce özür dilerim. Kodu kod bölümüne yazarak makro içerebilen dosya olarak kayıt yaptım.
Sonra dosyayı açarak denedim ama çalışmadı. Hata da vermiyor. D1:E40 aralığındaki hücrelere tıkladığımda X işareti veya başka bir işaret yazmıyor.

Tekrar teşekkür eder saygılar sunarım.

 

[Ömer BARAN]

Bu kodu sayfanın kod bölümüne yapıştır.
Makro tuşuna gerek yok.....Hücreyi tıkladığında makro çalışacak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ….............
End Sub[/QUOTE][QUOTE="Filose, post: 834004"][COLOR="Red"]Kodu kod bölümüne yazarak[/COLOR] makro içerebilen dosya olarak kayıt yaptım.[/QUOTE]
Merhabalar, Mustafa Bey'in yazdığı gibi, kod'u modüle DEĞİL, sayfanın kod bölümüne yapıştırmalısınız.
Sayfanın kod bölümüne; alt taraftan ilgili sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde ulaşabilirsiniz.

 

[Filose]

Ömer Bey,
Çok teşekkür ederim sorun çözüldü. Insert Module kısmına yazmıştım. aynı şey olduğunu düşündüm. Sayenizde farkını gördüm.

Ömer Bey, Sütün bazında yani; D140 ve F1:F40 alanı için nasıl olacak?

If Not Intersect(Target, Range ("D140;F1:F40")) Is Nothing Then

Bunu yaptım ama olmadı. Teşekkür eder saygılar sunarım.

 

[ÖmerBey]

Aralık belirtirken ";" yerine "," kullanın.

Range("D1:D40[COLOR="Red"],[/COLOR]F1:F40")

 

[Ömer BARAN]

Tekrar merhaba.
Sadece D140 ve F1:F40 (E1:E40 hariç) için uygulama istiyorsanız ilgili satırı aşağıdaki ile değiştirin.

If Not Intersect(Target, Range("D1:D40[B][COLOR="Blue"],[/COLOR][/B] F1:F40")) Is Nothing Then

Sonradan ilave not: Ben yazana kadar Sayın mucit cevaplamış bile.

 

[Filose]

Ömer Bey ve bütün arkadaşlara teşekkür ederim. Herkesin ellerine sağlık. Tam istediğim gibi oldu.
İyi akşamlar

 

[Filose]

Merhaba,
Kod çalışıyor. Ancak ben bunu X ile işaretli olanları şu mail'e gönder diye kullanıyorum. Anladığım kadarıyla bu kodun içinde hücreye konulan X işareti nümerik değeri farklı.

Bu nedenle manuel olarak X koyduğumda mail gidiyor. Ama bu kodla tıklayarak işaretlediğimde gitmiyor.

Burada X değeri farklı galiba nedeni konusunda bilgilerinize ihtiyacım var.

Saygı ve hürmetlerle.

 

[Ömer BARAN]

Merhaba.
Kırmızı olan satırı silin, mavi olan satırda tırnak içindeki r harfini X olarak değiştirin.
Target.Font.Name = "Marlett"
...................
Target = "r"
Ya da mail kodunda x yerine r harfini kullanın.

 

[Filose]

Ömer Bey Merhaba,

Target.Font.Name = "Marlett" Bu satırı kaldırdım. r harfini x olarak değiştirdim olmadı.

Sonra mail kodunda bulunan x yerine r olarak yaptım yine olmadı. Sorun şu bildiğiniz gibi TIKLANARAK KONULAN X İŞARETİ ile mail gönder kodunda yazdığım x harfinin karakter numarası farklı bunu tutturamadık galiba.

Örnek dosyayı ekte gönderdim. Ömer bey tekrar çok teşekkür ederim.

Saygılar sunarım.

 

[Ömer BARAN]

Merhaba.
Bir önceki cevabımdaki düzeltmeyi (Marlett ibaresini taşıyan satırı silip, tırnak içindeki r harfini x olarak değiştirmişseniz) yapmışsanız, ilgili sütunları (B ve E sütunu) seçip YazıTipini Calibri, Arial, Tahoma gibi Marlett dışında standart kullandığınız Yazıtipi olarak değiştirmeniz yeterli olacaktır.

 

[Filose]

Ömer Bey Merhaba,

Evet dediğiniz gibi karakter sorunu. Düzeltim sorun halloldu. Teşekkür eder saygılar sunarım.

 

[Filose]

Ömer Bey Merhaba,
Sizi yorduğumu farkındayım. Seçilen dosyaları 2 ayrı e-mail'i seçip gönderebilir miyim.
Bütün yardımlarınız için teşekkür eder saygılar sunarım.

Hoşçakalın.