Trovare prima colonna libera

[Lyke73]

Ciao a tutti, con questo codice

Codice: Seleziona tutto

Range("a1").Select
Selection.End(xlToRight).Select
ActiveCell.Next.Select


trovo la prima cella della prima colonna libera, e stranamente funziona.
Se volessi invece trovare la colonna in cui la prima cella libera è la terza e non la prima ( es. c3, h3... ), come si modifica il codice?
Grazie.

[ricky53]

Ciao,
perchè fai riferimento alla riga "3" (C3, H3) quando il tuo codice lavora sulla riga "1" ???

Puoi chiarire meglio la tua necessità.

Ti propongo una piccola riduzione del tuo codice

Codice: Seleziona tutto

    Range("A1").End(xlToRight).Offset(0, 1).Select


Prova anche cambiando "A1" con la riga che vuoi, per esempio la "3" di prima scrivendo

Codice: Seleziona tutto

    Range("A3").End(xlToRight).Offset(0, 1).Select


[Lyke73]

Una risposta semplice per una domanda stupida....a volte mi stupisco per la capacità che ho di perdermi in un bicchere d'acqua...!!
Cambiando da A1 a A3...e voilà cosa cercavo!
Grazie e buonanotte.

[ricky53]

Ciao,
infatti non capivo la tua domanda proprio perchè mi sembrava strano che tu chiedessi di avere i dati su "A3" e non sapessi farlo. Proprio per questo motivo ti chiedevo chiarimenti ... meglio così.

Buon proseguimento