başka sayfada olan müşteri listesini bulma

[AKTAY27]

meraba arkadaşlar

1.müşteriler "sayfası"
2.satışlar "sayfası"

müşteri ünvanı sütunu c3:c500 kadar

500 kalem satış satırları var ve hergün satış yapılmakta günlük yapılan satışları altalta giriyoruz örneğin c250 ye kadar girişini yapmış olalım c251 hücresine müşterinin adını ilk harflerinin yazdığım anda o rafle başlayan müşterilerin listesini aynı hücrede yada b sütununda görebilirmiyiz ve listeden müşteriyi seçebilirmiyiz.

saygılarımla;

 

[Korhan Ayhan]

Selamlar,

Sorunuzu örnek dosya ekleyerek açıklarmısınız.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[AKTAY27]

sayın orion2 ilginizden dolayı teşekkür ederim.

müşteri listesine gitmek değil müşteri listesinden isim seçip satışlar sayfasında hangi satırdaysam o satıra seçilen ismin yazılmasını istiyorum.

1-örneğin diyelim ki hazırlamış olduğunuz macro sayfa 2 de olmuş olsun sayfa1 de ise müşteri listemiz olsun sayfa2 de arama yaptırıp sayfa1 deki müşteri listesinden istenilen müşteri ismi seçilince sayfa2 de hangi satırın üzerindeysek oraya o seçilen ismin yazılmasını istiyorum.

2-bu işlemi listbox işlemiyle yapabiliriz diye düşünüyorum macroya kısayol tanıplayıp örneğin: F10 bastığımız zaman karşımıza arama penceresi gelsin ordan harf kriterli bir liste oluşturabilsin müşterinin ismini yazalım yazdığımız müşterinin listeden ismine tıkladığımız yada enter 'a bastığımız zaman sayfa2 de yani satış sayfasından hangi hücrenin üstündeysek oraya o müşteriyi yazsın.
teşekkürler

 

[AKTAY27]

Sayin Cost_control

İlgİnİzden Dolayi TeŞekkÜr Ederİm.

Örnek Dosyayi GÖnderİyorum

Lİstboxa Lİstelenen Bayİİyİ Aktİf Hale Getİrİnce Ayni Şekİlde MÜŞterİ Adi Ve GİdeceĞİ Yer Lİsteboxta Aktİf Edİp Enter TuŞuna Basinca Aktİf Olan Bİlgİlerİn SatiŞlar Sayfasinda Bayİİ Satirinda En Son Kayda Altina Eklemesİnİ İstİyorum.
TeŞekkÜrler

 

[tahsinanarat]

Bakarmısınız, böyle bişeymi

Dosyanızı incelermisiniz. İstediniğiz gibi olmuşmu

 

[AKTAY27]

Sayin Tahsİnanarat
UĞraŞiniz İÇİn TeŞekkÜr Ederİm Ama Benİm İstedİĞİm Bu DeĞİl
Bayİİ Ünvanini SeÇtİĞİmİz Zaman MÜŞterİ Adi Ve VariŞ Yerİ Otomatİk Gelemez ÇÜnkÜ
Bayİİ UsulÜ ÇaliŞtiĞimiz İÇİn Bayİnİnİ 1 Den Fazla MÜŞterİsİ Var Ve MÜŞterİlerİn De 1 Den Fazla VariŞ Yerİ Var Onun İÇİn Bayİ Ünvani+mÜŞterİadi+variŞ Yerİnİ Belİrtmek Gerkİyor.

Şuan Yarim Yamalak YaptiĞim Bİr Form Üzerİnde ÇaliŞiyorum. Yapmak İstedİĞİm Arama Formu OluŞturdum, OluŞturduĞum Bu Formdan Bayİ,mÜŞterİ Ve VariŞ Yerİnİ Aktİf Ettİkten Sonra Mausla Textboxlara Aktarip Ordanda SatiŞlar Sayfasina Aktarmayi DÜŞÜnÜyorum Ama Lİstboxtakİ Verİlerİ Aktİf EttİĞİm Zaman Zadece VarİŞ Yerİ Bİlgİsİnİ Çiakrtiyor Bunun İÇİn Bİr ÇÖzÜm Bulabİlİrmİyİz.

 

[AKTAY27]

Örnek Form.

Örnek Form

 

[AKTAY27]

sayın tahsinanarat;
şimdi farkettim 3 adet listboxvar ve hangisini enson listelersem osayfadakı bilgileri veriyor. bunu düzeltebilirmiyiz.

 

[AKTAY27]

İstedİĞİm Şeyİn Sİzİn İÇİn Çocuk OyuncaĞi OlduĞunu Bİlİyorum.
Yok Mu Fİkrİnİ Zİkre DÖkecek Bİrİ

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[AKTAY27]

Çok TeŞekkÜrler Elİnİze SaĞlik Cost_control
İyİkİ Varsiniz

 

[AKTAY27]

Sayin Cost Control;

F10 İle Arma Formunu ÇaĞirmayi BİkaÇ Sayfada Daha Yaptiramazmiyiz.

 

[Korhan Ayhan]

Selamlar,

Yaptırabiliriz. Hangi sayfalarda yaptırmak istiyorsunuz açıklarmısınız.

 

[AKTAY27]

Sayin Cost Control;

Kalİte Bazida Sayfalar OlacaĞi İÇİn

SatiŞlar Sayfasinin Aynisi

Kalİte1+kalİte2+kalİte3 Gİbİ Sayfalarda İŞlem Yapilacak
Her Kalİte Sayfasina GeldİĞİm Zaman F10 İle Formu AÇmak İstİyorum

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki Modül1 içindeki kodua aşağıdaki şekilde değiştirip kullanabilirsiniz. Kırmızı renkli bölüme Or ActiveSheet.Name = "ÇALIŞMASINI İSTEMEDİĞİNİZ SAYFA ADI" eklentisini yaparak istediğiniz sayfaları ekleyebilirsiniz. F10 tuşu burada yazan sayfaların dışında tüm sayfalarda çalışacaktır. Yani koda F10 tuşunun çalışmaması gereken sayfaları yazmanzı gerekiyor.

Sub ARAMA_FORMU()
    [COLOR=RED]If ActiveSheet.Name = "PARAMETRELER" Or ActiveSheet.Name = "MÜŞTERİ LİSTESİ" Or ActiveSheet.Name = "GENEL M2" Then Exit Sub[/COLOR]
    If ActiveCell.Row < 3 Then Exit Sub
    If ActiveCell.Column <> 3 Then Exit Sub
    M&#220;&#350;TER&#304;_L&#304;STES&#304;.Show
End Sub

 

[AKTAY27]

Çok TeŞekkÜrler Sayin Cost Control
Elİnİze SaĞlik Tam İstedİĞİm Gİbİ Oldu