Combobox Seçiminde Doğru Hücreye Kayıt Nasıl Yapılır ?

[yenilik025]

Combobox daki Seçimimde sayfamdaki istediğim hücre güncellemesi nasıl Yapılır ?

Yazdığım kod yanlış kaydediyor.

Öncelikle isim seçimimi ara butonu ile buluyorum
Ancak; seçtiğim kişinin
Ocak -Şubat ya da Mart ayına
değer girmek istediğimde hata veriyor.

 

[işsiz123]

Kaydet butonunu aşağıdaki kodlar ile değiştiriniz

Private Sub CommandButton2_Click()

Sheets("Sayfa1").Select
        
If ComboBox1.Text = Empty Then
    MsgBox "Lütfen Kimlik  No'sunu Giriniz"
    Exit Sub
    End If


        Set bulx = Sheets("Sayfa1").[b:b].Find(ComboBox1)
        
        If Not bulx Is Nothing Then
            bulx.Offset(0, 0) = ComboBox1
            bulx.Offset(0, ComboBox2.ListIndex + 2) = Textbox2.Value
      
        MsgBox ComboBox1.Value & " " & ComboBox2.Value & " Ayında Borçlandırıldı "
       
        Else
    
        Exit Sub
        End If

 End Sub

 

[yenilik025]

ÇOOOK Teşekkür ederim.

Hocam çok teşekkür ederim. Gerçekten bir kaç gündür yabancı kaynakta olmak üzere aramadığım site sosyal medya youtube kalmamıştı.
ÇOOOK ÇOOOK ÇOOOK Teşekkür ederim.

Çok mutlu oldum.

Kaydet butonunu aşağıdaki kodlar ile değiştiriniz

Private Sub CommandButton2_Click()

Sheets("Sayfa1").Select
        
If ComboBox1.Text = Empty Then
    MsgBox "Lütfen Kimlik  No'sunu Giriniz"
    Exit Sub
    End If


        Set bulx = Sheets("Sayfa1").[b:b].Find(ComboBox1)
        
        If Not bulx Is Nothing Then
            bulx.Offset(0, 0) = ComboBox1
            bulx.Offset(0, ComboBox2.ListIndex + 2) = Textbox2.Value
      
        MsgBox ComboBox1.Value & " " & ComboBox2.Value & " Ayında Borçlandırıldı "
       
        Else
    
        Exit Sub
        End If

 End Sub

 

[işsiz123]

Rica ederim İyi çalışmalar.

 

[yenilik025]

Rica ederim İyi çalışmalar.

Hocam çok mu oluyorum bilmiyorum ama burada combobox addItem seçeneği seçildiğinde kaydediliyor direk olarak ama hücre doluysa : örnek Ocak ta kayıt varsa
Uyarı da versin istiyorum nasıl yapmalıyız?

 

[işsiz123]

Yok yahu ne çok olması her zaman bekleriz ost:
Kaydet butonunun kodlarını aşağıdaki gibi değiştiriniz.

Private Sub CommandButton2_Click()

Sheets("Sayfa1").Select
        
If ComboBox1.Text = Empty Then
    MsgBox "Lütfen Kimlik  No'sunu Giriniz"
    Exit Sub
    End If


        Set bulx = Sheets("Sayfa1").[b:b].Find(ComboBox1)
    If bulx.Offset(0, ComboBox2.ListIndex + 2) <> "" Then
       
        MsgBox ("Daha önceden " & bulx.Offset(0, ComboBox2.ListIndex + 2) & "  girilmiş")

Else

        If Not bulx Is Nothing Then

            bulx.Offset(0, 0) = ComboBox1
            bulx.Offset(0, ComboBox2.ListIndex + 2) = Textbox2.Value
        
        MsgBox ComboBox1.Value & " " & ComboBox2.Value & " Ayında Borçlandırıldı "
       
        Else
   End If
        Exit Sub
   
        End If

 End Sub

 

[yenilik025]

Combobox add ıtem le eklenen değerde hücre nasıl kontrol edilir ?

Combobox addItem le eklenen değerde eklemek istediğimiz hücre
nasıl kontrol edilir sayenizde ?
Öğrenmiş olduk.

Mükemmel bir şekilde çalıştı. Hocam çok teşekkür ederim.size ve excelweb ailesine.

Yok yahu ne çok olması her zaman bekleriz ost:
Kaydet butonunun kodlarını aşağıdaki gibi değiştiriniz.

Private Sub CommandButton2_Click()

Sheets("Sayfa1").Select
        
If ComboBox1.Text = Empty Then
    MsgBox "Lütfen Kimlik  No'sunu Giriniz"
    Exit Sub
    End If


        Set bulx = Sheets("Sayfa1").[b:b].Find(ComboBox1)
    If bulx.Offset(0, ComboBox2.ListIndex + 2) <> "" Then
       
        MsgBox ("Daha önceden " & bulx.Offset(0, ComboBox2.ListIndex + 2) & "  girilmiş")

Else

        If Not bulx Is Nothing Then

            bulx.Offset(0, 0) = ComboBox1
            bulx.Offset(0, ComboBox2.ListIndex + 2) = Textbox2.Value
        
        MsgBox ComboBox1.Value & " " & ComboBox2.Value & " Ayında Borçlandırıldı "
       
        Else
   End If
        Exit Sub
   
        End If

 End Sub

 

[işsiz123]

Rica ederiz İyi çalışmalar