Fiyat Hesaplama Programı

[Civan Jack]

Merhaba!
Bir fiyat hesaplama programı yapmak istiyorum. Yardımlarınıza ihtiyacım var...
Şimdilik sadece kartvizit sayfasını kullanmak istiyorum.
Userfom1' i esas alalım lütfen! Diğer formları ilerki zamanlarda kullanmayı düşünüyorum.
Veriler, nasıl hesaplanacağı ve açıklamalar "kartveri" sayfasındadır, oradan bakabilirsiniz.
Başlıkların yanına açıklamalar ekledim açıklayıcı olsun diye, yine de anlaşılmayan bir konu olursa hemen sorunuza yanıt vereceğim.
Olmasını temenni ettiğim olay, form üzerinden teklif no yu seçtiğimizde "teklifkayıt" sayfasına girilen verilerin form üzerine gelmesi, yani teklif no ya göre, daha önce verilen teklifi userforma çağırarak görmek ve revize etmek istiyorum.

Yardımlarınız için teşekkür ederim..

 

[Civan Jack]

Bana göre çok zor ama sizler için basit olabilir. Excel-vba manyağı oldum. Her dakka bununla uğraşıyorum.
Şimdiden teşekkürler

 

[Civan Jack]

Arkadaşlar bir gelişme var mı acaba ?
Merakla bekliyorum, inşaallah devamını da ben getireceğim.
İyi çalışmalar..

 

[Civan Jack]

Arkadaşlar yardımcı olabilecek kimse yok acaba ?

 

[Civan Jack]

Arkadaşlar neden bana yardımcı olunmuyor acaba öğrenebilir miyim ???

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Verileri forma aşağıdaki kod ile yükleyebilirsiniz.

Private Sub ComboBox19_Change()
    Dim BUL As Range
    
    If ComboBox19 <> Empty Then
    
    With Sheets("teklifkayıt")
    Set BUL = .Range("C2:C65536").Find(ComboBox19)
    If Not BUL Is Nothing Then
    ComboBox23 = .Cells(BUL.Row, "A")
    ComboBox23 = .Cells(BUL.Row, "B")
    TextBox16 = .Cells(BUL.Row, "D")
    ComboBox13 = .Cells(BUL.Row, "E")
    ComboBox14 = .Cells(BUL.Row, "F")
    ComboBox15 = .Cells(BUL.Row, "G")
    ComboBox16 = .Cells(BUL.Row, "H")
    ComboBox17 = .Cells(BUL.Row, "I")
    ListView1.ListItems.Add , , .Cells(BUL.Row, "J")
    
    ComboBox20 = .Cells(BUL.Row, "L")
    TextBox26 = .Cells(BUL.Row, "M")
    ComboBox21 = .Cells(BUL.Row, "N")
    TextBox27 = .Cells(BUL.Row, "O")
    TextBox28 = .Cells(BUL.Row, "P")
    TextBox29 = .Cells(BUL.Row, "Q")
    ComboBox22 = .Cells(BUL.Row, "R")
    
    TextBox18 = .Cells(BUL.Row, "T")
    TextBox19 = .Cells(BUL.Row, "U")
    TextBox20 = .Cells(BUL.Row, "V")
    TextBox21 = .Cells(BUL.Row, "W")
    TextBox22 = .Cells(BUL.Row, "X")
    TextBox23 = .Cells(BUL.Row, "Y")
    TextBox24 = .Cells(BUL.Row, "Z")
    TextBox25 = .Cells(BUL.Row, "AA")
    TextBox17 = .Cells(BUL.Row, "AB")
    
    End If
    End With
    End If
    
    Set BUL = Nothing
End Sub

 

[Civan Jack]

Teşekkürler Korhan bey..
Biliyorum üyeler sitedeki arşivi kullanarak kendileri bir şeyler yapsın istiyorsunuz.
Ama inanın şu aralar hiç vaktim yok full tempo çalışıyorum, sizlerinde yoktur belki, ama ben yardım istiyorum diye belirtiyorum. Biraz kafa yorabilsem, her örneği dikkatlice inceleyebilsem ufak ufak bir şeyler yapabilirim. Hatta çok çok ileriye götüreceğime inanıyorum. Fakat dediğim gibi şu aralar başımı kaşıyacak vaktim bile yok...

Sizler üyelerin her sorularını yanıt vermek zorunda değilsiniz biliyorum.
Yardım için, bir şeyler öğretebilmek için buradasınız. Bunu herkesin anlaması lâzım.

Bu dar zamanımda bana yardımcı olduğunuz için size minnettarım Korhan bey..

Çalışmalarınızda başarılar dilerim.
Allah'a emanet olun.

 

[ahmetuslu]

selamlar
ben de serbest ajans işi ile uğraşıyorum buna benzer bir şeyi çok aradım ve hatta yapmaya çalıştım ancak şu anki exel bilgim yeterli olmadığı için bir türlü yapamadım eğer bu program kullanılabilir hale getirilirse mükemmel olur yardımcı olacaklara da şimdiden şükranlarımı sunarım kendi adıma

 

[Civan Jack]

Ahmet bey iyi günler, ben de matbaacıyım elimde bir çok fiyat hesaplama programı (formu) var fakat excel de dilerseniz gönderebilirim...

 

[ahmetuslu]

matba maliyet formu

sayın civan jack nezaketiniz için teşekkür ederim

çok zorlandığım bir konuda yardım istemiştim matbaacı olduğunuz için sanırım demek istediklerimi anlamışşsınızdır şoyle bir şey yapmaya çalışıyorum

kağıt ebadına gramajına göre kaç tabaka adedi ve kilosu kilo fiyatını grince toplam tutarı hesaplayacak bir şeye ihtiyacım var şimdiden teşekkür ederim

 

[Civan Jack]

Kusura bakmayın Ahmet bey uzun zamandır giremiyordum siteye, mesajınızı yeni gördüm.
Tabiki yardımcı olurum.

Ek'teki dosyayı inceler misiniz ?