Re: MACRO PARA RELLENAR CASILLAS

30/11/2005 - 15:42 por Ferran | Informe spam
Aqui mando el codigo de la macro que pides.
Con ejectutar la macro se abre una ventana que pregunta en que dia quieres
empezar.
Ferran

Sub Macro1()
DIAS = InputBox("Que dia de la semana quieres empezar (L M X J V S D)?")
Application.AddCustomList ListArray:=Array("L", "M", "X", "J", "V", "S",
"D")
Range("A1").Select
ActiveCell.Value = DIAS
Selection.AutoFill Destination:=Range("A1:AE1"), Type:=xlFillDefault
Range("A1").Select
End Sub


<Willi@m> escribió en el mensaje
news:%23V1Pqja9FHA.220@TK2MSFTNGP14.phx.gbl...
Hola José Luis, lo puedes hacer agregando una lista personalizada:
En un rango de celdas continuas, vertical u horizontal, escribes tu lista,
D L M X J V S, y lo seleccionas, luego vas a Herramientas => Opciones... =>
activas la carpeta Listas personalizadas, en Importar lista desde celdas: ,
tendrás establecido el rango seleccionado o sino, selecciona tu lista, luego
haces click en Importar y listo ya puedes usar tu lista para llenar
cualquier rango de celdas con solo arrastrar.
Espero que sea lo que buscabas, Chao.
Willi@m
"José Luis" <jltellez@ono.com> escribió en el mensaje
news:IJejf.116184$dr.9394@news.ono.com...
Hola a todo el grupo... necesito saber como puedo hacer una macro para
que
seleccionando un valor de una lista me rellene automaticamente 31 celdas
Tengo una lista con 7 valores:
L
M
X
J
V
S
D
que corresponden a los dias de la semana, entonces a traves de una celda
eligo uno de los valores y quiero que a partir de ese valor me escriba
en
las celdas:
A1,B1,C1,D1,E1,F1,G1. asi hasta 31 celdas
por ejemplo si elijo el valor J me tendria que salir asi:
J,V,S, D, L,M,X, J, V asi hasta 31 celdas

¿Me he explicado bien? Gracias por vuestras respuestas

Silvia Tellez
 

Leer las respuestas

#1 José Luis
30/11/2005 - 17:04 | Informe spam
Hola Ferran, gracias por molestarte... supongo que el codigo que me has
mandado estara bien, lo que pasa que cuando ejecuto la macro me dice:
ERROR DE COMPILACION y se me abre la ventana del editor de macros y se me
queda remarcada esta linea:
Application.AddCustomList ListArray:=Array("L", "M", "X", "J", "V", "S",
¿Que puede ser? Gracias otra vez

Silvia Tellez ( Jose Luis es mi padre)


"Ferran" escribió en el mensaje
news:dmkdoi$dgg$
Aqui mando el codigo de la macro que pides.
Con ejectutar la macro se abre una ventana que pregunta en que dia quieres
empezar.
Ferran

Sub Macro1()
DIAS = InputBox("Que dia de la semana quieres empezar (L M X J V S D)?")
Application.AddCustomList ListArray:=Array("L", "M", "X", "J", "V", "S",
"D")
Range("A1").Select
ActiveCell.Value = DIAS
Selection.AutoFill Destination:=Range("A1:AE1"), Type:=xlFillDefault
Range("A1").Select
End Sub


escribió en el mensaje
news:%
Hola José Luis, lo puedes hacer agregando una lista personalizada:
En un rango de celdas continuas, vertical u horizontal, escribes tu
lista,
D L M X J V S, y lo seleccionas, luego vas a Herramientas => Opciones...
=>
activas la carpeta Listas personalizadas, en Importar lista desde celdas:
,
tendrás establecido el rango seleccionado o sino, selecciona tu lista,
luego
haces click en Importar y listo ya puedes usar tu lista para llenar
cualquier rango de celdas con solo arrastrar.
Espero que sea lo que buscabas, Chao.

"José Luis" escribió en el mensaje
news:IJejf.116184$
Hola a todo el grupo... necesito saber como puedo hacer una macro para
que
seleccionando un valor de una lista me rellene automaticamente 31
celdas
Tengo una lista con 7 valores:
L
M
X
J
V
S
D
que corresponden a los dias de la semana, entonces a traves de una
celda
eligo uno de los valores y quiero que a partir de ese valor me escriba
en
las celdas:
A1,B1,C1,D1,E1,F1,G1. asi hasta 31 celdas
por ejemplo si elijo el valor J me tendria que salir asi:
J,V,S, D, L,M,X, J, V asi hasta 31 celdas

¿Me he explicado bien? Gracias por vuestras respuestas

Silvia Tellez




Preguntas similares