[VBA] Convalida di ActiveCell

[Teo@Unix]

Ciao,
Ho una macro che utilizza il valore della cella attiva per eseguire delle operazioni, vorrei convalidare la selezione dell'utente, ovvero convalidare ActiveCell al momento dell'esecuzione della macro.
La cella attiva deve essere solo su una certa colonna del foglio.

Come posso fare una cosa di questo tipo? Ho dato solo un occhio veloce alla guida, ma l'oggetto activecell non mi sembra supporti .validation.add ecc...
potreste farmi un esempio? Grazie.

[MarcoGG]

Originariamente inviato da Teo@Unix

Ho una macro che utilizza il valore della cella attiva per eseguire delle operazioni, vorrei convalidare la selezione dell'utente, ovvero convalidare ActiveCell al momento dell'esecuzione della macro.
La cella attiva deve essere solo su una certa colonna del foglio.

Puoi semplicemente rilevare la colonna in cui si trova la selezione al momento dell'esecuzione e agire di conseguenza.
Mettiamo che la selezione sia valida solo se in una cella della colonna "A" :

    Dim colonnaSelez As Integer
    colonnaSelez = ActiveCell.Column
    
    If colonnaSelez = 1 Then
        MsgBox ActiveCell.Text
    Else
        MsgBox "Selezione non corretta."
    End If
    
    ActiveCell.Select

L'ultima linea ActiveCell.Select serve a ripristinare il Focus sulla cella, che, in caso ad esempio di pressione su un CommandButton, verrebbe perso...

[Teo@Unix]

Ok! Così è ottimo, se volessi convalidare anche il formato? C'è una metodo di activecell?
grazie.

[MarcoGG]

Originariamente inviato da Teo@Unix

Ok! Così è ottimo, se volessi convalidare anche il formato? C'è una metodo di activecell?
grazie.

Stesso discorso. Poniamo che l'unico formato-cella valido sia il Formato Testo :

    If ActiveCell.NumberFormat = "@" Then
        MsgBox "Formato Testo"
    Else
        MsgBox "Formato non corretto."
    End If

[Teo@Unix]

Grazie, tutto ok.