ZAMAN HATIRLATMA

[wepefendisi]

Private Sub Workbook_Open()
Dim bugun As Long, tarih As Long, i As Long, a As Long
Dim s As Worksheet, mesaj As String

Set s = Sheets("ortakoy")
a = s.Range("a65536").End(3).Row
bugun = CLng(CDate(Date))

For i = 2 To a
tarih = CLng(CDate(s.Cells(i, "g")))
fark = tarih - bugun
If fark <= 2 And fark > 0 And s.Cells(i, "h").Value <> "bitti" Then
baslik = "KAMU Gün Hatırlatması"
mesaj = mesaj & vbCr & s.Cells(i, "b") & " ---> Bitiş tarihi : " & s.Cells(i, "h") & " Gün bitimine " & CInt(tarih - bugun) & " gün kaldı."
End If
Next i
MsgBox baslik & vbCr & mesaj, vbInformation, "KOKSAL"

Set s = Nothing
i = Empty: a = Empty
bugun = Empty: tarih = Empty:
mesaj = vbNullString: baslik = vbNullString



ELİMDE BU şekilde bir kodum var çalışıyorda fakat bu sadece Set s = Sheets("ortakoy") ortaköy isminde sayfayı kontrol edip günü hatırlatmakta benim elimdede birden fazla ayrı tutulmuş sayfalarda bilgiler var tüm sayfaları bu tek kod içinde Set s = Sheets içine nasıl entegre ederde çalıştırabilirim

 

[bilgiconline]

Set s = Sheets("ortakoy")
a = s.Range("a65536").End(3).Row

yerine ;

On Error Resume Next
Dim x, y
x = 1
y = 20  ' Kaç sayfa varsa artık)

For i = Sheets(x) To Sheets(y)
a = s.Range("a65536").End(3).Row

Next
End Sub


deneyebilir misiniz ? (Kodu denemedim)

 

[wepefendisi]

On Error Resume Next Dim x, y x = 1 y = 20 ' Kaç sayfa varsa artık) For i = Sheets(x) To Sheets a = s.Range("a65536").End(3).Row

Üstadım olmadı denedim ama hata veriyor


Private Sub Workbook_Open()
Dim bugun As Long, tarih As Long, i As Long, a As Long
Dim s As Worksheet, mesaj As String

On Error Resume Next
Dim x, y
x = 1
y = 2 ' Kaç sayfa varsa artık)

For i = Sheets(x) To Sheets
a = s.Range("a65536").End(3).Row

bugun = CLng(CDate(Date))

For i = 3 To a
tarih = CLng(CDate(s.Cells(i, "g")))
fark = tarih - bugun
If fark <= 2 And fark > 0 And s.Cells(i, "g").Value <> "bitti" Then
baslik = "Hükümlü KAMU Gün Hatırlatması"
mesaj = mesaj & vbCr & s.Cells(i, "b") & " ---> Bitiş tarihi : " & s.Cells(i, "g") & " Gün bitimine " & CInt(tarih - bugun) & " gün kaldı."
End If





Next i
MsgBox baslik & vbCr & mesaj, vbInformation, "KOKSAL.Net"

Set s = Nothing
i = Empty: a = Empty
bugun = Empty: tarih = Empty:
mesaj = vbNullString: baslik = vbNullString


End Sub

G4 ASIL biteceği tarih B4 isim soy isim deneme çalışması için 2 sayfa üzerinde çalışıyorum verilerimde 30 sayfadan oluşuyor