Makro başka bilgisayarda çalışmıyor

[arda896]

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ü

 

[RBozkurt]

SonSatir = Sheets("TEST").Range("A65536").End(3).Row
Satırını
SonSatir = Sheets("TEST").Cells(Rows.Count, "A").End(xlUp).Row satırı ile değiştirip deneyiniz.

 

[arda896]

20230203 144458

20230203 144458 resmi indir - Resim Yükle - Hızlı Resim

resmim.net

Olmadı hocam

 

[arda896]

Boş mesaj kutusu geliyor

Ve satırı boyamıyor

 

[dEdE]

Merhaba,
If Cells(i, 2) <> emp And tarih1 - tarih2 = 11 < 0 Then satırındaki;
-emp neyi ifade ediyor belli değil. Cells(i, 2) eşit değilse deniyor ama neye eşit olmadığı belli değil.
- tarih1 - tarih2 = 11 < 0 ifdesinde yazım hatası yok mu?

 

[arda896]

Merhaba,
If Cells(i, 2) <> emp And tarih1 - tarih2 = 11 < 0 Then satırındaki;
-emp neyi ifade ediyor belli değil. Cells(i, 2) eşit değilse deniyor ama neye eşit olmadığı belli değil.
- tarih1 - tarih2 = 11 < 0 ifdesinde yazım hatası yok mu?

Aynı kodlama benim bilgisayarımda çalışıyor

 

[arda896]

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 tarih1 - tarih2 <= 15 Then  'Farklı sütun ise C harfini değiştirin.
mesaj = "RAPOR TARİHİ GELENLER : " & vbCr
msj = msj & Cells(i, 2) & vbCr
Range("A" & i & ":J" & i).Interior.Color = 10498160
End If
Next i
MsgBox mesaj & vbCr & msj



.Visible = True
'.Quit
ActiveWorkbook.Save
End With
End Sub

buda çalışıyor

 

[Korhan Ayhan]

Merhaba,

Paylaştığınız iki kod birbirinden farklı.

@dEdE nin belirttiği satırı her iki kod da aynı yaparsanız sonuç almanız gerekir.