Hatırlatma

[evren28]

Arkadaşlar Günaydın
içinden çıkamadığım bir hususta yardımlarınızı bekliyorum

Sorunum ya da isteğim : Sayfa 1e userformla veri giriyorum "F" satırında alt alta randevu tarihleri var ve ben asıl olarak 2. sayfayı kullanıyorum.

istiyorum ki sayfa 1 in "F" satırına verdiğim randevu tarihleri sayfa 2 de bugünün tarihi ile eşleştiğinde sayfa 2 nin bir yerinde alt alta yazsın

böyle bir şey mümkünmü acaba?

Forumda arama yaptım ancak genelde koşullu biçimlendirmeyi tavsiye etmişler ben 2. sayfada görmek istiyorum.

 

[soykan]

Örnek dosya eklermisiniz

 

[evren28]

soykan hocam Altın Üyeliğim olmadığı için dosya ekleyemiyorum

 

[bzace]

Merhaba,
Dosya yüklemek için altın üye olmanıza gerek yoktur.Alternatifi olan yolları izleyiniz.
Sayfa1 2.satırdan başlar verileriniz.Sayfa2 . satırdan aşşağıya doğru yapıştırır.
Sayfa1 verilerinizin A2:G aralığında olduğu varsayılmıştır.Sayfa1 F sütunundaki Tarihleri bugünden küçük olmak şartı ile aktarır.
Kod'u BUÇALIŞMAKİTABI içerisine yazınız.

Option Explicit
Private Sub Workbook_Open()

    Dim i, a, sh1, sh2
    sh1 = "Sayfa1"
    sh2 = "Sayfa2"
    On Error Resume Next
    Application.ScreenUpdating = False
    a=2
    Sayfa2.Range("A2:G65536").ClearContents
    For i = 2 To Sheets(sh1).Cells(65536, "F").End(xlUp).Row
        If Sheets(sh1).Cells(i, "F") < VBA.Date Then
            Sheets(sh2).Cells(a, "A") = Sheets(sh1).Cells(i, "A")
            Sheets(sh2).Cells(a, "B") = Sheets(sh1).Cells(i, "B")
            Sheets(sh2).Cells(a, "C") = Sheets(sh1).Cells(i, "C")
            Sheets(sh2).Cells(a, "D") = Sheets(sh1).Cells(i, "D")
            Sheets(sh2).Cells(a, "E") = Sheets(sh1).Cells(i, "E")
            Sheets(sh2).Cells(a, "F") = Sheets(sh1).Cells(i, "F")
            Sheets(sh2).Cells(a, "G") = Sheets(sh1).Cells(i, "G")
            a =a + 1
        End If
    Next
    Application.ScreenUpdating = True
    Sheets("sayfa2").Select
End Sub

 

[soykan]

Konuyu doğru anladımsa dosyanızı aşağıdaki linkten indirip inceleyiniz lütfen.

http://dosya.co/5wq1n9x9hnln/gtr.xlsm.html

 

[evren28]

bzace cevabınız için çok teşekkür ederim.
soykan hocam sizin verdiğiniz kodu kullandım size de çok teşekkür ederim