Controllo prima di eseguire una MACRO

Question

Buongiorno a tutti!

volevo sapere se c'è la possibilità di inserire un controllo in una MACRO affinché ci sia una verifica su determinate celle che, se piene, la MACRO deve essere eseguita completamente mentre se anche solo una cella da controllare è vuota la MACRO non deve essere eseguita e deve segnalare con un messaggio quali celle sono vuote...

Questa è una parte della MACRO:

Sub ESEGUI()

' ESEGUI Macro

' REGISTRA DOCUMENTO

Application.ScreenUpdating = False

    Range("J3:J5").Select

    Selection.Copy

    Sheets("Contabilità").Select

    Selection.End(xlDown).Select

    Range("B1048576").Select

    Selection.End(xlUp).Select

    ActiveCell.Offset(1, 0).Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

...........

Application.ScreenUpdating = True

End Sub

Le celle da controllare sono: A3, A32, C3, D3, F3, J3, J10, J11, J12, J17, J21.

Grazie in anticipo per l'attenzione!

Alessandro.

Answer 1

Ciao Alessandro,

Funziona perfettamente! Grazie!

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread, vorrei chiederti gentilmente di contrassegnare la mia risposta come Risposta. In questo modo, tu aiuterai anche coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

===

Regards,

Norman

Answer 2

Ciao ,

volevo sapere se c'è la possibilità di inserire un controllo in una MACRO affinché ci sia una verifica su determinate celle che, se piene, la MACRO deve essere eseguita completamente mentre se anche solo una cella da controllare è vuota la MACRO non deve essere eseguita e deve segnalare con un messaggio quali celle sono vuote...

Questa è una parte della MACRO:

 

Sub ESEGUI()

' ESEGUI Macro

' REGISTRA DOCUMENTO

Application.ScreenUpdating = False

    Range("J3:J5").Select

    Selection.Copy

    Sheets("Contabilità").Select

    Selection.End(xlDown).Select

    Range("B1048576").Select

    Selection.End(xlUp).Select

    ActiveCell.Offset(1, 0).Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

...........

Application.ScreenUpdating = True

End Sub

Le celle da controllare sono: A3, A32, C3, D3, F3, J3, J10, J11, J12, J17, J21.

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub ESEGUI()

    Dim Rng As Range, rCell As Range

    Dim bEmpty As Boolean

    Const sIntervallo As String = _

           "A3, A32, C3, D3, F3, J3, J10, J11, J12, J17, J21"

    Set Rng = ActiveSheet.Range(sIntervallo)

    For Each rCell In Rng.Cells

        With rCell

            If IsEmpty(.Value) Then

                bEmpty = True

                Exit For

            End If

        End With

    Next rCell

    If bEmpty Then

        Call MsgBox( _

             Prompt:="Questa procedura richieda che tutte le celle nell'intervallo " _

                     & sIntervallo & " siano riempite!" _

                     & vbNewLine & vbNewLine _

                     & "Il codice verrà terminato ", _

             Buttons:=vbInformation, _

             Title:="CODICE TERMINATO!")

        Exit Sub

    End If

  '\ Tuo codice

  '\ ...

  '\ ...

End Sub

'<<=========

===

Regards,

Norman

Answer 3

Funziona perfettamente! Grazie!