Eski değer-yeni değer güncellemesi

[meslek005]

iyi çalışmalar değerli üstadlarım. uzun uğraşlar sonucu yeni konu butonunu bulup konuyu açabildim.

ekteki dosyamda bir işlem yapmak istiyorum şöyle;
userform üzerinde 1 adet combobox1 (tablo üzerindeki eski değer verileri) 1 adet de textbox1 var (yeni değer)

diyelimki combobox1'de tablo üzerindeki bir veriyi seçtik, o verinin güncellenecek değerinide textbox1'e yazdık. GÖNDER butonuna bastığımızda tablo üzerindeki coxbobox1'de seçili (aynı sütundaki) tüm verilerin, yeni değer olarak girdiğimiz textbox1'deki yeni değerle değiştirilmesi/güncellenmesi gerekmektedir. şimdiden yardımcı olacak hocalarıma teşekkür ederim.

 

[asi_kral]

Merhaba
UserForm'un kod bölümüne bu kodları kopyalayın ve deneyin.

Private Sub CommandButton1_Click()
Dim BUL As Range, SBT As Variant
On Error Resume Next
Set BUL = Range("B:B").Find(ComboBox1, , , xlWhole)
If Not BUL Is Nothing Then
SBT = BUL.Address
Do
Cells(BUL.Row, "B") = TextBox1.Value
Set BUL = Range("B:B").FindNext(BUL)
Loop While Not BUL Is Nothing And SBT <> BUL.Address
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!b3:b420"
End Sub

 

[meslek005]

çok teşekkür ederim

hocam istediğim tam olarak buydu. ilginiz için çok teşekkür ederim.

 

[asi_kral]

hocam istediğim tam olarak buydu. ilginiz için çok teşekkür ederim.

--------
:hey:
--------