Risultati da 1 a 10 di 10

Discussione: Estrai Stringa



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Estrai Stringa

    Gent.mi,


    nuovamente sono a chiedervi un suggerimento per un quesito su Estrai stringa che in parte
    sono riuscito con il seguente codice:


    > =SE.ERRORE(STRINGA.ESTRAI($G5;TROVA(".";$G5)-3;TROVA(".";$G5;TROVA(".";$G5)+1)+6-TROVA
    (".";$G5));"") <


    Ho fatto diversi tentativi e purtroppo non riesco a visualizzare sulla TextBox

    dell'UserForm.


    Antiicipatamente ringrazio, cordialmente saluto.
    Domenico.
    File Allegati File Allegati

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1102
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Estrai Stringa

    Codice: 
    Private Sub ComboBox1_Change()
    Dim s As String, n As Integer
    If ComboBox1.Value <> "" Then
            Originale = ComboBox1.Value
            s = Originale.Text
            n = 8
            If InStr(s, "s://") = 0 Then n = 7
            s = Right((s), Len(s) - n)
            Stringa = Left(s, Len(s) - 1)
    
    End If
    End Sub

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7121
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1298

    Re: Estrai Stringa

    Ciao,
    prova così:

    Codice: 
    Option Explicit
    Private Sub ComboBox1_Change()
        If ComboBox1.Value <> "" Then
            Originale = "https:" & ComboBox1 & "/"
        End If
    End Sub
    Codice: 
    Private Sub UserForm_Initialize()
        Dim y As Long, uRiga As Long
            With Sheets("Foglio1")
                uRiga = .Range("G" & Rows.Count).End(xlUp).Row
                    For y = 5 To uRiga
                            .Range("G" & y).Replace What:="https:", Replacement:=""
                            .Range("G" & y).Replace What:="http:", Replacement:=""
                        ComboBox1.AddItem .Range("G" & y)
                    Next
            End With
    End Sub
    @Pacifico: Ho sistemato la Combobox1 e immagino per "Originale" intendevi la stringa originaria ma non ho capito cosa vuoi metter in "Stringa".

    EDIT:Scusa Palel non ho fatto il refresh e non ho visto la tua risposta.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Estrai Stringa

    Gent.mo Patel,
    ringrazio della graditissima attenzione, ho provato con alcuni siti ed ho notato che
    l'ultima lettera non viene inserita per es.
    nell'originale: https://www.youtube.com
    alla stringa: /www.youtube.co (e viene inserita la barra all'inizio)
    nell'originale: http://www.forumexcel.it
    alla stringa: www.forumexcel.i
    ho provato il codice di Ges che ringrazio ed ho notato che non vi è distinzione tra http e
    https appare sempre https all'originale e la prima W non appare.
    Domenico.

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Estrai Stringa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mo Patel,
    ringrazio della graditissima attenzione, ho provato con alcuni siti ed ho notato che
    l'ultima lettera non viene inserita per es.
    nell'originale: https://www.youtube.com
    alla stringa: /www.youtube.co (e viene inserita la barra all'inizio)
    nell'originale: http://www.forumexcel.it
    alla stringa: www.forumexcel.i
    ho provato il codice di Ges che ringrazio ed ho notato che non vi è distinzione tra http e
    https appare sempre https all'originale e la prima W non appare.
    Domenico.
    Ciao Domenico,
    il tuo ultimo post andava in moderazione a causa dei link allegati.

    Scusate, ma forse non ho capito l'intento....

    Dalla Userform si dovrebbe scegliere un indirizzo dalla ComboBox e automaticamente dovrebbe restituire la stessa stringa di quell'indirizzo nella TextBox "Originale", mentre nella TextBox "Stringa" dovrebbe apparire solo il "corpo" dell'indirizzo???

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  6. #6
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Estrai Stringa

    Gent.mo Cromagno,


    nel ringraziarti, è esatto nella textbox Stringa dovrebbe apparire solo il corpo:
    www.youtube.com e www.forumexcel.it.
    ed è mia intenzione, tramite un pulsante, aprire il sito.


    auguro di riuscire.
    Domenico.

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Estrai Stringa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mo Cromagno,


    nel ringraziarti, è esatto nella textbox Stringa dovrebbe apparire solo il corpo:
    www.youtube.com e www.forumexcel.it.
    ed è mia intenzione, tramite un pulsante, aprire il sito.


    auguro di riuscire.
    Domenico.
    Ciao Domenico,

    hai provato il codice di patel (un saluto) ????
    Credo che faccia quello che ti serve...

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7121
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2060
    Likes dati
    1298

    Re: Estrai Stringa

    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    G..
    ho provato il codice di Ges che ringrazio ed ho notato che non vi è distinzione tra http e
    https appare sempre https all'originale e la prima W non appare.
    Domenico.
    Forse intendi così?
    Codice: 
    Option Explicit
    Private Sub ComboBox1_Change()
        If ComboBox1.Value <> "" Then
            Originale = ComboBox1
            Stringa = Trim(Left(Mid(ComboBox1, InStr(ComboBox1, ":") + 3), Len(Mid(ComboBox1, InStr(ComboBox1, ":") + 3)) - 1))
        End If
    Codice: 
    End Sub
    Private Sub UserForm_Initialize()
        Dim y As Long, uRiga As Long
            With Sheets("Foglio1")
                uRiga = .Range("G" & Rows.Count).End(xlUp).Row
                    For y = 5 To uRiga
                          ComboBox1.AddItem .Range("G" & y)
                    Next
            End With
    End Sub
    EDIT: Ciao Cromagno, non è che ci ho capito molto... aspetto la risposta di Domenico.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #9

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Estrai Stringa

    Ciao ges,
    da quello che ho capito (confermato da Domenico) il codice di Patel dovrebbe andare bene...

    @Domenico
    per andare direttamente alla pagina indicata dal link, potresti aggiungere un pulsante alla userform e usare questo codice:

    Codice: 
    Private Sub CommandButton1_Click()
    If Me.Originale.Value <> "" Then
        ActiveWorkbook.FollowHyperlink Me.Originale.Value
        Unload UserForm1
    End If
    
    
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  10. #10
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Re: Estrai Stringa

    Gent.mo Cromagno,


    ringrazio tutti per la gentilezza e disponibilità. Funziona perfettamente.
    Buon proseguimento di giornata.


    Domenico.

Discussioni Simili

  1. [Risolto] aiuto per migliorare formula stringa.estrai
    Di Eddie18 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 12/02/17, 21:30
  2. [Risolto] Applicare stringa.estrai in userform
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 28/01/17, 23:37
  3. Stringa estrai che mi escluda lo zero
    Di BRAZ66 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 15/07/16, 19:29
  4. Funzione Stringa estrai+Trova
    Di Berna11 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 24/02/16, 11:34
  5. Stringa estrai
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 17/11/15, 11:11

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •