Elsa Matilde

Te dejo el código con los IF. Lo dejé en un control del tipo CommandButton, que evalúa el contenido de un TextBox. Aclaro estos detalles para que hagas los cambios necesarios. Private Sub CommandButton1_Click() Dim NUMERO As Integer 'declaración de...

Si la tabla será como la de tu imagen, donde no se repiten los días para un mismo Id, entonces la siguiente fórmula sería una opción posible:...

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...

Hay 3 Optionbutton pero solo 2 TextBox, por lo que no comprendí qué valores vas a pasar a cada uno de ellos. Te dejo un ejemplo de cómo completar controles de otro Userform antes de llamarlo: Private Sub CommandButton2_Click() 'botón que llama al 2do...

Lamentablemente no nos están llegando los avisos ... pero ya te respondí en la anterior. Si aún sigue fallando la impresión, volvé a dejar el código tal como lo tengas ahora para probarlo.

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 las instrucciones de guardado para un documento Word desde Excel: Primero tendrás que armar la ruta y nombre para el nuevo documento. En el ejemplo lo dejo en la misma ubicación que el archivo Excel. Ajusta este detalle: Sub Genera_Word() Dim...

El arreglo del código, desde el mensaje hasta el cierre quedaría así: 'em: si se presenta mensaje pasa a la línea de cierre y allí se permite guardar con otro nombre On Error Resume Next If [N6] = "minerd" Then ruta = "D:\COLEGIO CLAREN...

Si bien mencionas 'archivo', veo que en realidad buscas en el mismo archivo pero en diferentes hojas. Si es así, esta sería la fórmula: =SI.ERROR(BUSCARV(A2;Hoja2!A:B;2;FALSO);SI.ERROR(BUSCARV(Hoja1!A2;Hoja3!A:B;2;FALSO);"")) Lo que se evalúa es si...