Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
.rar 5 gün öncesi ve sonras.rar (Dosya Boyutu: 10,93 KB | İndirme Sayısı: 4)
Son Düzenleme: 06/10/2019, 20:30, Düzenleyen: cobra26.
Cevapla
#2
ö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

.rar 5 gün öncesi ve sonras_hy.rar (Dosya Boyutu: 19,27 KB | İndirme Sayısı: 2)
Cevapla
#3
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.
Cevapla
#4
(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?
Cevapla
#5
A sütununda 45500 satır veri var
Cevapla
#6
(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?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task