ara bul

[sirkülasyon]

Es Selâmü Aleyküm.
Sayfada "C2: C" aralığında TC kimlik No yazılı
Userform textbox9 da da TC kimlik No yazılı
Kaydet butonu ile textbox9 da ki TC' yi sayfada bulacak bulduğu satırın H sütununa da Combobox1 de ki değeri yazacak.

Rica etsem yardımcı olabilmeniz mümkün mü?

 

[Mustafa MUTLU]

For MSTF = 2 To Cells(65536, "C").End(xlUp).Row
If Cells(MSTF, "C") = TextBox9 Then
Cells(MSTF, "H") = ComboBox1
End If
Next

 

[sirkülasyon]

Mustafa Bey;
İlgi ve alakanıza teşekkür ederim.
Kod ilgili sütuna bir şey yazmadı.
Acaba ben mi bir hata yaptım

Private Sub CommandButton4_Click()
For MSTF = 2 To Cells(65536, "C").End(xlUp).Row
If Cells(MSTF, "C") = TextBox9 Then
Cells(MSTF, "H") = ComboBox1
End If
Next
End Sub

 

[Mustafa MUTLU]

For MSTF = 2 To Cells(65536, "C").End(xlUp).Row
If Cells(MSTF, "C") Like "*" & TextBox9 & "*" Then
Cells(MSTF, "H") = ComboBox1.Value
End If
Next

UserForm üzerinde bir tuşa bu kodu yaz dene.

 

[Mustafa MUTLU]

Buda olmaz sa dosyanızı ekleyin dosyanız üzerinde deneyelim.

Sorun çözüldü ise de lütfen dönüş yapınız.

 

[sirkülasyon]

ellerinize sağlık.
Kod işlem gördü Mustafa Abi. Teşekkür ederim.

 

[Mustafa MUTLU]

Rica ederim İyi geceler.