AccessTr.neT

Bul · 06/10/2019, 20:04

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.

Bul · 06/10/2019, 22:57

ö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

5 gün öncesi ve sonras_hy.rar (Dosya Boyutu: 19,27 KB | İndirme Sayısı: 2)

Bul · 07/10/2019, 19:27

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.

Bul · 07/10/2019, 19:32

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

Bul · 07/10/2019, 19:33

A sütununda 45500 satır veri var

Bul · 07/10/2019, 19:39

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

AccessTr.neT

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

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri