tanımlı kodun belirli tarihden sonra değişmesi

[svs007]

merhaba,

ekteki örneğe formül eklemek istiyorum. yardımcı olabilir misiniz,

durum "aramada" olduğuda ve A4 hücresinde bulunan tarihi 2 gün geçtiğinde AÇIK olarak güncellenmesi

örneğin ekteki örnekte A4 Tarihi :13.09.20.13 sistem tarihi 15.09.2013 olduğunda Durum " Açık olmalıdır.

örneğim ektedir,



desteğiniz için şimdiden teşekkürler

 

[ÖmerBey]

Ben ARAMADA kısmını atlamışım
iyi çalışmalar

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub DURUM_GUNCELLE()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("D:D").Find("ARAMADA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If (Date - Bul.Offset(0, -3)) >= 2 Then Bul.Value = "AÇIK"
            If WorksheetFunction.CountIf(Range("D:D"), "ARAMADA") = 0 Then Exit Do
            Set Bul = Range("D:D").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    MsgBox "Durum bilgileri güncellenmiştir.", vbInformation
End Sub

 

[nane]

Aramada ne için anlamadım ?

Yb®

 

[svs007]

aşağıdaki bilgi için teşekkürler denedim oldu,
sadece sayfa açıldığında direk güncelleme olmuyor. macro yu çalıştır dediğim zaman çalıştırıyor. bende kısayolu tuşu ekledim ,

sayfa açılırken güncellenmesini nasıl sağlayabilirim?

Aşağıdaki kodu kullanabilirsiniz.

Sub DURUM_GUNCELLE()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("D:D").Find("ARAMADA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If (Date - Bul.Offset(0, -3)) >= 2 Then Bul.Value = "AÇIK"
            If WorksheetFunction.CountIf(Range("D:D"), "ARAMADA") = 0 Then Exit Do
            Set Bul = Range("D:D").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    MsgBox "Durum bilgileri güncellenmiştir.", vbInformation
End Sub

 

[svs007]

Aramada ne için anlamadım ?

Yb®

aramada , not yada aksiyon alınmış devam eden olarak eklemiştim,bekleme de olabilirdi

 

[Korhan Ayhan]

Merhaba,

Sayfa ismi üzerinde sağ klik yapın.
Açılan menüden KOD GÖRÜNTÜLE seçeneğini seçin.
Açılan beyaz pencereye aşağıdaki kodu uygulayın.

Başka bir sayfayı açıp tekrar bu işlemi yaptığınız sayfaya tıklayıp deneyin.

Private Sub Worksheet_Activate()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("D:D").Find("ARAMADA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If (Date - Bul.Offset(0, -3)) >= 2 Then Bul.Value = "AÇIK"
            If WorksheetFunction.CountIf(Range("D:D"), "ARAMADA") = 0 Then Exit Do
            Set Bul = Range("D:D").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    MsgBox "Durum bilgileri güncellenmiştir.", vbInformation
End Sub

 

[svs007]

Merhaba,

Sayfa ismi üzerinde sağ klik yapın.
Açılan menüden KOD GÖRÜNTÜLE seçeneğini seçin.
Açılan beyaz pencereye aşağıdaki kodu uygulayın.

Başka bir sayfayı açıp tekrar bu işlemi yaptığınız sayfaya tıklayıp deneyin.

Private Sub Worksheet_Activate()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("D:D").Find("ARAMADA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If (Date - Bul.Offset(0, -3)) >= 2 Then Bul.Value = "AÇIK"
            If WorksheetFunction.CountIf(Range("D:D"), "ARAMADA") = 0 Then Exit Do
            Set Bul = Range("D:D").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    MsgBox "Durum bilgileri güncellenmiştir.", vbInformation
End Sub

Teşekkürler

 

[svs007]

Merhaba,

Sayfa ismi üzerinde sağ klik yapın.
Açılan menüden KOD GÖRÜNTÜLE seçeneğini seçin.
Açılan beyaz pencereye aşağıdaki kodu uygulayın.

Başka bir sayfayı açıp tekrar bu işlemi yaptığınız sayfaya tıklayıp deneyin.

Private Sub Worksheet_Activate()
    Dim Bul As Range, Adres As String
    
    Set Bul = Range("D:D").Find("ARAMADA", , , xlWhole)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            If (Date - Bul.Offset(0, -3)) >= 2 Then Bul.Value = "AÇIK"
            If WorksheetFunction.CountIf(Range("D:D"), "ARAMADA") = 0 Then Exit Do
            Set Bul = Range("D:D").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    End If
    
    MsgBox "Durum bilgileri güncellenmiştir.", vbInformation
End Sub

" D" hücresindeki bilgilerİ " I "hücresine taşıdım ve "D" yi "I" olarak güncelledim ama run time error 1004 hatası veriyor

yardımcı olabilir misiniz

 

[Korhan Ayhan]

Sadece "I" sütununu güncellemeniz yeterli olmaz. Yaptığınız değişiklik kodu revize etmenize sebep olabilir. Bu sebeple sorularınızı sorarken net bilgiler veriniz.

Kod içinde geçen tarih sütun bilgisinide güncellemeniz gerekiyor.

Bul.Offset(0, -3)

-3 değerini -8 yapıp deneyin.