- Katılım
- 12 Ekim 2010
- Mesajlar
- 224
- Excel Vers. ve Dili
- 2013 türkçe
Comboboxun Label 1 Label 2
Çerkeş Orman İşletme Şefliği Hasan TORUN İşletme Şefi
Çatak Orman İşletme Şefliği Mehmet TOPAL İşletme Şefi
Çerkeş Orman İşletme Şefliği Salih SÖNMEZ İşletme Şefi
Arkadaşlar combobox ta 3 tane birim ekli ve labeller birim seçtikte otamatik aşşağıdaki koddan doluyor
Private Sub Doldur_Change()
LabelBirimBas.Caption = Doldur.Value
ActiveCell.Select
Dim bul As Range
Dim bul2 As Range
If Doldur.Value = Empty Then Exit Sub
For Each bul In Range("Q3:Q20")
If bul.Value = Doldur.Value Then
DoldurAdi.Caption = bul.Offset(0, -1).Value
DoldurUnvan.Caption = bul.Offset(0, 1).Value
Set bul = Nothing
Exit Sub
End If
Next bul
End Sub
Sorunum şu Comboboxun içinde 2 tane aynı şeflik ismi gözüküyor ama Label değişmiyor.. İsim benzerliğinden mi kaynaklanıyor yada kodlama hatası mı var
Faklı olan herşeyde problemsiz çalışıyor ama Comboboxun içine aynı birimi yazdığımda label değişmiyor.. İlk seçtiği Benzer şefte kalıyor..
Çerkeş Orman İşletme Şefliği Hasan TORUN İşletme Şefi
Çatak Orman İşletme Şefliği Mehmet TOPAL İşletme Şefi
Çerkeş Orman İşletme Şefliği Salih SÖNMEZ İşletme Şefi
Arkadaşlar combobox ta 3 tane birim ekli ve labeller birim seçtikte otamatik aşşağıdaki koddan doluyor
Private Sub Doldur_Change()
LabelBirimBas.Caption = Doldur.Value
ActiveCell.Select
Dim bul As Range
Dim bul2 As Range
If Doldur.Value = Empty Then Exit Sub
For Each bul In Range("Q3:Q20")
If bul.Value = Doldur.Value Then
DoldurAdi.Caption = bul.Offset(0, -1).Value
DoldurUnvan.Caption = bul.Offset(0, 1).Value
Set bul = Nothing
Exit Sub
End If
Next bul
End Sub
Sorunum şu Comboboxun içinde 2 tane aynı şeflik ismi gözüküyor ama Label değişmiyor.. İsim benzerliğinden mi kaynaklanıyor yada kodlama hatası mı var
Faklı olan herşeyde problemsiz çalışıyor ama Comboboxun içine aynı birimi yazdığımda label değişmiyor.. İlk seçtiği Benzer şefte kalıyor..
