[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]

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]

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.