Stok ürün adının değiştirilmesi hk.

[kemal turan]

Merhaba,
Stok veri tabanımda olan bir ürün adını değiştirdiğimde;
diğer sahifelerin belli sutunlardaki aynı ürün adınında değişmesine ihtiyacım var.
Örnek dosya da açıklama yaptım.
Teşekkür ederim.

 

[antonio]

Merhaba,
Stok veri tabanımda olan bir ürün adını değiştirdiğimde;
diğer sahifelerin belli sutunlardaki aynı ürün adınında değişmesine ihtiyacım var.
Örnek dosya da açıklama yaptım.
Teşekkür ederim.

Private Sub CommandButton1_Click()
Dim eski As String, yeni As String
For i = 1 To Sheets.Count
eski = TextBox1.Text
yeni = TextBox2.Text
Sheets(i).Select
Cells.Replace what:=eski, replacement:=yeni, lookat:=xlWhole, _
searchorder:=xlByRows, MatchCase:=True, searchformat:=False, _
ReplaceFormat:=False
Next i
MsgBox "işlem bitti"
End Sub

 

[kemal turan]

Sn.Antonıo
Çok teşekkür ederim.Hayırlı günler,
Selametle kalın

 

[antonio]

Bende teşekkür ederim.
Ayrıca şunu da deneyebilirsiniz:

Private Sub CommandButton1_Click()
Dim eski As String, yeni As String
For i = 1 To Sheets.Count
eski = TextBox1.Text
yeni = TextBox2.Text
Sheets(i).Cells.Replace eski, yeni
Next i
MsgBox "işlem bitti"
End Sub