Visual Basic para Aplicaciones - Establecer una celda activa inicial

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Establecer una celda activa inicial

Publicado por Elías (1 intervención) el 23/09/2015 22:51:47
Hola, amigos.

Estoy aplicando una macro que me lista los archivos en un directorio y sus subdirectorios, pero actualmente me utiliza la celda activa. He intentando infructuosamente el establecer una celda inicial para que a partir de la misma inicie el copiado de los nombres de archivos. Les pego la porción de código, cualquier sugerencia o tip bienvenido. Estoy usando Excel 2010.

1
2
3
4
5
For Each archivo In carpeta.Files
        ActiveCell.value= ruta & archivo.Name
        ActiveCell.Offset(1, 0).Select
 
Next

En realidad, me gustaría poder establecer como celda inicial la B6. Es decir que desde B6 se comience a escribir el nombre y dirección de los archivos.

Saludos,
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

Establecer una celda activa inicial

Publicado por nn (13 intervenciones) el 24/09/2015 16:50:11
1
2
3
4
5
6
7
8
9
10
11
Dim rng as Range
Dim fil&
 
Set rng = Range("B6")
fil = 0
 
For Each archivo In carpeta.Files
       rng.Offset(fil).value= ruta & archivo.Name
       fil = fil + 1
 
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar