You are here:---Rispondi a: Sostituisci nomi al cambio del mese
Rispondi a: Sostituisci nomi al cambio del mese2019-02-05T14:18:12+02:00

Home Forum Domande su Excel VBA e MACRO Sostituisci nomi al cambio del mese Rispondi a: Sostituisci nomi al cambio del mese

bg66bg66
Partecipante
    Post totali: 50

    Ciao By Sal,
    purtroppo non ci sono riuscito.
    Dopo vari e vani tentativi, ci ho “girato” intorno in questo modo ma ovviamente non fà nulla di quello che avrei bisogno:
    Sub cambia_mese1()
    Dim xFind As String, xRep As String, xRg As Range
    On Error Resume Next
    Set xRg = Range(“P4:Q75”) ‘Cells
    xFind = Application.InputBox(“Trova:”, “Mittente”, , , , , 2)
    xRep = Application.InputBox(“Sostituisci:”, “Destinatario”, , , , , 2)
    If xFind = “False” Or xRep = “False” Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
    End Sub
    In pratica:
    1) il nome del mese entrante lo posso estrarre con la funzione oggi ma quello del mese presente in formula? Con stringa.estrai -> non ci sono riuscito
    2) Una volta definito le celle potrei adattare quanto fatto con il registratore:
    Sub cambia_mese()
    Range(“P4:Q75″).Select
    Selection.Replace What:=”GENNAIO”, Replacement:=”FEBBRAIO”, LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    End Sub
    3) A codice finito come integrarlo nello script Workbook_open esistente?

    Attendo tue se puoi.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi