Risultati da 1 a 8 di 8

Discussione: Sostituzione variabile nelle sequenze macro



  1. #1
    L'avatar di Šenver
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Localitą
    Vicenza
    Etą
    38
    Messaggi
    11
    Versione Office
    office2013
    Likes ricevuti
    0
    Likes dati
    0

    Sostituzione variabile nelle sequenze macro

    Buonasera!
    Come promesso non č trascorso tanto tempo dalla mia ultima richiesta di aiuto
    Questa volta ho vagato nel buio, senza trovare una soluzione rapida, pił del solito.
    Come da titolo, ho creato, grazie al vostro aiuto le sequenze macro sul foglio di calcolo per poi riportarle nel modulo. Ho tralasciato un dettaglio di posizione, che dovrei modificare su 450 righe.
    Nel file allegato, la cosa dovrebbe essere pił chiara. Io non vedo soluzioni.... ditemi che mi sbaglio!
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Localitą
    Como
    Etą
    53
    Messaggi
    7160
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Sostituzione variabile nelle sequenze macro

    Ciao,
    prova con questo codice:

    Codice: 
    Sub trasforma_numero()
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = 5 To uRiga Step 15
            Cells(y, 1).Replace What:=Cells(y, 1), Replacement:="    If" & Left(Cells(y + 2, 1), 20) & "= Range(CX1) Then"
        Next
    End Sub
    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!

  3. #3
    L'avatar di Šenver
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Localitą
    Vicenza
    Etą
    38
    Messaggi
    11
    Versione Office
    office2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Sostituzione variabile nelle sequenze macro

    Grazie per la tempestivitą di risposta!
    Ho provato il codice ma va a trasformare, oltre che al numero, anche la parte alfa.

    If Range("BL1") = Range("CX1") Then -->> If Range("BN4")= Range(CX1) Then

    oltre a modificarne gli spazi. Ma questo importa poco.

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Localitą
    Como
    Etą
    53
    Messaggi
    7160
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Sostituzione variabile nelle sequenze macro

    Si, non mi sono curato degli spazi .. ma tanto col vba gli spazi non contano se non ai fini di una migliore visualizzazione e lettura del codice.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se puņ sembrare improbabile, non puņ che essere quella giusta!

  5. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Localitą
    Como
    Etą
    53
    Messaggi
    7160
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Sostituzione variabile nelle sequenze macro

    Se vogliamo rispettare anche gli spazi prova con questo:
    Codice: 
    Sub trasforma_numero()
    Dim uRiga As Long, y As Long
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row
        For y = 5 To uRiga Step 15
            Cells(y, 1) = "    If        Range(" & Mid(Cells(y + 2, 1), 15, 4) & """)= Range(CX1) Then"
        Next
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se puņ sembrare improbabile, non puņ che essere quella giusta!

  6. #6
    L'avatar di Šenver
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Localitą
    Vicenza
    Etą
    38
    Messaggi
    11
    Versione Office
    office2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Sostituzione variabile nelle sequenze macro

    No ges, gli spazi vengono comunque modificati.
    Ma il problema iniziale resta. Sostituisce anche la parte alfabetica oltre che al numero.

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Localitą
    Como
    Etą
    53
    Messaggi
    7160
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Sostituzione variabile nelle sequenze macro

    Forse ora ho capito (mi sfuggivano le lettere che chiamavi "parte alfa")
    Codice: 
    Sub sostituisci()
    Dim uRiga As Long, y As Long, prima As String, dopo As String
        Application.ScreenUpdating = False
            uRiga = Cells(Rows.Count, 1).End(xlUp).Row
                For y = 5 To uRiga Step 15
                    prima = Mid(Cells(y, 1), InStr(Cells(y, 1), "(") + 4, InStr(Cells(y, 1), ") =") - 18)
                    dopo = Mid(Cells(y + 2, 1), InStr(Cells(y + 2, 1), "(") + 4, InStr(Cells(y + 2, 1), ")") - 19)
                        Cells(y, 1).Replace what:=prima, replacement:=dopo
                Next
        Application.ScreenUpdating = True
    End Sub
    Anche con le formule:

    In B1 a scendere:

    =SE(SINISTRA(A1;6)=" If";SOSTITUISCI(A1;STRINGA.ESTRAI(A1;TROVA("(";A1)+4;TROVA("(";A1)-12);STRINGA.ESTRAI(A3;TROVA("(";A3)+4;TROVA(")";A3)-19));SE(A1="";"";A1))
    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!

  8. #8
    L'avatar di Šenver
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Localitą
    Vicenza
    Etą
    38
    Messaggi
    11
    Versione Office
    office2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Sostituzione variabile nelle sequenze macro

    Eccomi!
    Una bozza di formula simile avevo tentato anch'io di inserirla ma il mio tentativo decadde prima di subito.
    Comunque, vado meglio con il modulo Vba.
    Il tuo artefatto funziona quasi correttamente... in quanto va a modificarmi anche "CX1" che invece č la cella di confronto fissa. Ho provato a manomettere il modulo, ma ovviamente senza alcun risultato positivo. La sintassi utilizzata mi risulta sconosciuta in quasi tutte le stringhe.
    Spero di non superare la soglia della tua pazienza

Discussioni Simili

  1. Registrare file con nome nelle macro
    Di LUIGI65 nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 27/01/17, 21:29
  2. Risposte: 7
    Ultimo Messaggio: 03/01/17, 20:15
  3. [Risolto] Modificare variabile di ricerca in una macro
    Di giugar nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 14/10/16, 14:23
  4. Problemi con una macro - Variabile non definita
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 28/04/16, 21:26
  5. Macro: variabile per selezione riga
    Di Luigi Traversetti nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 21/10/15, 23:25

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
  •