Combobox ile sabit hücreye sayı yazdırmak

[yener11]

Günaydın

Ekteki dosyadada görüneceği gibi Benim sorunum listbox ta seçili alan seçildikten sonra sil butonu tıklandığında seçili alan dışı başka biyerlerde siliyor ve formüller bozuluyor bunu çözemedim bir diğeri ise listboxdan alan seçilmediğinde msgbox” lütfen listeden seçim yapınız ”mesajı vermesi ve sil butonu tıklandığında “ silmek istediğinize emin misiniz ” mesajı vermesi.yes no…Son olarak

Combobox4 “AMT Excel sayfasında” C4 hücresine sabitlenmesi
Combobox5 “AMT Excel sayfasında” C3 hücresine sabitlenmesi
Combobox6 “AMT Excel sayfasında” C5 hücresine sabitlenmesi

Bunları yapamadım arkadaşlar yardımcı olursanız sevinirim.

 

[halit3]

Günaydın

Ekteki dosyadada görüneceği gibi Benim sorunum listbox ta seçili alan seçildikten sonra sil butonu tıklandığında seçili alan dışı başka biyerlerde siliyor ve formüller bozuluyor bunu çözemedim bir diğeri ise listboxdan alan seçilmediğinde msgbox” lütfen listeden seçim yapınız ”mesajı vermesi ve sil butonu tıklandığında “ silmek istediğinize emin misiniz ” mesajı vermesi.yes no…Son olarak

Combobox4 “AMT Excel sayfasında” C4 hücresine sabitlenmesi
Combobox5 “AMT Excel sayfasında” C3 hücresine sabitlenmesi
Combobox6 “AMT Excel sayfasında” C5 hücresine sabitlenmesi

Bunları yapamadım arkadaşlar yardımcı olursanız sevinirim.

Private Sub UserForm_Initialize() olayın içine aşağıdaki bölümü ekleyin

ComboBox5.RowSource = "AMT!C3"
ComboBox6.RowSource = "AMT!C5"

sil makrosunuda aşağıdakiyle değiştirin,

Private Sub CommandButton14_Click()
If ListBox1.Text = "" Then MsgBox "listeden seçim yapmadınız.": Exit Sub
sat = ListBox1.ListIndex + 7
yer = Cells(sat, "d").Value
a = MsgBox(yer & "  Silmek istiyormusunuz. ?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ListBox1.RowSource = ""
Sheets("AMT").Rows(sat).Delete Shift:=xlUp
a = WorksheetFunction.CountA(Sheets("AMT").Range("B7:AZ65536")) + 1
ListBox1.RowSource = "AMT!D7:O" & a
MsgBox "işlem tamam"
End If
If a = vbNo Then
MsgBox "işlem iptal edildi"
End If
End Sub

 

[yener11]

Üstadım kodu yapıştırdım.

Module1 e
auto_open
userform2.show
end sub

yazdığımda hata veriyor.

Permission denied.hatası
bunu nasıl çözebilirim.

 

[yener11]

tamam Üstad Düzelttim Teşekkür Ederim.Eline Sağlık.

 

[halit3]

tamam Üstad Düzelttim Teşekkür Ederim.Eline Sağlık.

Açılış kodundaki hatayı düzelttiğiniz anlaşılıyor ben kodu genede buraya yazıyorum.

kod

Sub auto_open()
UserForm2.Show
End Sub

İyi çalışmalar diliyorum.

 

[yener11]

Üsted kusura bakma biraz fazla oldu ama son bir şey sormak istiyorum.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format(TextBox3, "00"".""00"".""0000")
End Sub

bu format ile tarih olarak yazdırıyorum ama bunu

Sheets("AMT").Cells(kyt, "D").Value = TextBox3.Value

bu kodla excele yazdırdığımda tarih olarak gelmiyor.ve formülüm bozuluyor.hücrenin içine F2 tuşu ile girip çıktığımda tarih oluyor sadece bunu nasıl düzeltebilirim.

formülümde tarih hesaplamak zorunda

 

[muhceli]

TextBox3 = Format(TextBox3, "00"".""00"".""0000") formülünü
TextBox3 = Format(TextBox3, "00.00.0000") veya TextBox3 = Format(TextBox3, "dd.mm.yyyy") olarak denermisiniz.

 

[halit3]

Üsted kusura bakma biraz fazla oldu ama son bir şey sormak istiyorum.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format(TextBox3, "00"".""00"".""0000")
End Sub

bu format ile tarih olarak yazdırıyorum ama bunu

Sheets("AMT").Cells(kyt, "D").Value = TextBox3.Value

bu kodla excele yazdırdığımda tarih olarak gelmiyor.ve formülüm bozuluyor.hücrenin içine F2 tuşu ile girip çıktığımda tarih oluyor sadece bunu nasıl düzeltebilirim.

formülümde tarih hesaplamak zorunda

Dosyadaki kodları kontrol edin ve kendi dosyanıza kapyalayıp yapıştırın.