
private sub commandbutton1_click()
dim alb1 as string
dim alb2 as string
alb1= "range("c1").value"
alb2= "range("d1").value"
' ho utilizzato c1 e d1 come intervalli di celle.. sostituiscili con gli intervalli che interessano a te
cells.replace what:=alb1, replacement:= alb2 ,lookat:=xlpart _
, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, _
replaceformat:=false
end sub
|
