You are here:---Rispondi a: [RISOLTO] Convalida dati
Rispondi a: [RISOLTO] Convalida dati 2018-07-19T10:39:30+00:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Convalida dati Rispondi a: [RISOLTO] Convalida dati

federico460
Partecipante
    Post totali: 23

    ciao

    da utilizzare solo se la struttura è uguale su tutti i fogli
    altrimenti usare quella di Sid :bye:

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Integer
    On Error Resume Next
    For i = 1 To Sheets.Count
        If Not Intersect(Target, Range("K4")) Is Nothing Then
        ActiveWindow.ScrollRow = Range("J2").Value
        Range("A2").Select
    End If
    Next i
    End Sub

    elimina quella in foglio1
    e copia questa in ” questa cartella di lavoro”

    al limite allega un file con i nomi dei fogli esatti
    e vediamo dov’è l’inghippo

    • Questa risposta è stata modificata 4 mesi, 3 settimane fa da  federico460.

    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