Inserimento incompleto

Hai un problema con Excel?

Nuova discussione

Inserimento incompleto
di gargiu data: 16/12/2014 08:30:00
Ciao a tutti, volevo sottoporvi il codice che vedete sotto evidenziando il seguente punto:
"ActiveCell.Offset(0, 10).Select"

Il problema é che quando giungo a questo punto, la formula condizionale non mi viene inserita, la cella mi rimane vuota. Tutto il resto dei dati viene correttamente inserito, tranne la formula in colonna 10. Cosa c'é di sbagliato nella macro?

Grazie in anticipo a chi mi risponde.

Sheets("lista").Select
            Range("B65536").Select
            Selection.End(xlUp).Select
            numero = ActiveCell
            ActiveCell.Offset(1, 0).Select
            ActiveCell = numero + 1
            ActiveCell.Offset(0, 1) = nattuatore2
            ActiveCell.Offset(0, 2) = ComboBoTipo
            ActiveCell.Offset(0, 3) = dataultima
            ActiveCell.Offset(0, 4) = "=SUM(RC[-1]+1095)"
            ActiveCell.Offset(0, 5) = ComboBoTipbatt
            ActiveCell.Offset(0, 6) = nbatteria2
            ActiveCell.Offset(0, 7) = collocazione
            ActiveCell.Offset(0, 8) = commenti2
            ActiveCell.Offset(0, 9).Select
            ActiveCell.FormulaR1C1 = "=IF(RC[-4]=""AA"",RC[-3],"""")"
            ActiveCell.Offset(0, 10).Select
            ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""AAA"",RC[-4],"""")"
            Range("A1").Select

di Mister_x (utente non iscritto) data: 16/12/2014 09:13:07
ciao

non serve selezionare

ciao

ActiveCell.Offset(0, 8) = commenti2
            ActiveCell.Offset(0, 9).FormulaR1C1 = "=IF(RC[-4]=""AA"",RC[-3],"""")"
            ActiveCell.Offset(0, 10).FormulaR1C1 = "=IF(RC[-5]=""AAA"",RC[-4],"""")"
             Range("A1").Select

di Mister_x (utente non iscritto) data: 16/12/2014 09:18:29
riciao

mi sono scrdato di dirti di non selezionare 2 volte la stessa colonna all'inizio

Range("B65536").End(xlUp).Select

riciao
Range("B65536").End(xlUp).Select
Ottimo
di gargiu data: 16/12/2014 11:33:39
Grazie, ora é perfetto.

Vuoi Approfondire?