ara bul ve değiştir

[Kemal Demir]

Yeni başlık için özür dilerim aradımı bulmadım için başlık açtım



Arkadaslar,

Sheets3 içerisinde bul değiştirde bir hata yapıyorum
hata lı olan yerde değişiklikler yapabilirmiyiz..
Saolun..


'

Sheets("Sheet3").Select
Selection.Replace What:=TextBox3.Value
TextBox4.Value = Replacement
Selection.Replace What:=TextBox3.Value, Replacement:=TextBox4.Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
'

 

[veyselemre]

Sheets("Sheet3").Select
Selection.Replace What:=TextBox3, Replacement:=TextBox4

şeklinde çalışıyor diğerlerini sil