trova ultima cella piena e metti un dato

[teto021162]

salve A tutti
ho un range di 8 celle dalla ai14:ai21
tutte le celle hanno un risultato di formula
il risultato in successione darà un dato oppure "" quindi cella vuota
quindi ad esempio un risultato possibile può essere
ai14 cella piena
ai15 cella piena
ai16 cella piena
ai17 cella vuota
ai18 cella vuota
ai19 cella vuota
ai20 cella vuota
ai21 cella vuota
vorrei che venisse identificato l'ultima cella piena e che
nella cella corrispondente di colonna an venisse inserito una virgola
quindi considerando l'esempio la virgola andrebbe in an16

Grazie a tutti
Teto

[teto021162]

scusate era banalissimo

Range("ae14:ae21").SpecialCells(xlCellTypeVisible).End(xlDown).Offset(0, 9).Select

la stanchezza comincia a farsi sentire

Buonanotte

teto