Excel - duda con codigo

 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 9 puestos en Excel (en relación al último mes)
Gráfica de Excel

duda con codigo

Publicado por Francisco (4 intervenciones) el 20/06/2018 15:47:42
Bueen dia tengo un problema para escribir el codigo de VBA, quiero hacer una macro que a diferentes celdas les cambie el valor e inmediatamente la celda de abajo quede en blanco. La primer celda especifica queda,cambia el valor y deja la celda de abajo en blanco, para la otras solo cambia el valor de la celda pero no deja la celda siguiente en blaco. Se que algo me falta pero no se que es.

Range("A2") = "clr"

Range("A2").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents



Range("A1500") = "clr"

Range("A1500").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents



Range("A3000") = "clr"

Range("A3000").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.150
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

duda con codigo

Publicado por Antoni Masana (1457 intervenciones) el 21/06/2018 06:49:07
Con esta instrucción le estas diciendo al Excel que a partir de la celda activa se desplace una fila hacia abajo:
1
ActiveCell.Offset(1, 0).Select

Pero cuando realizas estas dos acciones no pones esta celda como activa:
1
2
Range("A2") = "clr"
Range("A2").Font.ColorIndex = 1

En cambio al hacer esto si la pones como activa:
1
Range("A2").Select

Lo mejor para tu código sería esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("A2") = "clr"
Range("A2").Font.ColorIndex = 1
Range("A3").Select
ActiveCell.ClearContents
 
Range("A1500") = "clr"
Range("A1500").Font.ColorIndex = 1
Range("A1501").Select
ActiveCell.ClearContents
 
Range("A3000") = "clr"
Range("A3000").Font.ColorIndex = 1
Range("A3001").Select
ActiveCell.ClearContents

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar