BELİRLENEN VERİLERE GÖRE LİSTE OLUŞTURMAK

Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
http://s7.dosya.tc/server11/1g4i6c/rapor.xlsx.html

SAYIN HOCALARIM;
Hayırlı bir akşam diliyorum
ekte yer alan örnek doysa için bütün aramalara rağmen çözüme ulaşamadım acaba yardımcı olabilirmisiniz şimdiden herkese teşekür ederim hürmetler

Yapmaya çalıştığım VERİ sayfasına yazılan plakalardan yola çıkarak SATIŞ SAYFASI'ından bütün satır verilerini sıralı şekilde LİSTELENMESİ GEREKEN SAYFA'ya aktarmamız mümkünmüdür acaba veya nakro ile yapılabilirmi ?

saygılarımla yardımlarınızı arz ederim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
http://s7.dosya.tc/server11/1g4i6c/rapor.xlsx.html

SAYIN HOCALARIM;
Hayırlı bir akşam diliyorum
ekte yer alan örnek doysa için bütün aramalara rağmen çözüme ulaşamadım acaba yardımcı olabilirmisiniz şimdiden herkese teşekür ederim hürmetler

Yapmaya çalıştığım VERİ sayfasına yazılan plakalardan yola çıkarak SATIŞ SAYFASI'ından bütün satır verilerini sıralı şekilde LİSTELENMESİ GEREKEN SAYFA'ya aktarmamız mümkünmüdür acaba veya nakro ile yapılabilirmi ?

saygılarımla yardımlarınızı arz ederim
Dosyanız linktedir.:cool:

DOSYAYI INDIR

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As Worksheet, s2 As Worksheet
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
Set s1 = Sheets("satışlar")
Set s2 = Sheets("Listelenmesi gereken sayfamız")
s2.Range("A:W").Clear
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter field:=10, Criteria1:=Target.Value
s1.Range("A1").CurrentRegion.Copy s2.Range("A1")
s2.Select
s1.Range("A1").AutoFilter

End Sub
 
Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
Dosyanız linktedir.:cool:

DOSYAYI INDIR

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As Worksheet, s2 As Worksheet
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
Set s1 = Sheets("satışlar")
Set s2 = Sheets("Listelenmesi gereken sayfamız")
s2.Range("A:W").Clear
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter field:=10, Criteria1:=Target.Value
s1.Range("A1").CurrentRegion.Copy s2.Range("A1")
s2.Select
s1.Range("A1").AutoFilter

End Sub
Saygıdeğer hocam teşekür ederim ilginize yalnız dosyayı bir türlü indiremedim aktivasyon kodu hatası veriyor DOSYA.CO SAYFASI ve yazmış olduğunuz makroyu uygulayamadım rica etsem başka bir link ile eklermisiniz :)
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Saygıdeğer hocam teşekür ederim ilginize yalnız dosyayı bir türlü indiremedim aktivasyon kodu hatası veriyor DOSYA.CO SAYFASI ve yazmış olduğunuz makroyu uygulayamadım rica etsem başka bir link ile eklermisiniz :)
Dosya linktedir.:cool:

................
.
 
Son düzenleme:
Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
hocam çok ama çok özür dilerim yalnız 2.ci linktede indiremedim çunku tuhaf sayfalar çıkıyıor ( müstehcen ) riskili diyor riski göze aldım ama dosyayay yaptığınız degerli çalışmalarınız görünmüyor ben size özelden mail adresimi versem olurmu acaba ?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
hocam çok ama çok özür dilerim yalnız 2.ci linktede indiremedim çunku tuhaf sayfalar çıkıyıor ( müstehcen ) riskili diyor riski göze aldım ama dosyayay yaptığınız degerli çalışmalarınız görünmüyor ben size özelden mail adresimi versem olurmu acaba ?
Ben o zaman o linki sileyim.
Önceki mesajlarımda verdiğim kodları uygulayabilirsiniz aslında.Kodlar 2nci sayfa için yazılmıştır.
Aranacak olan plakayı D4 hücresine yazınız.
 
Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
Ben o zaman o linki sileyim.
Önceki mesajlarımda verdiğim kodları uygulayabilirsiniz aslında.Kodlar 2nci sayfa için yazılmıştır.
kusura bakmayın ne olursunuz ben o kadar beceriksiz değilim ama :( indirmeyi başardım yalnız çalışmanız bir şekilde devre dışı kalıyor özür dilerim sizide uğraştırıyorum :(
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Çoklu süzme için aşağıdaki kodları kullanabilirsiniz.:cool:
Kod:
Sub plakalrisuz59()
Dim liste(), s1 As Worksheet, s2 As Worksheet
Dim sonsat As Long, sonsat2 As Long
Sheets("veri sayfası").Select
Set s1 = Sheets("satışlar")
Set s2 = Sheets("Listelenmesi gereken sayfamız")
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "J").End(xlUp).Row + 1
liste = Range("B2:B" & sonsat).Value
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter Field:=10, _
        Criteria1:=Application.Transpose(liste), Operator:=xlFilterValues
s1.Range("A1").CurrentRegion.Offset(1, 0).Copy s2.Range("A" & sonsat2)
s1.Range("A1").AutoFilter
s2.Select
End Sub
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
gördüm sayın hocam :) teşekür ederim sanırım beceriksizim :) kodu uygulayamadım ...ve teşekürlerimi saygıyla sunarım selam ve dua ile :)
#8 nolu mesajdaki prosedürü tekrar çalıştırınız.Sanırım makro adı ile ilgili bir sorun olmuştur.Olmazsa dosyayı email adresine atıcam.
 
Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
#8 nolu mesajdaki prosedürü tekrar çalıştırınız.Sanırım makro adı ile ilgili bir sorun olmuştur.Olmazsa dosyayı email adresine atıcam.
dogru tepsip sayın hocam süreki makro sayfası diyor makro atamama rağmen aynı işlevi tekrar ediyor
 
Katılım
5 Aralık 2018
Mesajlar
26
Excel Vers. ve Dili
111
dogru tepsip sayın hocam süreki makro sayfası diyor makro atamama rağmen aynı işlevi tekrar ediyor
ama hocam ya işte bu ( insan beceriksiz olunca silmeye korkuyor :)) tam istediğim gibi allah ne muradınız varsa versin inşallah sagolun varolun sayenizde ben buraya aşık oldum desem yeridir ...:) raporu tam istediğim gibi yaptınız inanın beni büyük bir dertten kurtardınız :) telrar teşekür ederim sayın hocam
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
ama hocam ya işte bu ( insan beceriksiz olunca silmeye korkuyor :)) tam istediğim gibi allah ne muradınız varsa versin inşallah sagolun varolun sayenizde ben buraya aşık oldum desem yeridir ...:) raporu tam istediğim gibi yaptınız inanın beni büyük bir dertten kurtardınız :) telrar teşekür ederim sayın hocam

Estafurullah.
İyi çalışmalar
 
Üst