Userform Kapatma İşlemi

[mehmetkoca]

Değerli Arkadaşlar ;

Forumda baya bir araştırdım fakat kendi çalışmama tam olarak uygulayamadım.

1.Excel belgesine tıkladığımda userform direkt açılmalı ve ilgili çalışma kitabı gizlenmeli. (Örneğin ben ilgili kodu uyguladığımda açık olan diğer excel kitaplarıda gizleniyor) Kapat düğmesine tıklayınca hem userform hemde ilgili çalışma kitabı kapanmalı.Ve o sırada açık olan başka excel kitaplarına herhangi birşey olmamalı.Userformu kapatırken kaydetmeye gerek yok.

Yani kısacası komutların sadece çalışma kitabıyla ilgili olması gerekiyor.

Yukarıda belirtmiş olduğum konuyla ilgili yardımlarınızı bekliyorum.

Saygılarımla.

 

[İhsan Tank]

Değerli Arkadaşlar ;

Forumda baya bir araştırdım fakat kendi çalışmama tam olarak uygulayamadım.

1.Excel belgesine tıkladığımda userform direkt açılmalı ve ilgili çalışma kitabı gizlenmeli. (Örneğin ben ilgili kodu uyguladığımda açık olan diğer excel kitaplarıda gizleniyor) Kapat düğmesine tıklayınca hem userform hemde ilgili çalışma kitabı kapanmalı.Ve o sırada açık olan başka excel kitaplarına herhangi birşey olmamalı.Userformu kapatırken kaydetmeye gerek yok.

Yani kısacası komutların sadece çalışma kitabıyla ilgili olması gerekiyor.

Yukarıda belirtmiş olduğum konuyla ilgili yardımlarınızı bekliyorum.

Saygılarımla.

Merhaba
Bir userform oluşturun içine bir tane CommandButton oluşturun.
Userfrm'un kod bölümüne

Option Explicit
Private Sub CommandButton1_Click()
Dim ts
ts = "[COLOR="Red"]kitap1.xlsm[/COLOR]"
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

Bu kodu
Boş bir module'ye

Option Explicit
Sub auto_open()
Dim ts
ts = "[COLOR="red"]Kitap1.xlsm[/COLOR]"
Windows(ts).Visible = False
UserForm1.Show 0
End Sub

Bu kodları kopyalayın.
Kırmızı olan yere kitab adı ve uzantısını yazmayı unutmayın.

 

[mehmetkoca]

Selamlar Hocam ;

Ekteki resimdeki gibi bir hata veriyor.

 

[İhsan Tank]

Selamlar Hocam ;

Ekteki resimdeki gibi bir hata veriyor.

Hatalı dosyayı ekler misiniz_?

 

[mehmetkoca]

Dosya ektedir Hocam.

 

[İhsan Tank]

Dosya ektedir Hocam.

Merhaba
Userform'un kod bölümüne kopyalayın ve deneyin.

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
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

 

[mehmetkoca]

Teşekkür ederim İhsan Hocam.Size mümkünse bir sorum daha olacaktı.
İlgili 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.
Bunun için nasıl bir kod gerekir.


Saygılar

 

[mehmetkoca]

Yani Ara toplam,Kdv, ve Genel toplam sonuçlarının , Combobox1 seçimine göre güncellenmesi gerekiyor

 

[İhsan Tank]

Sorunuzun bu konu ile alakasını çözemedim.
Bu konu bittiyse konuyu kapatalım yeni bir konu açarak sorunuzu sorun