adesso pero' mi serve un aiutino su un pezzo di codice per una pacro di excel il codice è il seguente
fa la sostituzione di alcuni valori che ho elencato, quello che mi serve è che li copi nella cella accanto.
Faccio un esempio
Ho una serie di indirizzi in una colonna: via margherita, 54 e devo spezzettarli in 3 colonne per avere
VIA INDIRIZZO NUMERO
via Margherita 54
con la macro
- Codice: Seleziona tutto
Sub Find_Replace()
Dim I, J%
Dim IndStrad(3) As String
IndStrad(1) = "BORGATA "
IndStrad(2) = "BORGO "
IndStrad(3) = "C.SO "
For I = 1 To Sheets.Count
Sheets(I).Select
Range("H:H").Select
On Error Resume Next
For J = 1 To 3
Selection.Replace What:=IndStrad(J), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next J
Selection.Copy
Next I
End Sub
sostituisco nella cella la via ma mi serve che copi il risultato nella cella precedente.
Spero di essermi spiegato
Grazie