Excel de müşteri listesini takip etmek

[ykaracik]

Selam,

Arkadaşlar yüklediğim xls. dosyasında iki sayfa bulunmaktadır.
Bunlarda liste adlı sayfada müşteri listem var.

Diğer bugün isimli sayfada ise ogün içinde müşteri ismli sayfanın bakım sutununda bulunan bakım zamanı gelen müşterilerin bilgilerini otomotik olarak bugün adlı sayıfaya aktarmak istiyorum.

Konuyla ilgili yardımlarınızı rica ederim...
Ekli dosyayı görüntüle MÜŞTERİ.xlsx

 

[Orion1]

Örnek dosyaları xls yani 2003 versiyon olarak yüklerseniz.
Daha çok kişi cevap verebilir ve daha hızlı cevap alabilirsiniz.

 

[ykaracik]

Dosyayı istediğniz formatta yükledim ilgiiniz için tşekkürler..Ekli dosyayı görüntüle MÜŞTERİ_.xls

 

[Orion1]

Dosyanız ektdir.

Sub bakim_59()
Dim sh As Worksheet, sat1 As Long, sat2 As Long, k As Range
Dim adr As String
Set sh = Sheets("LİSTE")
sat1 = sh.Cells(65536, "B").End(xlUp).Row
sat2 = 6
Range("A6:M65536").Clear
Set k = sh.Range("G2:L" & sat1).Find(Range("B3").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Application.ScreenUpdating = False
    adr = k.Address
    Do
        Cells(sat2, "A").Value = sat2 - 5
        Range("B" & sat2 & ":M" & sat2).Value = sh.Range("B" & k.Row & ":M" & k.Row).Value
        Cells(sat2, k.Column).Interior.Color = vbRed
        Cells(sat2, k.Column).Font.Color = vbYellow
        Cells(sat2, k.Column).Font.Bold = True
        Cells(sat2, k.Column).Font.Italic = True
        sat2 = sat2 + 1
        Set k = sh.Range("G2:L" & sat1).FindNext(k)
    Loop While Not k Is Nothing And adr <> k.Address
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End If
End Sub

 

[ykaracik]

Hocam, Bakım düğmesine bastığımda bilgiler kayboluyor

 

[Orion1]

Hocam, Bakım düğmesine bastığımda bilgiler kayboluyor

Hangi bilgiler kayboluyor?
LİSTE sayfasında G2:L65536 aralığında Bu gün sayfasındaki B3 hücresindeki tarihi arıyor.
Önce Bu gün sayfasındaki 6.ncı satırdan sonraki verileri siliyor.
Bulduğunda ise o sayfada bulunan satırları listeliyor.
Eğer bulamamışsa
o sayfa boş oluyor.Sizde bunu istemiştiniz.

 

[ykaracik]

Evren Hocam,

Düzenlemiş olduğunuz xls. cizelgesi çok işie yaradı teşekür ederim.

Saygılarımla..