Listboxtaki bilgileri al güncelle kaydet.

[efeboral]

Formda kaydetme işlemi yapabiliyorum ancak güncelleme yani update işlemi yapamıyorum listbox tan forma aldığım verileri güncellemek istiyorum.
Ayrıca excel sayfası hiç gözükmesin istiyorum.Böyle birşey mümkünmü?

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[efeboral]

sayın leventm, bu formu siz hazırladınız gibi birşey oldu öğrenene kadar sizlerin başını şişiricez kusura bakmayın. Yardımlarınız için teşekkürler... :dua:

 

[Levent Menteşoğlu]

Güncelle butonuna aşağıdaki kodu yazarak deneyin.

[vb:1:35f30a02ef]Private Sub CommandButton5_Click()
sat = ListBox1.ListIndex + 3
Cells(sat, 2) = TextBox1
Cells(sat, 4) = TextBox2
Cells(sat, 8) = TextBox3
Cells(sat, 9) = TextBox4
Cells(sat, 10) = TextBox5
Cells(sat, 11) = TextBox6
Cells(sat, 12) = TextBox7
Cells(sat, 5) = ComboBox1
Cells(sat, 6) = ComboBox2
Cells(sat, 7) = ComboBox3
Cells(sat, 3) = ComboBox4
UserForm_Initialize
End Sub
[/vb:1:35f30a02ef]

 

[efeboral]

evet çok güzel oldu teşekkür ederim. :dua: :dua: Eğer beni mazur görürseniz bir soru daha sormak istiyorum.
sayfayı tamamen gizlemek mümkünmü ayrıca textbox 1e veriyi aldığımda tarih yerine başka bir rakam çıkıyor. neden kaynaklanıyor olabilir.

 

[Levent Menteşoğlu]

Sayfayı gizlemek için userformun initialize olayına aşağıdaki satırı en son satır olarak ilave edin.

application.visible=false

Tarihi düzeltmek içinde listboxa yazılan satırı aşağıdaki ile değiştirin.

TextBox1 = Format(ListBox1.Column(0), "dd.mm.yyyy")

 

[efeboral]

ne diim sadece teşekkür edebilirim.Elinize sağlık. :dua: :dua: :dua2: :dua2: :dua: :dua:

 

[efeboral]

yanlız sayfa bi gitti pir gittti :hihoho: neyse bişekilde ayarlıcaz artık.

 

[class37]

Merhaba
Userformun kod sayfasına aşağıdaki kodu eklerseniz userformu kapattığınızda sayfa tekrar görünür hale gelir.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

 

[efeboral]

güncelle tuşu sadece yapılma tarihini güncelliyor.diğer hücreleri güncellemiyor bir kaç kere denediğimdede abuk sabuk işlemler yapıyor.yardımcı olursanız çok sevinicem.
ayrıca açıklama kısmına hyperlink veriyordu güncelle dediğim zaman linki bozuyor.

 

[Levent Menteşoğlu]

Dosyanızda bazı düzenlemeler yaptım inceleyin.

 

[efeboral]

elinize sağlık sayın leventm, teşekkür ederim.
Son bir soru daha sorsam maliyet kazanç kısımlarında rakamlar formüllenmiş gibi oluyor onları düzeltmek için ne yapmam gerekir.

 

[Levent Menteşoğlu]

Bu durum sayıların sayfaya metin olarak aktarılmasından kaynaklanıyor, bunun en pratik çözümü veriyi aktardığınız textboxı bir ile çarpmaktır. Örneğin;

ActiveCell.Offset(0, 9) = TextBox5.Value*1

 

[efeboral]

Anladım çok teşekkürler sizleri de yoruyoruz ama af buyrun.