Merhaba
B sütunundeki bugünkü tarih,A sütundaki,tarihleri görerek, hangi satırdaki tarih, şartlara uygunsa e sütununa geçerli ve ya geçersiz yazabilirmiyiz.
Teşekkür ederim.
öncelikle dosyanızı makro kaydedebilen
Excel çalışma dosyası (
.xlsm uzantılı)olarak kaydetmelisiniz.
Sonra alt+F11'e basıp "Sayfa1" e çift tıklayıp aşağıdaki kodu ekleyin
"sayfa1" her aktif olduğunda alanları kontrol eder (önce sayfa2,3,4 vs vs sonra sayfa1)
dilerim işinize yarar
Kod:
Function Aralikta()
Dim Blg As Range
Dim Hucre As Range
Dim SonStr As Long
SonStr = Cells(Rows.Count, 1).End(xlUp).Row
Set Blg = Range("A2:A" & SonStr)
For Each Hucre In Blg
If IsDate(Hucre) And Hucre >= DateAdd("d", -5, Date) And Hucre <= DateAdd("d", 5, Date) Then
Range("E" & Hucre.Row).Value = "Geçerli" '
Else
Range("E" & Hucre.Row).Value = "Geçersiz"
End If
Next
End Function
Private Sub Worksheet_Activate()
Aralikta
End Sub
[
attachment=30657]
Sayın, Berduş Bey,büyük bir dertten kurtardığınız için teşekkür ederim.
A2 Satırında 45500 kadar veri var ,bu düzenlemeyi nasıl yapabilirim.?
Teşekkür ederim.
(07/10/2019, 19:27)cobra26 yazdı: [ -> ]A2 Satırında 45500 kadar veri var ,bu düzenlemeyi nasıl yapabilirim.?
tam olarak neyi kasettiniz,
A sütununda 45500 satır mı var, yoksa 2. satırda 45500 sütun mu var?
A sütununda 45500 satır veri var
(07/10/2019, 19:27)cobra26 yazdı: [ -> ]A2 Satırında 45500 kadar veri var ,bu düzenlemeyi nasıl yapabilirim.?
tam olarak neyi kasettiniz,
A sütununda 45500 satır mı var, yoksa 2. satırda 45500 sütun mu var?