Cari Program

[hetlik]

Arkadaşlar Kendimce Müşterilerimin hesaplarını ve bazı ürün analizlerini yapabileceğim bir excel kitapçığı hazırlamaya uğraşıyorum ama otomatik sayfa seçimi ve listeye otomatik ilaveleri yapmayı beceremiyorum belki çok basit bir iş ama, benim için değil. Bu yüzden yardımlarınızı bekliyorum. Ayrıntılı açıklama Kitapçık içerisindeki GİRİŞ sayfasında Yer almakta. Teşekkürler...

 

[hetlik]

arkadaşlar yokmu yardımcı olacak bir excelyiğit

 

[Ferhat Pazarçevirdi]

Dosyanızın revize edilmiş hali ektedir. İnceleyiniz.

 

[banaoi77]

yardım

Merhaba ben dosyanızı inceldim.gerçekten başarılı bir çalışma olmuş.Ben de kendime göre kurmaya çalıştım.Ama beceremedim.bana yardımcı olursanız sevinirim.

 

[banaoi77]

eki unutmuşum

eki unutmuşum

 

[Ferhat Pazarçevirdi]

Ben de kendime göre kurmaya çalıştım.Ama beceremedim.bana yardımcı olursanız sevinirim.

Ekteki dosya sanırım sizin işinizi görür

 

[acebeci]

Ya KardeŞ Tam Benİm İstedİĞİm ProĞram Ama O TuŞlari Nasil OluŞturdun Yenİ OluŞtur DedİĞİnde Nasil Kopyalama Moduna GeÇİyor Yada MÜŞterİ SeÇİyor.senİn İÇİn Çok Kolay OlmuŞtur Ama Ne Olur CahİllİĞİme Ver Yardimci Olursan Çok Sevİnİrİm.alper

 

[Ferhat Pazarçevirdi]

acebeci'ye cevap

Öncelikle şunu belirteyim. Bu dosya; sıfırdan benim oluşturduğum birşey değil. Mesleğim icabı da pek bu konulardan anlamam. Dosya, yapı olarak "hetlik" rumuzlu kullanıcıya aittir. Ben geliştirilmesinde sadece küçük bir katkı yaptım.

Gelelim sorularınıza;

O TuŞlari Nasil OluŞturdun

Bu çok zor birşey değil. "Çizim" araç çubuğundan "Yuvarlatımış Dikdörtgen"i seçerseniz, sayfaya hemen bir tane de siz oluşturabilirsiniz ve içine istediğini yazıları yazabilirsiniz. Daha sonra, bu nesnenin üzerinde mouse!un sağ tuşunu kliklediğinizde, herhangi bir makroyu atayabilirsiniz.

Yenİ OluŞtur DedİĞİnde Nasil Kopyalama Moduna GeÇİyor/QUOTE]
Aslında tüm olay şu satırda bitiyor

Sheets("Şablon").Copy After:=Sheets(Worksheets.Count)

Bunun da Türkçe meali şu : Şablon adlı çalışma sayfasını kopyala ve şu an bulunan sayfaların en sonuna (sonrasına) at.
Excel'de Araçlar->Makro->Yeni Makro Kaydet deyip, bu haldeyken bir sayfayı elle kopyalarsanız, yaptığınız işlemin kod karşılığını VBE'de görebilirsiniz.

Yada MÜŞterİ SeÇİyor

Bunun için bir liste kutusuna (listbox) ihtiyaç vardı. ve tabiki Liste kutusunu da yerleştireceğimiz bir Userforma... Listbox'a belli bir kural dahilinde mevcut sayfa isimleri döngü yardımı ile ilave edildi. Bu da şu kodla yapıldı.

For i = 2 To son
  ListBox1.AddItem sh.Cells(i, 1)
Next i

Lste oluşturulduktan sonra, liste kutusuna çift tıkladığınızda; gerçekleşen olay da şu :

Sheets(ListBox1.Value).Select

Türkçe meali : Ben listbox1'de neyi seçtiysem, bu gitmek istediğim sayfanın adıdır. Seçtiğim sayfaya geç.

Yine takıldığınız bir yer olursa açıklamaya çalışırım.

 

[hetlik]

Teşekkür ve Minnettarlık

Dosyanızın revize edilmiş hali ektedir. İnceleyiniz.

Sevgili kardeşim yardımın için nasıl minnetarım anlatamam çok çok çok teşekkür ederim

 

[dzhas]

Hetlik arkadaşımızın cari dosyasını geliştirmek .....

Sevgili Hetlik kardeşim

Yaptığın dosya hakikaten süper olmuş bende dosyayı indirerek kendime göre biraz üzerinde oynadım ( sizin affınıza sığınarak ) ama bir yere kadar benim bu grupta excelden iyi anlayan arkadaşlardan bir ricam olacak ben bu dosyaya bir kasa sayfası ekledim bu dosyayı aynı zaman da kasa defteri olarakta kullanmak istiyorum müşteri carilerine girdiğim gelen ödemeyi kasaya da o müşterinin açıklama bölümüne ismi ile eklesin birde carisi olmayan bir sefere mahsus mal alan bir parekende müşteriyide kasaya giriş yapabileyim bu dosyayı bana bu şekilde hazırlayacak arkadaşlarıma minnettar olacağım

Sağlık mutluluk ve sevgiyle kalın

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[dzhas]

Sevgili Arkadaşım
Çok çok teşekkürler ellerine sağlık

 

[Ferhat Pazarçevirdi]

Rica ederim. Kolay gelsin.

 

[omer979]

Elİne SaĞlik

 

[omer979]

herkesin eli dert görmesin

 

[kassap]

Çok teşekkürler...