Hucreye girilen deger ile uyusan satirlarin hepsini alma

[Allopa]

Selamlar arkadaslar;

Ekteki dosya ile ilgili yardim edebilirmisiniz ?

Ekte dosyada 'Gunluk cikti' sayfasinin A1 hucresine girilen tarihi 'Musteriler' sayfasinin J kolonunda ki tarihlerde sorgulayip, uyusan satirlarin tumunu Gunluk cikti sayfasina cekmek istiyorum ama basaramadim yardimci olurmusunuz ?

 

[İhsan Tank]

Selamlar arkadaslar;

Ekteki dosya ile ilgili yardim edebilirmisiniz ?

Ekte dosyada 'Gunluk cikti' sayfasinin A1 hucresine girilen tarihi 'Musteriler' sayfasinin J kolonunda ki tarihlerde sorgulayip, uyusan satirlarin tumunu Gunluk cikti sayfasina cekmek istiyorum ama basaramadim yardimci olurmusunuz ?

merhaba
boş bir module kopyalayarak denermisiniz

Sub getir()
Dim c As Range, sat As Long, ilkadres As Variant
Sheets("Gunluk Cikti").Range("A3:L" & Rows.Count).ClearContents
sat = 3
With Sheets("Musteriler").Range("J:J")
Set c = .Find(Sheets("Gunluk Cikti").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("Gunluk Cikti").Cells(sat, "A") = Sheets("Musteriler").Cells(c.Row, "A")
Sheets("Gunluk Cikti").Cells(sat, "B") = Sheets("Musteriler").Cells(c.Row, "B")
Sheets("Gunluk Cikti").Cells(sat, "C") = Sheets("Musteriler").Cells(c.Row, "C")
Sheets("Gunluk Cikti").Cells(sat, "D") = Sheets("Musteriler").Cells(c.Row, "D")
Sheets("Gunluk Cikti").Cells(sat, "E") = Sheets("Musteriler").Cells(c.Row, "E")
Sheets("Gunluk Cikti").Cells(sat, "F") = Sheets("Musteriler").Cells(c.Row, "F")
Sheets("Gunluk Cikti").Cells(sat, "G") = Sheets("Musteriler").Cells(c.Row, "G")
Sheets("Gunluk Cikti").Cells(sat, "H") = Sheets("Musteriler").Cells(c.Row, "H")
Sheets("Gunluk Cikti").Cells(sat, "I") = Sheets("Musteriler").Cells(c.Row, "I")
Sheets("Gunluk Cikti").Cells(sat, "J") = Sheets("Musteriler").Cells(c.Row, "J")
Sheets("Gunluk Cikti").Cells(sat, "K") = Sheets("Musteriler").Cells(c.Row, "L")
Sheets("Gunluk Cikti").Cells(sat, "L") = Sheets("Musteriler").Cells(c.Row, "M")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
MsgBox Format(Range("A1"), "dd.mm.yyyy") & " Tarihli Veriler Aktarıldı", vbInformation
End Sub

Not : Kayıt Yaparken Lütfen Makro içerebilen dosya yada 97-2003 formatında kayıt yapınız

 

[Allopa]

Cok tesekkur ederim hocam ancak ofis 2003'de de denedim dediginiz gibi 2010 macro xlsm olarak da denedim calismadi. Tarih formatlarini 00.00.0000 seklinde de yaptim olmadi

 

[İhsan Tank]

Cok tesekkur ederim hocam ancak ofis 2003'de de denedim dediginiz gibi 2010 macro xlsm olarak da denedim calismadi. Tarih formatlarini 00.00.0000 seklinde de yaptim olmadi

eki inceler misiniz
bende gayet güzel çalışıyor.
buton'a ekledim deneyiniz

 

[Allopa]

Evet bu bende de calisti cok tesekkur ederim Allah razi olsun sizden...

 

[İhsan Tank]

Evet bu bende de calisti cok tesekkur ederim Allah razi olsun sizden...

rica ederim
:yazici: