You are here:---Rispondi a: evitare salti di foglio
Rispondi a: evitare salti di foglio 2019-02-07T11:23:59+00:00

Home Forum Domande su Excel VBA e MACRO evitare salti di foglio Rispondi a: evitare salti di foglio

teto21162
Partecipante
    Post totali: 69

    Public Sub FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE()

     

    Windows(“APPUNTAMENTI.xls”).Activate

    Sheets(“sms”).Activate

    With Sheets(“sms”)

    .Range(“F1”).Copy ‘ copia NOME FILTRATO

    End With

     

    Windows(“ANAGRAFICA-ANNO.xls”).Activate

    Sheets(“DATI-CONTABILI”).Activate

    With Sheets(“DATI-CONTABILI”)

    .Range(“A10”).PasteSpecial Paste:=xlValues ‘ INCOLLA NOME FILTRATO

    End With

     

     

    Application.CutCopyMode = False

     

    Windows(“ANAGRAFICA-ANNO.xls”).Activate

    Sheets(“DATI-CONTABILI”).Activate

    Selection.AutoFilter ‘ disattiva il filtro (riga da aggiungere)

    Range(“A10:CZ10”).Select ‘ rimette il filtro (riga da aggiungere)

     

    Selection.AutoFilter

    Selection.AutoFilter Field:=6, Criteria1:=Range(“A10”)

    With Sheets(“DATI-CONTABILI”)

    .Range(“F10:F10000”).SpecialCells(xlCellTypeVisible).End(xlDown).Offset(0, 14).Copy ‘ COPIA segno zodiacale

    End With

     

    Windows(“APPUNTAMENTI.xls”).Activate

    Sheets(“sms”).Activate

    With Sheets(“sms”)

    .Range(“B18″).PasteSpecial Paste:=xlValues ‘ copia TELEFONO FILTRATO

    End With

     

     

    ActiveSheet.Protect Password:=”23581321162”, contents:=True, Scenarios:=True, _

    userInterfaceOnly:=True

     

    End Sub

     

    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