AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Exelde 5 Gün Öncesi Ve 5 Gün Sonrası

1 2
06/10/2019, 20:04

cobra26

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.
06/10/2019, 22:57

berduş

ö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]
07/10/2019, 19:27

cobra26

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:32

berduş

(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?
07/10/2019, 19:33

cobra26

A sütununda 45500 satır veri var
07/10/2019, 19:39

berduş

(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?
1 2