işaretlenen Ürünleri Userforma Listeleme

[Sa.NaL]

Gerçek çalışmam bu hocam

hocam gerekli parça listesi bölümü var formda orada ben işaretlediğim ürünlerin adını ve adetini userforma aynen sizin tasarımınızda olduğu gibi atmak istiyorum ürünler userforma listelenince üzerine çift tıklayınca o ürünün fiyatını girmek istiyorum ve toplam fiyata ve kdv ye yansımasını istiyorum tam olarak istediğim bu hocam

 

[Sa.NaL]

pardon eki unuttum

perdon hocam eki unuttum

 

[ozgretmen]

sdayın Sa.Nal ilk başta sormuş olduğunuz soru ile bu son soru arasında ÇOK fark var.Keşke ilk başta bu dosyayı ekleyip bizde ona göre bir çözüm arasak daha iyi olurdu.Galiba biraz boşa kürek çekmiş olduk.Dosyanızı düzenledim.Umarım istediğiniz böyle bir şeydir.

 

[Sa.NaL]

Kusura bakmayın

Hocam kusura bakmayın ben fazla anlamıyorum ama sizde beni anlamıyorsunuz sanırım ben yapılacak işlemler bölümünü fiyatlandırmazını istemedim ki gerekli parça listesini örneğin silindir kapağı 2 adet bunlar listeye listelenmesini istedim ve fiyatları excel sayfasında değil userfırmda listelenen ürüne çft tıklayınca örneğin girilmesini istedim yani userform açıldığında ürünlerin yanında herhangi bir fiyat yazmayacak ben fiyaatı listelenen ürüne tıklayınca yazacağım ve tek tek fiyatları girdikçe toplam fiyat ve kdv yansıyacak tam olarak bu ben kendimimi anlatamıyorum ksusura bakmayın vaktinizi çalıyorum ama anlaşılmamak da beni üzüyor

 

[ozgretmen]

Dosya ekte....

 

[Sa.NaL]

Çok teşekkür ederim hocam ama hala anlaşşılmadım sanırım fiyat girildi de yazsın istemiyorum listede fiyat bölümünde listele kmut 2sine basınca ürün ve adetleri gelsin ama fiyatları ben listelendikten sonra çift tıklayıp üstüne gireyim girdikçede ürün fiyatlarını toplam fiyata ve kdv ye yansısın ben listelemeye basar basmaz toplam fiyat da 158 ytl yazıyor orada ilk 0 ytl yazacak ben ürüne çift tıklayıp fiyatı girdikçe artacak o anlamda dedim sanırım bu şekilde olamıyor galiba geçen mesajdada bunu belirtmek istedim.Beni anladığınıza inanıyorum ama galiba olmadığından sizde fazla yardımcı olamıyorsunuz canınız saolsun ilginenmeniz yeter...

 

[ozgretmen]

Çok teşekkür ederim hocam ama hala anlaşşılmadım sanırım fiyat girildi de yazsın istemiyorum

Aslında anlaşıldınız.Ama hala anlamadığım bir şey var.Form açılacak , bir ürüne fiyat gireceksiniz sonra başka bir ürüne fiyat girecesksiniz.Peki hangi ürüne ne kadar fiyat girdiniz , bunu karıştırmayacakmısınız ? Her neyse dosyayı tekrar düzenledim.Dosya ekte...

 

[Sa.NaL]

hocam listele dedim 78 ytl yazdı yine ben anlatamıyorum sanırım kendimi kusura bakmayın ben mesela gerekli parça listesinden silindir kapağını seçtim 2 adet dedim normal excel sayfasında bunları girdim userformu aç dedim o ara parçaçıya telefon açıyorum işyerinden diyorum ki 2 adet silindir kapağı ne kadar oda diyor ki 200 tl bende hemen userformu açıp listelenen ürünü 2 adet silindir kapağının üstüne tıklayıp 200 tl giriyorum ve aynı anda toplam fiyata 200 tl yazıyor ve kdv si yazıyor birde formu kapattım yapılan labaratuarda sonuçlara göre takım kayıtta lazım oldu hemen işaretleyip 5 adet giriyorum arıyorum parçaçıyı yine kaç para 50tl hemen açıyorum listeliyorum seçtiğim kayıtı listeye ve üzerine tıklayıp 50 tl giriyorum ve toplam fiyat 250 tl oluyor ve kdv değişiyor gibiben son attığınıza baktım fiyat bölümü kaybolmuş listenin içinden kaybolmasın o bölüm dursun ben çift tıklayıp o blüme fiyat tayin edeyim bu en detaylı valla yine olmazsa artık ben pes ettim hocam

 

[Sa.NaL]

fiyatıda userforma listeye yazdırmak istememin sebebi userforma yazdır komutu koyup çıktı almak hocam yoksa excel sayfasına fiyatları yazmak için bölüm açılır ama böyle çıktı alabilmek için daha mantıklı değilmi?

 

[ozgretmen]

... o blüme fiyat tayin edeyim bu en detaylı valla yine olmazsa artık ben pes ettim hocam

Selam.Benim pes etmeye niyetim yok...Siz anlattıkça ben de yapmaya çalışıyorum.Son anlatımınız başarılı...İşte böyle olması gerek...Ne istediğinizi açıkça belirtin ki cevap vermek güçleşmesin.Yine korkuyorum.Nerede ne hata yaptım diye.Olsun yine değiştiririz sorun yok yani.Amaç sorun çözülsün yeter...
Dosya yine ekte...

 

[Sa.NaL]

Ellerinize sağlık hocam muhteşem son isteğimi bellirtebilirmiyim.Çift tıkladıktan sonra fiyat giriyoruz ya örneğin silindir kapağı 100 girdik daha sonra soruyor Silindir Kapağı Ürününün Fiyatını 100 Yapmak İstediğinize Emin misiniz ? Bu Çıkmasın hocam direk fiyat yazılsın ve bu esnada bir kaybolma oluyor tekrar listele komutuna basmak gerekiyor buda olmasa tam süper olacak yani fiyatı girer girmez tablo görününr haldeyken fiyat listeye yerleşsin tekrar listele komutuna basmayalım.Ve çok teşekkür ederim tam kafamdaki gibi gerçi kafamdaki böyle değildi sizin sayenizde daha mantıklı bişey oldu. Şimdi ben excel sayfasına bir komut daha koyup yazdır diye bunu A4 kağıdında çıktısını alabilirmiyim hocam? Userformun A4 boyutunda çıktısı nasıl ayarlanır ?

 

[Sa.NaL]

Birde hocam bazı yerlerini anlamadım If Cells(i, "CL") <> DOĞRU Then bu farklı ise demek değilmi doğruya eşit ise olması gerekmiyormu sadece öğrenmek için sordum

 

[Sa.NaL]

List view özelliklerine baktım bulamadım adet ve fiyata listelenenler yazılar sola dayalı şekilde oluyor onu o bölümde ortala yaptırma kodunu söyleyebilirmisiniz? Valla sizden yüz buldum ben pes etmem dediniz ama gerçekten sıkıldığınız yerde bırakabiliriz.İnanın ben size yaptırıyorum havası olmasın şuan tasarladığınız kodları defterime yazıyorum üniteleri açıp tekrar ediyorum emin olabilirsiniz?

 

[Sa.NaL]

Hocam birde şurada hangisinin adı yazılı ise onun 2 yanına fiyatı yerleştir diyor
Range("CM23:CM34").Find(ad, LookIn:=xlValues, LookAt:=xlWhole).Select o sırada excel sayfasında CM23 ile CM34 arasında tüm gerekli parçalistesi var ama sadece doğru yazanları nasıl ayırd edip alıyor listeye onu anlayamadım

 

[ozgretmen]

Dosya ekte...

 

[Sa.NaL]

sayfa koruma şifresi

Hocam sayfa koruma şifresi ne acaba çünkü listedekiler silinmiyorda?

 

[ozgretmen]

şifre : 1 unutmuşum eklemeyi...

 

[Sa.NaL]

hocam temizleyemeye basınca yine temizlemiyor ve toplam fiyatta yazdır sayfasında 346 ytl yazıyor sebebini anlamadım normalde 0 yazması gerekmiyormu?

 

[ozgretmen]

Buton 3 e ait kodu aşağıdaki şekilde değiştiriniz .

Private Sub CommandButton3_Click()
Range("CO23:CO34").Select
Selection.ClearContents
Sheets("YAZDIR").Select
Range("C6:C25").Select
Selection.ClearContents
Sheets(" Kapak Giriş Formu").Select
[a1].Select
CommandButton2_Click
End Sub

 

[Sa.NaL]

çOK TEŞEKKÜR EDERİM HOCAM BEN şimdi çalışmama adapte edip anlamaya çalışacağım kodları takıldığım yer olursa size danışabilirmiyim tekrar.iyi çalışmalar