başka bir sayfada listeleme yapmak

[Ledaer]

merhaba,

ekteki excel dosyamda "termin listesi " adındaki sayfadaki c2 hücresine tarih belirtildiği zaman o tarihteki " mor " ve " müşteri " sayfalarındaki v sutunlarında bulunan termin altındaki tarihlerin bilgilerini termin listesi sayfasında listeleme nasıl yapabiliriz?

teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.
Çalışma sayfası modülünde ;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim liste
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("A7:N65536").ClearContents
If Not IsDate(Target.Value) Then
    MsgBox "Yanlış tarih girişi!" & vbLf & "Örnek : " & Format(Date, "dd.mm.yyyy"), vbCritical, "UYARI"
    Target.Select
    Exit Sub
End If
liste = termin(Target.Value, Sheets("Mor"), 1)
liste = termin(Target.Value, Sheets("Müşteri"), 8)
End Sub

Standart modülde;

Function termin(tar, sh As Worksheet, mor_musteri)
Dim i As Long, sat As Long, sat2 As Long, sut As Byte
sat = sh.Cells(65536, "B").End(xlUp).Row
sat2 = 7
sut = mor_musteri
With Sheets("Termin Listesi")
    For i = 5 To sat
        If sh.Cells(i, "B").Value = tar Then
            .Cells(sat2, sut).Value = sh.Cells(i, "A").Value
            .Cells(sat2, sut + 1).Value = sh.Cells(i, "C").Value
            .Cells(sat2, sut + 2).Value = sh.Cells(i, "E").Value
            .Cells(sat2, sut + 3).Value = sh.Cells(i, "F").Value
            .Cells(sat2, sut + 4).Value = sh.Cells(i, "G").Value
            .Cells(sat2, sut + 5).Value = sh.Cells(i, "H").Value
            .Cells(sat2, sut + 6).Value = sh.Cells(i, "K").Value
            sat2 = sat2 + 1
        End If
    Next
End With
End Function

 

[Ledaer]

çok teşekkür ederim, saolun. ama tarih yazdığım zaman tarih hatası veriyor bunu anlayamadım.

tekrardan teşekkür ederim.

 

[Orion1]

çok teşekkür ederim, saolun. ama tarih yazdığım zaman tarih hatası veriyor bunu anlayamadım.

tekrardan teşekkür ederim.

Demekki tarih yazmamışsınız.Siz tarih yazdığınız sanıyorsunuz.

 

[konas06]

Dosyanız ektedir.
Çalışma sayfası modülünde ;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim liste
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("A7:N65536").ClearContents
If Not IsDate(Target.Value) Then
    MsgBox "Yanlış tarih girişi!" & vbLf & "Örnek : " & Format(Date, "dd.mm.yyyy"), vbCritical, "UYARI"
    Target.Select
    Exit Sub
End If
liste = termin(Target.Value, Sheets("Mor"), 1)
liste = termin(Target.Value, Sheets("Müşteri"), 8)
End Sub

Standart modülde;

Function termin(tar, sh As Worksheet, mor_musteri)
Dim i As Long, sat As Long, sat2 As Long, sut As Byte
sat = sh.Cells(65536, "B").End(xlUp).Row
sat2 = 7
sut = mor_musteri
With Sheets("Termin Listesi")
    For i = 5 To sat
        If sh.Cells(i, "B").Value = tar Then
            .Cells(sat2, sut).Value = sh.Cells(i, "A").Value
            .Cells(sat2, sut + 1).Value = sh.Cells(i, "C").Value
            .Cells(sat2, sut + 2).Value = sh.Cells(i, "E").Value
            .Cells(sat2, sut + 3).Value = sh.Cells(i, "F").Value
            .Cells(sat2, sut + 4).Value = sh.Cells(i, "G").Value
            .Cells(sat2, sut + 5).Value = sh.Cells(i, "H").Value
            .Cells(sat2, sut + 6).Value = sh.Cells(i, "K").Value
            sat2 = sat2 + 1
        End If
    Next
End With
End Function

Evren bey iyi akşamlar
benim de buna benzer bir konum var,
ancak şimdiye kadar hiç ilgilenen olmadı şaşırtıcı bir şekilde
acaba konuyu iyi anlatamadım mı onu düşünüyorum ama bir iki de takviye oldu açıklamalara.
Acaba bana da yardımıcı olabilir misiniz?

"Güzel işler çıkartmaya alıştırdınız bizi. "

Saygılarımla