Elsa Matilde

Es más simple de lo que imaginas: Private Sub Workbook_Open() Sheets("Hoja1").Activate Range("A20").Select Sheets("Hoja1").ScrollArea = "A1:Z40" Dim txt As String txt = "Bienvenido" & vbCrLf _ & "Gracias por utilizar esta aplicación." MsgBox txt,...

Esto se resuelve con Formato Condicional, utilizando fórmula. No aclaro los pasos porque no indicaste tu versión Excel y hay diferencias en este tema, entre las distintas versiones. Si no logras realizarlo, por favor aclara tu versión para que avance...

Tenías algunos problemas de paréntesis... de todos modos revisa no vaya a ser que el cambio de los mismos te calcule diferente: TextBox14 = Format(Round(Val((TextBox9 * TextBox12) / (TextBox7 - TextBox6)) * 10, 2), "#,##0.00") TextBox15 =...

La macro ejecuta correctamente la búsqueda. Si el texto que guardas en la variable 'd' se encuentra en alguna cadena de la otra hoja, lo encuentra sin inconvenientes... revisa si realmente estás escribiendo bien el dato a buscar.

Retira la parte de la instrucción que vuelve a hoja Principal, debiéndote quedar así: If sino <> vbYes Then Exit Sub Por supuesto que si realizas la búsqueda desde un botón de userform, al cerrarlo tampoco se debe volver a la hoja Principal.

Tomo la consulta. Revisaré tus muestras y te comento.

En el evento BeforePrint, cancelá cualquier impresión con esta instrucción: Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub Y en la macro de tu botón, tenés que agregar una instrucción que inhabilita la ejecución de otros...

Te dejo la macro que colocarás en el Editor, en un módulo. No indicas a partir de qué celda debe pegarlo así que asumí A2 (esto afectará quizás a las fórmulas). Sub rgo_NuevaHoja() 'x Elsamatilde 'guarda datos para el nombre de celdas hoja Informes...

No utilices rutinas Auto_xxxx, cambiale el nombre y asignala a tu botón nuevamente. Por ej: Sub cierreHoja2() Application.DisplayAlerts = False Application.Quit End sub Quitá la anterior y probá. Luego regresá a finalizar la consulta si todo queda...

Entrá al Editor de macros (con Alt y F11). En el panel a tu izquierda, verás la lista de Microsoft Excel Objetos. Seleccioná con doble clic el llamado ThisWorkBook. Allí copiá este código, ajustando el nombre de tu hoja. Private Sub Workbook_Open()...