Scomporre cella

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
gattodimarmo1980
00sabato 6 agosto 2016 12:55
Buon giorno a tutti.Allego foto cattura.JPG.Nella colonna A sono scritti 5 numeri per ogni cella.Mi servirebbe una macro con bottone chiamata scomponi tutto che scomponga questi numeri nelle celle b c d e f come foto allegata.Grazie anticipatamente Matteo [SM=x423051]
gattodimarmo1980
00sabato 6 agosto 2016 13:01
Allego il file per l'esempio cartel.xls .Prima non m'ha caricato.Sorry
patel45
00sabato 6 agosto 2016 13:09
non c'è bisogno di macro, seleziona il range, Dati, Testo in colonne, Delimitato, Altro, inserisci -
gattodimarmo1980
00sabato 6 agosto 2016 13:52
Grazie Patel45 della soluzione ma pultroppo mi serve la macro con relativo bottone chiamata(scomponitutto) perché dopo devo riportare una serie quasi infinita di dati.Ho allegato il file solo dopo il primo post perché prima non me lo caricava.Lo allego ancora per sicurezza.Ciao [SM=x423029]
alfrimpa
00sabato 6 agosto 2016 14:10
Ciao

Registra una macro con le operazioni che ti ha indicato Patel (che saluto) e l'avrai bella e fatta che poi andrà inserita in un ciclo For per la scomposizione di tutte le celle.
gattodimarmo1980
00sabato 6 agosto 2016 16:23
Ciao Alfredo ho eseguito le istruzioni di Patel45 ma all'esecuzione della macro mi esce un errore in debug. Qualcuno mi puo fare la macro con le istruzioni di Patel con relativo bottone affiancato.Grazie anticipatamente Matteo
dodo47
00sabato 6 agosto 2016 17:06
Ciao
suggerisco l'utilizzo della funzione Split.
Questo è il codice (che non si avvale del suggerimento di Patel) assegnalo tu al pulsante che vuoi.
Ti consiglio (senza nessuna polemica) di provare a fare qualcosa in autonomia e sottoporre i tuoi tentativi anche non funzionanti.

Saluti

Sub SplitCell()
Dim MyString As String, x, col As Long, r As Long
r = 1
Do Until Cells(r, 1) = ""
    MyString = Cells(r, 1)
    x = Split(MyString, "-")
    For col = 0 To UBound(x)
        Cells(r, col + 2) = x(col)
    Next col
    r = r + 1
Loop
End Sub


Edit: oops Patel, scusa ma stavo scrivendo "senza polemiche" [SM=g27816]
patel45
00sabato 6 agosto 2016 17:07
in sostanza non ti interessa di imparare, ti basta che qualcuno te lo faccia
dodo47
00sabato 6 agosto 2016 17:46
Ciao
dopo un po' di tentativi per sfruttare al meglio il suggerimento di Patel (cari saluti), basta una sola riga di codice che metto a disposizione della comunità:
Sub TextToColumns()
  Columns("A").TextToColumns Columns("B"), xlDelimited, , False, False, False, False, False, True, "-"
End Sub


saluti
alfrimpa
00sabato 6 agosto 2016 19:41
Re:
patel45, 06/08/2016 17.07:

in sostanza non ti interessa di imparare, ti basta che qualcuno te lo faccia



È la sensazione che ho avuto anch'io.


patel45
00sabato 6 agosto 2016 19:56
Ottimo risultato Dodo [SM=g27811]
gattodimarmo1980
00domenica 7 agosto 2016 11:54
Giusto Riscontro ma manca il bottone associato.
Buona Domenica a tutti.Ringrazio Patel45 ,Domenico e Alfredo per il codice scritto. Non sono d'accordo però nel dire che non mi interessa d'imparare perché io mi sto applicando molto ma purtroppo non riesco quasi mai a ottenere ciò che voglio senza il vostro aiuto. Secondo voi è meglio in caso di errori, debug, ecc. ecc. aprire sempre una discussione nuova? Ho provato anche a chiedere informazioni di guida in chat privata a tantissimi membri del forum ma a parte Giuseppe Mn e Alfredo che li saluto, sono sempre stato ignorato. [SM=x423046]
patel45
00domenica 7 agosto 2016 12:18
devi continuare nella stessa discussione altrimenti non ci si capisce più niente. Probabilmente vieni ignorato a causa del tuo atteggiamento, quando uno vuole imparare fa vedere quello che ha fatto, gli errori e chiede lumi, non chiede la pappa pronta.
Inoltre per cose banali tipo associare pulsante a macro puoi fare una ricerca con google
gattodimarmo1980
00domenica 7 agosto 2016 12:58
PER PATEL.LA PAPPA PRONTA ?SE VUOI MI CANCELLO DAL FORUM SE TI FACCIO PIU CONTENTO.DIMMELO QUI DAVANTI A TUTTI CHE TOLGO IL DISTURBO E MI CANCELLO SE TI DO COSI FASTIDIO.OGNUNO HA LA SUA TEMPISTICA NEL MODO DI ENTRARE AD APPLICARSI IN EXCEL.ALLORA FAI UNA COSA FAI CAMBIARE LE REGOLE DEL FORUM , FAI FARE DEGLI ESERCIZI AI NUOVI ISCRITTI, SE VEDI CHE QUESTI NON HANNO LA BASE CHE VUOI NEGAGLI L'ACCESSO PARLA CON SAL.
dodo47
00domenica 7 agosto 2016 16:32
Re: gattodimarmo1980, 07/08/2016 11.54.
gattodimarmo1980, 07/08/2016 11.54:


Giusto Riscontro ma manca il bottone associato.



Stai scherzando, spero!
gattodimarmo1980
00lunedì 8 agosto 2016 22:21
La macro non esegue più le istruzioni
Buona sera a tutti ho provato la macro di Domenico (post7) e ho questo errore (vedi foto allegata).Anche l'altra macro (post9) ora non scompone più Niente.Per il bottone stavo scherzando.....sarà il caldo........Ciao Dodo... [SM=g27836]
rollis13
10lunedì 8 agosto 2016 23:37
La macro non da più risultati perché hai cambiato il separatore tra i numeri; prima c'era il segno meno (-) mentre ora c'è il sottolineato (_).
Pertanto, devi adeguare la macro e cambiare il segno nella riga:

x = Split(MyString, "-")

che effettua la suddivisione quando trova il corrispondente segno.
gattodimarmo1980
00mercoledì 10 agosto 2016 12:06
Giusto riscontro
Grazie Rollis13.La macro ora funziona perfettamente. [SM=x423041]
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 10:47.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com