bir kitap içinde sayfaları sorgulama

Katılım
26 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
2002 turkce
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Katılım
26 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
2002 turkce
ü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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ekteki örnek dosyayı incelermisiniz. Gelmeyen kayıtlar günün tarihine göre kontrol edilmektedir.
 
Katılım
26 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
2002 turkce
Eywallah Üstad

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