definire il contenuto di una cella per IF

[FrankinoPartecipante Frankino]

Buon giorno, apro questa discussione perché non capisco come capire tramite VBA se una cella è  un numero o lettera. Allego un pezzo di codice scritto da voi e un po' modificato da me.

Sub scrivi_ics()
Dim ur As Long, col As Long, num As String, riga As Long, NextRow1 As Long, NextRow2 As Long, Count As Integer
ur = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
num = Cells(7, 16).Value 'numero da cercare
col = Cells(7, 17).Value + 3 'colonna in cui scrivere
riga = Application.WorksheetFunction.Match(num, ActiveSheet.Range(Cells(8, 3), Cells(ur, 3)), 0) + 7 'riga su cui scrivere

se "num" non è un valore ma una lettera quando esegui "riga" la funzione "Application.WorksheetFunction.Match" va in errore

Pensavi di mettere un If dopo la definizione di "num" ma non capisco come usare la condizione per dire numero ok lettera non ok

[zer0kelvinPartecipante zer0kelvin Karma: 5 pts]

Ciao.

Premesso che avresti risolto molto più rapidamente con una ricerca su Google, in VBA esistono almeno due funzioni adatte allo scopo:

IsNumeric - restituisce True se l'argomento rappresenta un numero, altrimenti False.

Val - restituisce un numero se l'argomento rappresenta un numero, zero in tutti gli altri casi.

[Autore]

Articoli