You are here:---Rispondi a: [RISOLTO] Evitare salti di foglio
Rispondi a: [RISOLTO] Evitare salti di foglio 2019-02-07T11:21:47+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Evitare salti di foglio Rispondi a: [RISOLTO] Evitare salti di foglio

Avatarteto21162
Partecipante
    Post totali: 72

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Application.ScreenUpdating = False

    ‘Application.EnableEvents = False

    riga = ActiveCell.Row

    ‘ind = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)

    Application.EnableEvents = True

    If riga < 5 Or riga > 2002 Then GoTo labf

    ‘If Mid(ind, 2) < 5 Or Mid(ind, 2) > 2002 Then GoTo labf

     

    If ActiveCell.Column = 3 Then ‘lunedì

    Set zona1 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona1.Select

    zona1.Font.ColorIndex = 7 ‘2

    zona1.Interior.ColorIndex = 7 ‘3

    zona1.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

     

    End If

     

    If ActiveCell.Column = 8 Then ‘martedì

    Set zona2 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona2.Select

    zona2.Font.ColorIndex = 7 ‘2

    zona2.Interior.ColorIndex = 7 ‘3

    zona2.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

    End If

     

    If ActiveCell.Column = 13 Then ‘mercoledì

    Set zona3 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    ‘zona3.Select

    zona3.Font.ColorIndex = 7 ‘2

    zona3.Interior.ColorIndex = 7 ‘3

    zona3.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

    End If

     

    If ActiveCell.Column = 18 Then ‘giovedì

    Set zona4 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona4.Select

    zona4.Font.ColorIndex = 7 ‘2

    zona4.Interior.ColorIndex = 7 ‘3

    zona4.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

    End If

     

    If ActiveCell.Column = 23 Then ‘venerdì

    Set zona5 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona5.Select

    zona5.Font.ColorIndex = 7 ‘2

    zona5.Interior.ColorIndex = 7 ‘3

    zona5.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

    End If

     

    If ActiveCell.Column = 28 Then ‘sabato

    Set zona6 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona6.Select

    zona6.Font.ColorIndex = 7 ‘2

    zona6.Interior.ColorIndex = 7 ‘3

    zona6.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

    Application.CutCopyMode = False

    End If

     

    If ActiveCell.Column = 33 Then ‘domenica

    Set zona7 = Range(ActiveCell, ActiveCell.Offset(0, 4))

    zona7.Select

    zona7.Font.ColorIndex = 7 ‘2

    zona7.Interior.ColorIndex = 7 ‘3

    zona7.Copy

    Call COPIA_appiuntamento_in_calendario_3

    ‘Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

     

    Application.CutCopyMode = False

    End If

     

    labf: ‘da mettere dopo l’end if

     

    Call FILTRA_ANAGRAFICA_E_COPIA_TELEFONO_CLIENTE

    Call avvia_CONTROLLO_presenza_dicitura

     

    Application.ScreenUpdating = True

    ‘Call avvia_CONTROLLO_presenza_dicitura

     

    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