UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

niangari


Saludos a todos. Les escribo para pedir algo de ayuda en programación de macros. Estoy tratando de lograr lo siguiente:

Tengo en la hoja 2 una tabla de ejemplo en donde el usuario debe escribir una serie de datos. Éstos nunca van a ser la misma cantidad, pueden ser desde sólo 1 o 2 hasta máximo 20 entradas. Para eso puse en el documento un par de macros de ejemplo que van a ir agregando o quitando filas según el usuario quiere agregar o quitar entradas.

2013-02-10_1559 - niangari8's library

Ahora en la hoja 1 quiero que con ejecutar una macro se distribuyan automáticamente esta lista de entradas de texto en el cuadro que está ahí.

2013-02-10_1600 - niangari8's library

Tengo 2 problemas por resolver: 1) Quería hacerlo simplemente con fórmulas (=T(A2)) pero cuando ejecuto las macros de agregar o quitar filas tengo problemas. Entonces creo que deberé hacerlo mediante una macro que distribuya estos valores y no tengo mucha idea sobre la programación con macros (por eso les estoy pidiendo ayuda! )

2) Hay alguna manera de corregir las macros de "agregar o quitar filas" en la hoja 2, para que nuca eliminen más de un "tope" de filas? Es decir, que si quedan 2 espacios para introducir valores en la "sample list 1", aunque haga click en "-" no se sigan eliminando filas? De esa forma evito que accidentalmente, el usuario borre, por ejemplo, la fila donde dice "sample list 2". Y de igual manera con la segunda lista, para cuando agregue más campos por debajo de esa lista.

Muchas gracias por su ayuda!!

Nicolás
Archivos
Sample lists.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

hugotron


Que tal niangari.

Creo que hace falta que describas adecuadamente cómo quieres que se distribuyan los datos en el recuadro de la hoja 1.

hugotron


En cuanto a las macros que eliminan filas, la de la lista uno puede ser así:

Sub OneLessList1Option()
'
' OneLessList1Option Macro
'

If Range("A2").Offset(3, 0).Value <> "" Then
MsgBox "No se pueden eliminar más filas", vbInformation, "Error"
Exit Sub
Else: Rows("5:5").Delete Shift:=xlUp
Range("A1:B1").Select
End If
End Sub

Y con eso bastaría para que queden siempre mínimo dos espacios en la lista. En la macro de la lista 2, no le veo problema porque siempre eliminas de la fila 10, así que no borraría nada abajo porque no hay más listas.

Espero te sea de utilidad.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.