tarih seçimine göre tablo hazırlama

[elice]

emeği geçenlere şimdiden teşekkür,

ekte gönderdiğim örnek-1 tabloda kırmızı ile işaretlediğim tarihlere göre (istenilen tarihlere uyan) alttaki tabloyu kod yazılımı ile nasıl halledebiliriz.
(kırmızı ile belirtilen tarih seçenekleri herzaman değişkendir)

 

[musculus]

15.12.2006 29.02.2008 MEHMET

mehmet bu aralıkta ,istediğin aralık ise
01.01.2007 31.12.2007
bu ve MEHMET BU ARALIĞA GİRMİYOR AMA SEN LİSTELENMESİNİ İSTİYORSUN
LİSTELEME KRİTERİN TAM OLARAK NEDİR

 

[elice]

anlatamamış olabilirim, özür

mehmet firması bu tarihler arasında aktif olduğundan, tabloda da gözükmesi gerekiyor ,,,,,, yani başlama ve bitiş tarihleri arasındaki firmaları , tabloda görmek istiyoruz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("F6:I65536").Clear
sat = 6
For i = 5 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = Cells(5, "F").Value And _
    Cells(i, "C").Value = Cells(5, "H").Value Then
        Cells(sat, "F").Value = Cells(i, "A").Value
        Cells(sat, "H").Value = Cells(i, "C").Value
        Cells(sat, "I").Value = Cells(i, "D").Value
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[elice]

sayın evren gizlen, emeğiniz için teşekkürler,
yalnız sadece ali değil tabloya mehmet inde gelmesi gerekiyor, tarih başlama ve bitiş tarihleri arasında kalanlar yani,

 

[Orion1]

sayın evren gizlen, emeğiniz için teşekkürler,
yalnız sadece ali değil tabloya mehmet inde gelmesi gerekiyor, tarih başlama ve bitiş tarihleri arasında kalanlar yani,

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Dim sat As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("F6:I65536").Clear
sat = 6
For i = 5 To Cells(65536, "A").End(xlUp).Row
    If Cells(5, "F").Value >= Cells(i, "A").Value And _
    Cells(5, "H").Value <= Cells(i, "C").Value Then
        Cells(sat, "F").Value = Cells(i, "A").Value
        Cells(sat, "H").Value = Cells(i, "C").Value
        Cells(sat, "I").Value = Cells(i, "D").Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[elice]

sayın evren gizlen, çok teşekkür ediyorum, elleriniz dert görmesin, yazılım tam olarak istediğim gibi.

sizden bir ricam daha olacak , ben tabloyu başka yere ("f6" dan başlıyor ) yazdırmak istersem ne yapmam gerekiyor. örneğin k11 den itibaren devam etsin,,,