Toplu Mail gönderen makroda gönderilen e-mailin dosya adı rengini silmesin

[Filose]

Herkese merhaba,

Ekte toplu mail gönderen bir makrom var. Çalışmasında hiç bir sorun yok. Dileyen arkadaşlar rahatlıkla kullanabilirler.
Bu değerli bilgileri buradaki saygıdeğer arkadaşların yardımıyla edindim.

B sütununda X işareti yazıldığında A Sütunundaki gönderilecek dosyayı sarıya boyuyor.
Benim rica ettiğim sadece şu, e-mail gittikten sonra A sütunundaki dosyanın sarı rengi silinmesin.
Böylelikle gönderilen e-mailler sarı renkte işaretlenmiş olur.

Makronun içinde ben bu düzeltmeyi yapamadım.

Saygıyla,

 

[hamitcan]

Cells(j, "B") = ""

bu satırı kapatıp dener misniz ?

 

[Filose]

Merhaba Hamitcan Bey,
Öncelikle ilginiz için teşekkür ediyorum. Dediğinizi denetim ama olmadı.
A sütunundaki dosya e-mail gönderildikten sonra sarı renk gidiyor kalıcı olmuyor. Yani değişiklik olmuyor.

Saygılar,

 

[Korhan Ayhan]

@hamitcan beyin bahsettiği değişikliği yaparak B sütunundan bazı satırlara "X" yazarak "F" sütunundaki buton ile mail göndermeyi denedim. Sarı renkler silinmedi.

Sizin "Mail" isimli sayfanızın arka planında aşağıdaki kod çalışıyor.

Bu kod B sütunundan bir hücreye tıklayınca X yazıp sarı renk yapıyor. Tekrar tıklayınca X siliniyor ve sarı renk kalkıyor.

Eğer durum buysa Target = vbNullString satırını pasif hale getirmeniz yeteri olacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1:B120")) Is Nothing Then
        If Target = vbNullString Then
            Target = "X"
        Else
            Target = vbNullString
        End If
    End If
End Sub

 

[Filose]

Korhan Bey Merhaba,
İlginize çok teşekkür ediyorum.
' Cells(j, "B") = "" Bunu denedim ve sizin dediğinizi
' Target = vbNullString
de uyguladım olmadı. Sanırım gözden kaçırdığım bir şey var. Örnek görselde olduğu gibi yalnızca gönderilen
e-mailler renklenmesi gerekir.



Saygılar,

 

[Korhan Ayhan]

Sizin istediğiniz X işaretleri kalksa da gönderilen maillere ait A sütununda ki isimler sarı renkli olsun. Bunu mu istiyorsunuz?

 

[Filose]

Evet Korhan Bey, X ile işaretleyip sonra e-mail gittikten sonra A sütunu renklensin X'de kalkıyor zaten.
X'in kalmasına gerek yok.

 

[Korhan Ayhan]

O zaman @hamitcan beyin kapatın dediği satırın hemen altına aşağıdaki satırı ekleyip deneyiniz.

Cells(j, "A").Interior.ColorIndex = 6

 

[Filose]

Korhan Bey çok teşekkür ediyorum. sorun giderildi. Ayrıca Hamitcan beye de teşekkür ediyorum.
Sağlık ve huzurla kalın.