• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Textboxların güncellenmesi

M

mehmetkoca

Katılım
29 Kasım 2008
Mesajlar
215
Excel Vers. ve Dili
excel 2003 türkçe
Merhaba değerli arkadaşlar
Ekteki dosyada textbox8 e girilen değer sonucu Ara toplam,Kdv ve genel toplam sonuçları çıkıyor.
Fakat Comboboxtan başka bir ürün seçtiğimde textbox8 deki miktara göre fiyatını güncellemiyor.Eski değer kalıyor.
Yani Ara toplam,Kdv, ve Genel toplam sonuçlarının , Combobox1 seçimine göre güncellenmesi gerekiyor
Bunun için nasıl bir kod gerekir.

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

Saygılar.
 

Ekli dosyalar

mehmetkoca' Alıntı:
Merhaba değerli arkadaşlar
Ekteki dosyada textbox8 e girilen değer sonucu Ara toplam,Kdv ve genel toplam sonuçları çıkıyor.
Fakat Comboboxtan başka bir ürün seçtiğimde textbox8 deki miktara göre fiyatını güncellemiyor.Eski değer kalıyor.
Yani Ara toplam,Kdv, ve Genel toplam sonuçlarının , Combobox1 seçimine göre güncellenmesi gerekiyor
Bunun için nasıl bir kod gerekir.

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

Saygılar.
Genişletmek için tıkla ...

Merhaba
Userform'un kod bölümündeki kodları bununla değiştirin.
Kod: 
Option Explicit
Private Sub CommandButton1_Click()
Dim ts
ts = "pvc satış programı 12 KASIM son.xls"
Windows(ts).Visible = True
Application.DisplayAlerts = False
Workbooks(ts).Close
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
CommandButton1.SetFocus
End Sub
Private Sub UserForm_Initialize()
Dim ts
ts = "pvc satış programı 12 KASIM son.xls"
Windows(ts).Visible = True
ComboBox1.RowSource = "PVC!C3:C" & Workbooks(ts).Sheets("PVC").Cells(65536, "C").End(xlUp).Row
Windows(ts).Visible = False
End Sub
Private Sub ComboBox1_Change()
Dim ts
ts = "pvc satış programı 12 KASIM son.xls"
Windows(ts).Visible = True
TextBox3.Text = Workbooks(ts).Sheets("PVC").Range("B" & ComboBox1.ListIndex + 3)
TextBox6.Text = Workbooks(ts).Sheets("PVC").Range("I" & ComboBox1.ListIndex + 3)
TextBox5.Text = Workbooks(ts).Sheets("PVC").Range("H" & ComboBox1.ListIndex + 3)
TextBox7.Text = Workbooks(ts).Sheets("PVC").Range("k" & ComboBox1.ListIndex + 3)
TextBox4.Text = Workbooks(ts).Sheets("PVC").Range("j" & ComboBox1.ListIndex + 3)
Windows(ts).Visible = False
Dim kls As String
kls = "C:\Documents and Settings\xp\Desktop\resim"
With Application.FileSearch
.NewSearch
.LookIn = kls
.Filename = TextBox3 & ".jpg"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count > 0 Then
Image2.Picture = LoadPicture(.FoundFiles(1))
End If
End With
If TextBox8 <> "" Then TextBox12 = Format(CDbl(TextBox8) * (TextBox7), "#,##0.00")
If TextBox8 <> "" Then TextBox9 = Format(CDbl(TextBox12) / 100 * 18, "#,##0.00")
If TextBox8 <> "" Then TextBox10 = Format(CDbl(TextBox12) + (TextBox9), "#,##0.00")
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox8 <> "" Then TextBox12 = Format(CDbl(TextBox8) * (TextBox7), "#,##0.00")
If TextBox8 <> "" Then TextBox9 = Format(CDbl(TextBox12) / 100 * 18, "#,##0.00")
If TextBox8 <> "" Then TextBox10 = Format(CDbl(TextBox12) + (TextBox9), "#,##0.00")
End Sub
 
Teşekkür ederim İhsan Hocam.
Emeğinize yüreğinize sağlık.Bu konuda soracağım bir iki tane soru kaldı size. Userform Direkt açıldığı için arka planda kitabın sayfaları gözükmüyor.Evet gözükmemesi lazım bende öyle istemiştim zaten.Fakat İlgili sayfada değişiklik yapmam gerektiğinde sayfayı nasıl açabilirim? Birde başka excel sayfası açıkken ve o başka olan excel sayfasını kapattığımda userformda kapanıyor.

Saygılar.
 
Son düzenleme:
mehmetkoca' Alıntı:
Teşekkür ederim İhsan Hocam.
Emeğinize yüreğinize sağlık.Bu konuda soracağım bir iki tane soru kaldı size. Userform Direkt açıldığı için arka planda kitabın sayfaları gözükmüyor.Evet gözükmemesi lazım bende öyle istemiştim zaten.Fakat İlgili sayfada değişiklik yapmam gerektiğinde sayfayı nasıl açabilirim? Birde başka excel sayfası açıkken ve o başka olan excel sayfasını kapattığımda userformda kapanıyor.

Saygılar.
Genişletmek için tıkla ...

Bu işin sıkıntısı o dosyada değişiklik yapamazsınız.
Şöyle yapın başka bir kitap açın ve onun kod bölümüne geçin sonra kendi dosyanızı açın ve kod'u durdur'un bu şekilde dosyada işlem yapabileceksiniz.
Diğer sıkıntıyı anlamadım.
 
Merhaba İhsan Hocam.İlk soruyu dediğiniz gibi ancak o şekilde aşabiliriz.Diğer sorum o anda iki dosyayla çalışıyorsak excel kitabının en Üstteki çarpıdan kapatınca haliyle komple excel kapanıyor.Bu durumda yanlışlıkla kapatma olayı çok oluyor.excel kitabının en üstündeki çarpıdan kapanınca userform kapanmasa olurmu? yada en azından şuda olabilir.userform ilk açıldığında en son ekranda ne yazılıysa o ekrana gelse oda sorunu çözer en azından.

İlginiz için teşekkür ederim.Saygılar
 
mehmetkoca' Alıntı:
Merhaba İhsan Hocam.İlk soruyu dediğiniz gibi ancak o şekilde aşabiliriz.Diğer sorum o anda iki dosyayla çalışıyorsak excel kitabının en Üstteki çarpıdan kapatınca haliyle komple excel kapanıyor.Bu durumda yanlışlıkla kapatma olayı çok oluyor.excel kitabının en üstündeki çarpıdan kapanınca userform kapanmasa olurmu? yada en azından şuda olabilir.userform ilk açıldığında en son ekranda ne yazılıysa o ekrana gelse oda sorunu çözer en azından.

İlginiz için teşekkür ederim.Saygılar
Genişletmek için tıkla ...

Merhaba
Kitabın Thisworkbook bölümüne kopyalayın ve deneyin.
Kod: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub
 
Windows(ts).Visible = False (Hocam bu kısımda hata veriyor ve dosya açılmıyor.) ve işin garip tarafı excel hiç kapanmıyor. ne bu dosya nede başka dosya hiç biri.Ancak görev yöneticisnden kapattım.
 
İhsan Tank' Alıntı:
Bu işin sıkıntısı o dosyada değişiklik yapamazsınız.
Şöyle yapın başka bir kitap açın ve onun kod bölümüne geçin sonra kendi dosyanızı açın ve kod'u durdur'un bu şekilde dosyada işlem yapabileceksiniz.
Diğer sıkıntıyı anlamadım.
Genişletmek için tıkla ...


Hocam burdaki dediğiniz şekilde yapıyorum ama yine excelin sayfalarını göremiyorum malesef.
Birde Çıkış butonuna tıkladığımda ilgili kitap kapanmıyor ?
 
mehmetkoca' Alıntı:
Windows(ts).Visible = False (Hocam bu kısımda hata veriyor ve dosya açılmıyor.) ve işin garip tarafı excel hiç kapanmıyor. ne bu dosya nede başka dosya hiç biri.Ancak görev yöneticisnden kapattım.
Genişletmek için tıkla ...

Hocam dün zaten dosyayı incelemiştim ve yukarıdaki şekilde açıklama yapmıştım.
Biliyorum sizi fazla meşgul ediyorumKusura bakmayın.
Saygılar.
 
mehmetkoca' Alıntı:
Hocam bakabildinizmi?
Genişletmek için tıkla ...

Bende 2007 var ve hata vermiyor.
2003 kullanan arkadaşlara rica ettim denemelerini biri dışında henüz geri dönüş olmadı.
Deneyen arkadaş şunu söyledi
X'den kapatmıyor ama alttan sağ tuş tıklayarak diğer dosyaları kapatıyor dedi. Userform bahsettiğiniz dosyayı kapatmak için ise userform'daki Çıkış Butonunu kullanmanız gerekiyor sadece bilmem anlatabildim mi_?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst