bir kitap içinde sayfaları sorgulama

[makarax]

s.aleykum arkadaşlar. size bir sorum olacak.

excelde kitap içinde "sayfa1-sayfa2 ve uyarı" diye 3 tane sayfam var. "sayfa1-sayfa2" de bulunan termin süresi geçmiş olan ve gelmeyen ürünlerin bulunduğu satırı "uyarı" sayfasına satır satır yazdıran bir program yapmak istiyorum. dosya ektedir. ilgilenenlere teşekkür edeirm.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TERMİN_SÜRESİ_DOLUPTA_GELMEYENLERİ_AKTAR()
    Set SU = Sheets("uyarı")
    SU.[A2:G65536].ClearContents
    Satır = 2
    For X = 1 To 2
    For Y = 2 To Sheets(X).[A65536].End(3).Row
    If Sheets(X).Cells(Y, 5) = Date And Sheets(X).Cells(Y, 7) = "" Then
    SU.Range("A" & Satır & ":G" & Satır) = Sheets(X).Range("A" & Y & ":G" & Y).Value
    Satır = Satır + 1
    End If
    Next
    Next
    Set SU = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[makarax]

üstad ekteki dosyaya uygulayabirmiyiz..

s.aleykum. teşekkürler üstad ama kodu çalıştırmayı başaramadım. ekteki dosyaya kodu yazıp dosyayı ekleyebilirmisiz.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Gelmeyen kayıtlar günün tarihine göre kontrol edilmektedir.

 

[makarax]

Eywallah Üstad

hocam ellerine sağlık istediğim buydu. eywallah...