arda896
Altın Üye
- Katılım
- 6 Ocak 2023
- Mesajlar
- 19
- Excel Vers. ve Dili
- excel access
- Altın Üyelik Bitiş Tarihi
- 26-01-2028
Kod:
Sub auto_Open()
Dim SonSatir As Long
With Application
Sheets("TEST").Select
.Visible = True
Range("A1:J65000").Interior.Color = xlNone
tarih = CDate(Format(Now - 5, "dd.mm.yyyy"))
SonSatir = Sheets("TEST").Range("A65536").End(3).Row
'I için
For i = 3 To SonSatir
tarih1 = CDate(Cells(i, "I"))
tarih2 = CDate(Format(Now, "dd.mm.yyyy"))
If Cells(i, 2) <> emp And tarih1 - tarih2 = 11 < 0 Then 'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : 11 " & vbCr
msj = msj & Cells(i, 2) & vbCr
Range("A" & i & ":J" & i).Interior.Color = _
RGB(248, 205, 207)
End If
Next i
MsgBox mesaj & vbCr & msj
.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub
Burdaki kodu iş yerinde çalıştırınca boş ekran geliyor kendi pc 365 işyeri 2013 sürümü