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

 

[hamza02]

Sayın Korhan Ayhan bey elinize emeğinize sağlık çok güzel olmuş.

Rabbim gönlünüzden geçen güzellikleri ömrünüze versin inşaallah.

 

[hamza02]

Merhaba arkadaşlar,

İndir deneme son xlsm

Dosyayı indir deneme son xlsm

dosya.co

Makam Sayfası Güncelle butonu ile belirlenen Tarih aralığındaki verilere bir kriter olarak Kayıt Sayfası "O" sütunundaki illerden Gaziantep 'e eşit olanları şartını ekleyebilir miyiz.

 

[Korhan Ayhan]

Çözümler linkte...

Mevcut makroya şart ekleme

Aşağıdaki kodlarda belirtilen kritere ek olarak Kayıt Sayfası "O" sütunundaki illerden Gaziantep 'e eşit olanları şartını nasıl ekleyebiliriz. Verilerin başlangıç satırı 3. satır. Option Explicit Private Sub CommandButton1_Click() Dim S1 As Worksheet, S2 As Worksheet, No As Long Dim...

www.excel.web.tr

 

[hamza02]

Sayın Korhan Ayhan hocam,
İlginiz için çok teşekkür ederim.
Allah razı olsun. Allah'a emanet olun. Hayırlı Ramazanlar.