Excel :: Elio
Pubblicato da Alexsandra su Febbraio 1, 2008
Questa sezione è riservata a Elio prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••
Questo è il quesito posto:
Ho diversi fogli con indirizzi che si presentano uguali nella dicitura ma diverse nei caratteri (cioè alcuni sono scritti in minuscolo, altri in maiuscolo)ma non solo, in alcuni il n° tel (P.E. è scritto 0295305xxx, in altri invece è scritto tel. 0295305xxx)ho provato la soluzione che hai proposto a Dario, ho tentato anche di fare modifiche diverse ma, niente! Non riesco a far rilevare i nominativi doppi.
In più non sempre le colonne corrispondono perchè magari la città è composta in due modi diversi e cioè: “20147 MILANO”
oppure solo “Milano”. Vorrei comunque poter riuscire a portare tutto in un’unica modalità di scrittura (magari in un foglio a parte)e dopo trovare i doppioni. Spero di essere stato abbastanza chiaro. E’ possibile trovare una soluzione?
Alexsandra detto
Ciao Elio. Bello il tuo complimento
Grazie
Per il tuo problema è un bel quesito, bisognerebbe trasformare tutti i dati.
I dati che hai li esporti da un gestionale e gli inserisci in un foglio excel?
mi faciliteresti la soluzione se mi mandi una mail con un file di esempio.
A mio avviso sarebbe opportuno lavorare con delle macro nel momento in cui si inseriscono i dati e trasformarli tutti in un’unica forma.
elio detto
Ciao Alessandra, ti ho inviato il file tramite e-mail.
spero e resto in attesa ciao Elio
Alexsandra detto
lo guardo e ti farò sapere
ciao
Alexsandra detto
Elio è un casino fare il copia incolla direttamente in Excel dei dati. Per semplificarti la vita ti posso suggerire di copiare e incollare in un file TxT, e cancellare i dati che non ti servono.
Momentaneamente puoi fare così, è meno laborioso di tutte le operazioni che devi fare incollando direttamente in excel, nel frattempo vedo se è possibile fare una connessione diretta col sito e scaricare i dati. La vedo un po’ dura con quel sito lì, ma provo
ciao
elio detto
Ciao Alexsandra, grazie per quanto stai facendo.
Intanto io continuo a copiare e poi si vedrà, spero in una soluzione veloce
ciao
Alexsandra detto
si però copia il tutto in un txt che intanto fai prima.
io vedo come poter connettersi col sito, la vedo dura, perchè credo che sia a pagamento (credo) comunque ti saprò dire.
ciao
elio detto
Ciao Alex,
Ho letto del tuo KO, spero ti sia ripresa e nel frattempo non ti sia dimenticata del mio problema.
Scusa se non mi sono fatto vivo prima.
Ciao Elio
Alexsandra detto
ho provato ma il sito non accetta connessioni, l’unica alternativa che vedo è quella di copiare e incollare le informazioni in un file .txt e poi importarle in un foglio excel pulendole dalle stringhe che non servono.
elio detto
Grazie di tutto.
Alexsandra detto
Prego
provo a guardare … dovrei aver già fatto qualcosa tempo fa per caricare i dati da un txt, intanto copia i dati nel file txt, lascia uno spazio tra un nominativo e l’altro e poi vediamo assieme come è meglio fare.
ciao
elio detto
Ciao Alex, Ho trovato questo in rete:
Titolo : Estrare_Codice_Postale
Autore : JulienW, mpfe
Commento : Una funzione che permette di estrare il codice postale di un’ indirizzo intero.
Function CP(rAdd As Range, Optional sPattern As String = “11111″) As String
‘JulienW, mpfe
Dim i As Long
Dim sFormat As String
Dim sAdd As String
Application.Volatile
sAdd = ” ” & WorksheetFunction.Substitute(CStr(rAdd.Value), vbCr, ” “) & ” ”
”’ crea il formato
sFormat = ” ”
For i = 1 To Len(sPattern)
If IsNumeric(Mid$(sPattern, i, 1)) Then
sFormat = sFormat & “#”
Else
sFormat = sFormat & “?”
End If
Next i
sFormat = sFormat & ” ”
”’ cerca l’ultima zona di caratteri di sAdd eguale a sFormat
i = 0
While i < Len(sAdd)
i = i + 1
If Mid$(sAdd, i, Len(sFormat)) Like sFormat Then
CP = Mid$(sAdd, i + 1, Len(sFormat) – 2)
End If
Wend
End Function
Function Code_Postal(Chaîne)
‘AV, mpfe (per le CP francese)
For X = 1 To Len(Chaîne) – 4
If Mid(Chaîne, X, 5) Like “#####” Then
Code_Postal = Mid(Chaîne, X, 5)
End If
Next
End Function
Non riesco a vederlo come Macro e non so come farlo funzionare, ho cercato di contattare l’autore ma non mi risponde, potresti per favore correggerlo e farmi capire il funzionamento?
Grazie ciao