Elsa Matilde

Te dejo una macro para el envío de adjuntos. El nombre del archivo será la misma cadena que utilizaste en macro anterior. Si declaras las variables como públicas o colocas estas instrucciones en la misma macro, no será necesario que las vuelvas a...

Los mensajes de error generalmente tienen más de una causa. Debieras copiar todo el mensaje para tener una idea más amplia del motivo. Tratándose de la palabra 'Búsqueda' revisa si va con o sin acento. Y una de las razones, aunque no recuerdo si es...

Si tu rango tiene celdas de a las que les has asignado un color (NO formato condicional), el bucle For Each ... Next te quedaría así: Private Sub CommandButton1_Click() 'Con este código me agrega todos lo registros del rango 2 a 400 Dim campo, prod...

Estuve leyendo días atrás tu consulta anterior. Y debo decir que es muy difícil desarrollarte un 'formulario' ya que requiere no solo dibujar los controles, sino también asignarle propiedades, eventos o sea cuándo se va a ejecutar cada cálculo, etc....

Te dejo una macro para el botón de Guardar. Agrego la función Trim para evitar que se ingrese algún espacio que luego haga la diferencia entre un nombre y otro. Private Sub CommandButton1_Click() 'botón Guardar 'x Elsamatilde 'busca en hoja Base, col...

Te muestro un ejemplo muy sencillo con 2 controles ListBox: uno se alimenta con la propiedad RowSource y el otro recorriendo la hoja de datos. Por supuesto que todo el código es de ejemplo, mejorable. Es para que observes la diferencia al momento de...

Mereces el premio a la perseverancia ;) A la macro que te envié le agregué la instrucción para devolverte también el nombre de la hoja, tal como se observa en la siguiente imagen. Ahora te queda adaptarla a tu modelo. Sub solicitaRango() 'x...

Pensé en enviarte una macro de ejemplo con un InputBox, utilizando el argumento Type en 8. Veo que ya te acercaste bastante... muy bien! Te acabo de dejar la macro de ejemplo en tu nueva consulta.

Estabas bastante cerca. Te dejo una macro con el InputBox que te devuelve los 2 campos: Sub solicitaRango() 'x Elsamatilde Dim rango As Range, libro As String Dim miLibro As Workbook, miHoja As Worksheet Set miLibro = ActiveWorkbook Set miHoja =...

Reemplazá tus instrucciones a partir de la línea del comentario, por las que te dejo a continuación: 'recorro la ultima fila con datos ... a partir de aquí ultima_fila = Worksheets(b).Range("a" & Rows.Count).End(xlUp).Row 'los datos que necesito...