Makro tarih döngüsü

[kemalerdem]

Acaba bir sütunda bulunan numaralar ile ilgili olarak 2 veya 3. defa aynı numara gelmesi halinde bu ikinci numaranın aynı geldiği tarihin 45 gün eklenmiş olan yeni tarihinin karşısına gelmesi ve aynı numaranın üçüncü kere aynı gelmesi halinde aynı gelinen tarihin üzerine 90 gün ilave edilmiş olan yeni tarihin çıkması nasıl gerçekleştirilir acaba? hangi döngüler kullanılmalı? . Şimdiden çok teşekkür ederim .

 

[Ömer]

Merhaba,

Sorunuzla ilgili küçük bir örnek dosya ekleyerek açıklar mısınız. Eklediğiniz dosya üzerinden gidersek daha kısa ve net çözümler üretilir.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[kemalerdem]

Ömer Bey Merhaba,

şöyle ifade etsem daha sağlıklı olacak sutunda ayni plaka ikinci kere bloke edildiginde yanina ikinci bloke tarihinin uzerine 45 gun eklenmis olan yeni bir tarihin gelmesi, ayni plaka ucuncu kere bloke edildiginde ucuncu bloke tarihinin uzerine 90 gun ilave edilmis olan yeni tarihin cikmasi gerekiyor. Eğer ve Eğersay döngüsüyle bir yere kadar geldik ama devamı gelmedi .ilk bloka tarihleri mevcut bu arada

dosya.xlsx - 42 KB

 

[Ömer]

Deneyiniz.

Sub tarih_ekle()

    Dim i As Long, d As Long, Se As Worksheet
  
    Set Se = Sheets("Engelli-Hatalı Parklanma")
    
    Application.ScreenUpdating = False
    Se.Select
    Range("F3:F" & Rows.Count).ClearContents
  
    For i = 3 To Cells(Rows.Count, "E").End(xlUp).Row
        d = WorksheetFunction.CountIf(Range("E3:E" & i), Cells(i, "E")) - 1
        If d > 0 Then
            Cells(i, "F") = CDate(Cells(i, "B")) + (d * 45)
        End If
    Next i
    
    MsgBox "Ekleme Yapıldı.", vbInformation
    
End Sub

 

[kemalerdem]

emekleriniz için çok teşekkür ederim. yalnız bloke tarihleri arasındaki süreler tutmuyor ama bundan sonrası için ben uğraşıyım. Tekrardan çok teşekkür ederim.

 

[Ömer]

Ben denediğimde tutuyordu. 45 ve katları şeklinde. Tutmamış haliyle dosyayı ekleyip, tutmayan satırlar üzerinde açıklamaları yaparsanız tekrar inceleyebilirim.

 

[kemalerdem]

Şu anda dosyayı yükleyemiyorum. Ama misal 34 ZSH 48 plakasının ilk bloke tarihi aynı kalması gerekiyor ama bu kodda otomatik (ilk bloke tarihi 25.09.2020) 24.12.2020'ye atıyor. 2. bloke tarihinden sonra da ilk bloke tarihine 45 gün eklemesi gerekiyor. 3 . bloke tarihinden sonrada 2.bloke tarihine 90 gün eklemesi gerekiyor.

 

[Ömer]

Daha önce eklenen dosyada kodları çalıştırıp verdiğiniz örnek plakayı süzdürdüm, ekteki resimde göreceğiniz ilk satır boş diğer gördüğüne 45 ekledi.
Bir sorun görünmüyor.

 

[kemalerdem]

Tamamdır çok teşekkür ederim