Sfarfallio, non riesco ad evitarlo con la macro inserita all'interno di un foglio

Question

Buongiorno a tutti i mattinieri!!

Ho questa macro inserita direttamente all'interno di un foglio di lavoro e non in un modulo!

Funziona perfettamente ma non riesco, pur avendo inserito l'istruzione, ad evitare lo sfarfallio del video durante l'esecuzione della stessa.

Ho provato a posizionare

Application.ScreenUpdating = False

in diverse posizioni ma niente, continua a sfarfallare.

Quindi dopo diversi tentativi, chiedo aiuto ai nostri Oracoli del VBA!

Grazie e buona giornata

Andrea 

Private Sub Worksheet_Change(ByVal Target As Range)

'permette di trasformare le formule in valori

With Target

        If .Column = 32 Then

    Application.ScreenUpdating = False

            Cells(.Row, 3).Value = Cells(.Row, 3).Value

            Cells(.Row, 5).Value = Cells(.Row, 5).Value

            Cells(.Row, 24).Value = Cells(.Row, 24).Value

            Cells(.Row, 25).Value = Cells(.Row, 25).Value

            Cells(.Row, 26).Value = Cells(.Row, 26).Value

            Cells(.Row, 27).Value = Cells(.Row, 27).Value

            Cells(.Row, 28).Value = Cells(.Row, 28).Value

            Cells(.Row, 29).Value = Cells(.Row, 29).Value

            'Cells(.Row, 36).Value = Cells(.Row, 36).Value

            'Cells(.Row, 38).Value = Cells(.Row, 38).Value

            'Cells(.Row, 40).Value = Cells(.Row, 40).Value

            'Cells(.Row, 41).Value = Cells(.Row, 41).Value

            Cells(.Row, 42).Value = Cells(.Row, 42).Value

            Cells(.Row, 43).Value = Cells(.Row, 43).Value

            Cells(.Row, 45).Value = Cells(.Row, 45).Value

    End If

End With

On Error Resume Next

'Application.ScreenUpdating = True

End Sub

Answer 1

Buongiorno Mauro, perfetto! ho risolto ancora una volta grazie al tuo aiuto!Riassumo il modulo corretto, da inserire all'interno del foglio di lavoro:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

   

    With Target

    If Target.Column = 4 Then

        Call m(.row)

        End If

    End With

End Sub

Private Sub m(byval lng as long)

    ' Dim lng As Long

       

       Cells(lng.Row, 3).Value = Cells(lng.Row, 3).Value

       Cells(lng.Row, 3).Value = Cells(lng.Row, 3).Value

   

End Sub

Grazie e buona giornata

 

 

Riassumo io, il tuo non è corretto:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

    With Target

    If Target.Column = 4 Then

        Call m(.row)

        End If

    End With

End Sub

Private Sub m(byval lng as long)

    ' Dim lng As Long

       Cells(lng, 3).Value = Cells(lng, 3).Value

       Cells(lng, 3).Value = Cells(lng, 3).Value

End Sub

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

ok giusto, scusa eppur nn ho ancora bevuto! A parte glis cherzi, grazie.

;-)

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/