Tarihe göre satır çağırmak

[nackifer]

Tarihe göre satır çağırmak. Filtrelemek. [ÇÖZÜLDÜ]

Hayırlı günler arkadaşlar.
Ekte vereceğim üretim listesinde URETIM-2 sayfası mevcut, orada da anlattığım gibi URETIM-2 sayfasında üretim tarihi sutununa girdiğim tarihe ait siparişi SIPARIS sayfasından çağırmak istiyorum. Koşullu biçimlendirme ile denedim fakat beceremedim. Yardımcı olursanız çok sevinirim.

 

[Civan Jack]

S sütununa almak istediğiniz tarihi yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ara As Range
    On Error Resume Next
    If Target.Column <> 19 Or Target.Value = "" Then Exit Sub
    Set ara = Sayfa1.Columns(19).Find(Target.Value, , , 1)
    If Not ara Is Nothing Then
        bul = ara.Address
        Do
        Set ara = Sayfa1.Columns(19).FindNext(ara)
        Sayfa1.Cells(ara.Row, 2).Resize(, 26).Copy Range("B65536").End(3)(2, 1)
        Loop While Not ara Is Nothing And bul <> ara.Address
    End If
End Sub

 

[nackifer]

Teşekkürler Civan bey tam istediğim gibi olmuş fakat sayfayı taşıdığında sayfa biçimini, koşullu renklendirmeleri ve hücre dolgularını da birlikte taşıyor bunu engelleyebilir miyiz ? yani ÜRETİM-2 sayfasındaki önceden belirlenmiş biçim değişmesin. Malum yazılar çok küçük ve dikkat edilmesi gereken yerler koyu renkte çıkmıyor ve hücreler renklendiği için yazılar seçilmiyor.
Sayfa biçimi değişmeden yapabilir miyiz bunu ? Yoksa bundan başka olma ihtimali yok mu ?

 

[Civan Jack]

Böyle deneyin.

Sayfa1.Cells(ara.Row, 2).Resize(, 26).Copy 
Range("B65536").End(3)(2, 1).pastespecial xlpastevalues

 

[nackifer]

Civan bey sorunsuz çalıştı çok teşekkür ederim emeğinize sağlık.