• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
5 Aralık 2018
Mesajlar
8
Beğeniler
0
Excel Vers. ve Dili
111
#1
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
 
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#2
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
8
Beğeniler
0
Excel Vers. ve Dili
111
#3
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:
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
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
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#6
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
8
Beğeniler
0
Excel Vers. ve Dili
111
#7
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 :(
 
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#8
Ç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:
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#12
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
8
Beğeniler
0
Excel Vers. ve Dili
111
#14
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
 
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#15
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