Re: MACRO PARA RELLENAR CASILLAS

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