stok 3

Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Selam Arkadaşlar
Siteden aldığım bir dosyayı biraz değiştirmeye çalışıyorum.Üst tarafta kullanmaya hazır bir kayıt formu var.Alttaki kahverengi kısımda textbox yerine combobox koydum seçimle yazılabilmesi açısından.Gerisini halledemedim açıkçası.Yardım ederseniz sevinirim.
Teşekkürler.
 
S

Skorpiyon

Misafir
Sayın limanC34,

Kodlarınızı aşağıdaki şekilde değiştirerek deneyiniz.

Private Sub UserForm_Activate()
On Error Resume Next
Do
UserForm1.Label14 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
ComboBox1.RowSource = "ÇIKIŞ!B2:B" & WorksheetFunction.CountA(Worksheets("ÇIKIŞ").Range("B2:B65536"))
ComboBox2.RowSource = "ÇIKIŞ!C2:C" & WorksheetFunction.CountA(Worksheets("ÇIKIŞ").Range("C2:C65536"))
ComboBox3.RowSource = "ÇIKIŞ!D2: D" & WorksheetFunction.CountA(Worksheets("ÇIKIŞ").Range("D2: D65536"))
ComboBox4.RowSource = "ÇIKIŞ!E2:E" & WorksheetFunction.CountA(Worksheets("ÇIKIŞ").Range("E2:E65536"))
DoEvents
Loop
End Sub
 
Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Sayın Hocam
Acemiliğimi mazur görünüz.Yine eksik ve yanıltıcı soru sordum.Özür dilerim.Beyaz ve textbox lu bölgeyle sorunum yok.Ben sadece sarı renkli ve combobox lu seçim yapabilen kısımla çalışmak istiyorum.Yani cevap geldiğinde anında beyaz tabloyu sileceğim.
Saygılarımla.
 
Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Sayın Hocam
Evet aynen budur.Sadece verilen adet ve tarihi kayıt etmiyor.
Teşekkür ederim.
Saygılarımla.
 
S

Skorpiyon

Misafir
6.mesajdaki dosyayı tekrar indirirek deneyiniz. Gerekli düzeltmeyi orada yaptım.
 
Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Sayın Hocam
Teşekkürler.
Saygılarımla.
 
Üst