abilitare l'esecuzione di una macro

Question

Buongiorno,

ho creato una macro per selezionare una serie di celle ed inviarle via mail ma vorrei che il tasto di esecuzione della macro fosse abilitato solo se il valore di una cella corrisponde ad un dato valore( es."X")

Potete aiutarmi?

Grazie

Marco

Answer 1

grazie

proverò e ti faccio sapre

Marco

Answer 2

Ciao Marco,

Benvenuto alla Community!

ho creato una macro per selezionare una serie di celle ed inviarle via mail ma vorrei che il tasto di esecuzione della macro fosse abilitato solo se il valore di una cella corrisponde ad un dato valore( es."X")

Prova qualcosa del genere:

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

Option Explicit

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

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Const sFoglio As String = "Foglio1"           '<<=== Modifica

    Const sMiaCella As String = "A1"               '<<=== Modifica

    Const vMioValore = "Pippo"                      '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    Set Rng = SH.Range(sMiaCella)

    If Rng.Value <> vMioValore Then

        Call MsgBox( _

             Prompt:="la cella " & Rng.Address(0, 0) _

                   & "  deve essere compilata con il valore: " _

                   & vbNewLine & vbTab _

                   & vMioValore, _

             Buttons:=vbInformation, _

             Title:="REPORT")

        Exit Sub

    End If

    '\ Tuo codice

End Sub

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

===

Regards,

Norman