copia e sposta da titolo



  • copia e sposta da titolo
    di Traniwebdesign (utente non iscritto) data: 16/12/2016 10:06:18

    ciao a tutti e ben ritrovati.
    Ho un piccolo poblema, devo trasformare dei titoli con dei codici numerici all'interno.Spesso il numero è davanti, spesso è dietro.
    Ho la necessita di estrapolare solo la parte alfabetica e non numerica. Spesso i codici sono da 5/6 numeri.
    Come si fa ?Vi faccio vedere che tipo di righe ho nel mio foglio.
    -----------------------------------------------------------------------------------------------------------------
    -----------------------COLONNA A ---------------------------------------------------------------------
    225052 - Accette da taglio Brixo manico legno accetta in acciaio spaccar
    305080 - Affilatoi a doppia grana affilatoio per coltello 5 x 15
    303151 - 10 Dadi capettati per raccordi aria compressa dado tubo compress
    Altalena a 2 Posti Semplice "Ape" Papillon
    Fischer Prolungato in Nylon N 6x60 Prolungato ( 100 pz ) - 24820
    Fischer Prolungato in Nylon N 6x40 Prolungato ( 100 pz )- 24819
    Fischer Prolungato in Nylon N 6x80 Prolungato ( 100 pz ) - 24823
    --------------------------------------------------------------------------------------------------------
    IO poi nella colonna a fianco taglio ed incollo 50MILA VOLTE avendo così
    il mio risultato finale ripulito dai codici di 6 o 5 cifre:
    _------------------COLONNA A -------------------------------------- COLONNA B( CODICE)
    Accette da taglio Brixo manico legno accetta in acciaio spaccar 225052
    Affilatoi a doppia grana affilatoio per coltello 5 x 15 305080
    10 Dadi capettati per raccordi aria compressa dado tubo compress 303151
    Altalena a 2 Posti Semplice "Ape" Papillon
    Fischer Prolungato in Nylon N 6x60 Prolungato ( 100 pz ) 24820
    Fischer Prolungato in Nylon N 6x40 Prolungato ( 100 pz ) 24819
    Fischer Prolungato in Nylon N 6x80 Prolungato ( 100 pz ) 24823
    ----------------------------------------------------------------------------------------------------
    esiste un modo per estrapolare il numero che puo essere di 5 o 6 cifre e incollarlo nella colonna B ?
    grazia a tutti voi.



  • di Luca73 data: 16/12/2016 10:37:44

    Ciao
    anzichè descrivere ed incollare testo, allega un file con tutte le possibile casistiche.
    Sì è possibile bisogna solo capire quante tipologie hai
    al momento ne ho viste/capite 4
    1) 5 numeri davanti
    2) 6 numeri davanti
    3) 5 numeri dietro
    4) 6 numeri dietro
    Ce ne sono altre?

    Il numero è sempre separato dal testo con un - (meno)?

    Allega un file e cerchiamo una soluzione.
    Ciao
    Luca





  • di Traniwebdesign data: 16/12/2016 10:50:15

    FILE ALLEGATO...
    si le tipologie sono sempre e solo 4....o avanti il codice di 5/6 o dietro il codice di 5/6 numeri.
    il trattino spesso sta e spesso no, ma non so se puo creare un problema, perche magari poi anche se avessi dei codici del tipo -24566 / 42545- con un sostituisci elimino tutti i tratti dalla colonna dei codici e sono apposto.



  • di patel data: 16/12/2016 13:07:11

    prova questa
     
    Sub a()
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 2 To LR
      s = Cells(r, 1)
      p = InStr(s, "-")
      If p = 0 Then
        s1 = s
        c = ""
      ElseIf p < 10 Then
        s1 = Right(s, Len(s) - p - 1)
        c = Left(s, p - 1)
      ElseIf p > 10 Then
        s1 = Left(s, p - 1)
        c = Right(s, Len(s) - p - 1)
      End If
      Cells(r, 4) = s1
      Cells(r, 5) = c
    Next
    End Sub
    






  • di Luca73 data: 16/12/2016 13:40:27

    La formula qui sotto ti riporta il codice (da inserire in riga 2 e copiare in sotto)

    =SE(VAL.NUMERO(SINISTRA(A2;5)*1);SE(VAL.NUMERO(STRINGA.ESTRAI(A2;6;1)*1);SINISTRA(A2;6);SINISTRA(A2;5));SE(VAL.NUMERO(DESTRA(A2;5)*1);SE(VAL.NUMERO(STRINGA.ESTRAI(A2;LUNGHEZZA(A2)-5;1)*1);DESTRA(A2;6);DESTRA(A2;5));""))

    La formula qui sotto ti riporta la descrizione (da inserire in riga 2 e copiare in sotto) non elimina i trattini

    =ANNULLA.SPAZI(SE(VAL.NUMERO(SINISTRA(A2;5)*1);SE(VAL.NUMERO(STRINGA.ESTRAI(A2;6;1)*1);DESTRA(A2;LUNGHEZZA(A2)-6);DESTRA(A2;LUNGHEZZA(A2)-5));SE(VAL.NUMERO(DESTRA(A2;5)*1);SE(VAL.NUMERO(STRINGA.ESTRAI(A2;LUNGHEZZA(A2)-5;1)*1);SINISTRA(A2;LUNGHEZZA(A2)-6);SINISTRA(A2;LUNGHEZZA(A2)-5));A2)))





  • di Traniwebdesign (utente non iscritto) data: 16/12/2016 15:31:53

    madonnna grazie...risolto....grazie mille a tutti voi...............