Tarih aralığında olan verilerin belirlenmesi

[hamza02]

İndir deneme Kopya xlsm

Dosyayı indir deneme Kopya xlsm

dosya.co

Arkadaşlar merhaba,
Linkte dosyayı yükledim

yapmak istediğim Sayfa7("Müdür") sayfası F1 ve G1 hücrelerine yazdığım tarihleri, Sayfa2("Kayıt") sayfası N sütununda kontrol etsin ve bu tarihlere eşit olan ve arada olan tarihlerin hizasına Sayfa2("Kayıt") sayfası BE sütuna 1, 2, 3, ... gibi sıralı sayı versin diğerleri için boş bıraksın.

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, S2 As Worksheet, No As Long
    Dim Son As Long, Veri As Variant, X As Long
    
    Set S1 = Sheets("Müdür")
    Set S2 = Sheets("Kayıt")
    
    S2.Range("BE:BE").ClearContents
    
    Son = S2.Cells(S2.Rows.Count, "N").End(3).Row
    
    If Son < 3 Then Exit Sub
    
    Veri = S2.Range("N3:N" & Son).Value
    
    ReDim Liste(1 To UBound(Veri), 1 To 1)
    
    For X = LBound(Veri) To UBound(Veri)
        If Veri(X, 1) >= S1.Range("F1") And Veri(X, 1) <= S1.Range("G1") Then
            No = No + 1
            Liste(X, 1) = No
        End If
    Next
    
    S2.Range("BE3").Resize(UBound(Liste), 1).Value = Liste
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "Veriler güncellenmiştir."
End Sub