Bugün Tarihli Hücreleri seçili hale getirme

[ozturk38]

Merhabalar ;
ekli dosyamda a sütununda bulunan tarihler den butona tıkladığımda bugün tarihli olanların zemin rengini yeşil olarak değiştirebiliyorum fakat zemin rengini yeşil olarak değiştirdiğim aralıktaki hücrelei nasıl seçili hale getirebilirm yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Filtreyi kullanarak bugüne ait tarihi süzmek işinizi görmez mi?

 

[ozturk38]

makro ile seçili hale getirmem gerekiyor seçili hücrelerin mail atılmasını sağlamak için.

 

[Korhan Ayhan]

Kullandığınız mail kodunu foruma ekleyebilir misiniz?

 

[ozturk38]

sub
activeworkbook.Envelopevisible = true
with activesheet.Mailenvelope
.ıntroductıon="deneme1"& chr(13)&chr(13)& "deneme2"
.ıtem.to = "abdullah????@gmail.com"
.ıtem.cc =""
.ıtem.subject= date - 1 & "konu"
.ıtem.send
end with
msgbox "mail gönderildi"
End Sub

 

[Korhan Ayhan]

Bahsettiğiniz tarihlerin bulunduğu alanda satırlarda atlamalar varsa kullandığınız kod hatalı sonuç verecektir.

Dosyanızı eklerseniz farklı çözüm yolu önerebiliriz.

 

[ozturk38]

İlginiz için çok teşekkür ederim dosya konu başında ekli satırlarda atlama olmaması için makro ile sayfa açılışında sıralama yaptırıyorum o riski ortadan kaldırıyorum böylelikle siz bugünün tarihine eşit satırları seçili hale getirmemde yardımcı olabilirseniz yeterli olacaktır.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Dim Bul As Range, Say As Long, Alan As String
    
    Set Bul = Range("A:A").Find(Date, Cells(Rows.Count, 1), , xlWhole)
    If Not Bul Is Nothing Then
        Say = WorksheetFunction.CountIf(Range("A:A"), Date)
        Alan = "A" & Bul.Row & ":G" & Bul.Row + Say - 1
        Range(Alan).Select
    End If
End Sub

 

[ozturk38]

Koray Hocam elinize sağlık Allah razı olsun tam istediğim şekilde

 

[ozturk38]

Tabloda seçili hücre yoksa mail atılmasın.

Hocam yardımınız için tekrar teşekkür ederim sizin yardımınızla yapmak istediğim projeyi belli bir yere kadar getirdim. şuanda ödeme tablosu excel sayfamı açtığımda. sayfanın a sütununda sıralama yapıp bugünün tarihine denk gelen satırları seçip daha sonra mail atıyor fakat bugünün tarihine denk gelen satır olmayınca sayfanın tamamını mail atıyor " bugünün tarihine denk gelen satır olmayınca mail atılmamasını sağlayabilirsek çok sevinirim. Dosya ekte kodlarım sayfanın açılışında hocam

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Workbook_Open()
    Dim Bul As Range, Say As Long, Alan As String
    
    ActiveWorkbook.Worksheets("Sayfa5").ListObjects("ödeme").Sort.SortFields.Clear
    
    ActiveWorkbook.Worksheets("Sayfa5").ListObjects("ödeme").Sort.SortFields.Add _
        Key:=Range("ödeme[[#All],[VADE TARİHİ]]"), SortOn:=xlSortOnValues, Order _
        :=xlAscending, DataOption:=xlSortTextAsNumbers
    
    With ActiveWorkbook.Worksheets("Sayfa5").ListObjects("ödeme").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Set Bul = Range("A:A").Find(Date, Cells(Rows.Count, 1), , xlWhole)
    If Not Bul Is Nothing Then
        Say = WorksheetFunction.CountIf(Range("A:A"), Date)
        Alan = "A" & Bul.Row & ":G" & Bul.Row + Say - 1
        Range(Alan).Select
    End If
    
    If Not Bul Is Nothing Then
        ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            .Introduction = "Murat Bey" & Chr(13) & Chr(13) & "Bugün ki Ödeme / Tahsilat Planı"
            .Item.to = "Muhasebe@barlastrans.com"
            .Item.Subject = Date & "    Ödeme / Tahsilat Bildirimi"
            .Item.send
        End With
    Else
        MsgBox "Bugüne ait veri bulunamadı!", vbCritical
    End If
End Sub