stok 3

[limanC34]

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.

 

[Skorpiyon]

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

 

[limanC34]

Sayın Hocam
Yapamadım yine birşeyleri.

 

[Skorpiyon]

Sayın limanC34,

Ek'li dosyayı inceleyiniz.

 

[limanC34]

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.

 

[Skorpiyon]

Sayın limanC34,

İstediğiniz bu mudur ?

 

[limanC34]

Sayın Hocam
Evet aynen budur.Sadece verilen adet ve tarihi kayıt etmiyor.
Teşekkür ederim.
Saygılarımla.

 

[Skorpiyon]

6.mesajdaki dosyayı tekrar indirirek deneyiniz. Gerekli düzeltmeyi orada yaptım.

 

[limanC34]

Sayın Hocam
Teşekkürler.
Saygılarımla.