Merhaba arkadaşlar benim şöyle bir problemim var. Form1 de combox kullanarak ürünler ekliyorum. bu eklediğim ürünler form1deki comboboxa tekrar tıkladığım zaman karşıma geliyor. bu sayede aynı ürünü yazım hatası nedeniyle 2 defa ekleme probleminden kurtuluyorum. Form2 de ise çıkış işlemi yapıyorum kodum doğru bir şekilde çalışıyor fakat Form2 deki combobox lara tıkladığımda mevcut ürünler gelmiyor. kodu aşağıda yazıyorum sizce nasıl bir yol izlemeliyim.
-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Form1'i kullanarak kaydettiğim ürünlerin Form2'de bulunan comboboxlarda gözükmemesi
- Konuyu Başlatan aamca
- Başlangıç tarihi
- Cevaplar : 2
- Gösterim : 271
Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
LoadComboBox kullanarak problemi çözdüm herkese çok teşekkür ederim.
Private Sub LoadComboBox(cmb As MSForms.ComboBox, sheetName As String)
' Belirtilen sayfa üzerindeki verileri belirtilen combo box'a yükleyen fonksiyon
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(sheetName)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
cmb.List = ws.Range("A2:A" & lastRow).value
End If
End Sub
Private Sub UserForm_Initialize()
LoadComboBox c_urun_adi, "Urunler"
TextBox2.value = Format(Date, "dd.mm.yyyy")
End Sub
Private Sub LoadComboBox(cmb As MSForms.ComboBox, sheetName As String)
' Belirtilen sayfa üzerindeki verileri belirtilen combo box'a yükleyen fonksiyon
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(sheetName)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
cmb.List = ws.Range("A2:A" & lastRow).value
End If
End Sub
Private Sub UserForm_Initialize()
LoadComboBox c_urun_adi, "Urunler"
TextBox2.value = Format(Date, "dd.mm.yyyy")
End Sub
Çözüm
- Durum