Richard Alejandro Villarroel Gonzalez

El error te da por causa de que escribes hoja1 en minúscula debes cambiar a mayúscula, que es el nombre real de la hoja: Sub ocultarhojas() Dim hoja As Worksheet For Each hoja In Worksheets If hoja.CodeName <> "Hoja1" Then hoja.Visible =...

Supongamos que el monto está en la celda: A2=11.000,00 € El porcentaje en: B2=19% El IVA de A2 es: C2= "=A2*B2/100" y la suma del monto mas el IVA en: D2= "=SUMA(A2;C2)"

Pobré es código de Dante y no me funciono, pero probé mi código y si funciona: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 10 Then If Range("j1") = "" Then MsgBox " Se te olvida la Hora base", vbOKOnly + vbExclamation,...

Puedes usar el evento MouseMove de la sección detalle del formulario y hacer mover el Mouse con los valores de X y Y y el método .Move del boton de comandos. Ejemplo: Private Sub Detalle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y...

Tienes que usar la ventana de comando: en Inicio Ejecutar Escribe: cmd + ENTER Luego: Regsvr32 Mscal.ocx + ENTER

Sólo debes agregar después de mandar a poner la fecha la siguiente instrucción: Selection.NumberFormat = "dd/mm/yyyy"

Puedes insertar una tabla dinámica y lo resuelves así: Y te queda así: No olvides calificar

Aqui tienes un ejemplo sencillo: Sub BuscarSalto() 'El número de saltos de página horizontales está limitado a 1.026 por hoja. Dim x As Integer Dim Buscar As String ' Establecer numrows = número de filas de datos.' NumRows = Range("D2",...

Aquí tienes una manera con los eventos antes de cerrar (Workbook_BeforeClose) y antes de guardar (Workbook_BeforeSave) del objeto Workbook, o sea, el libro actual: Private Sub Workbook_BeforeClose(Cancel As Boolean) GuardarUsuario End Sub Private Sub...

No sé por qué usas dos tablas, me parece que debieras usar 1 sola. Pero me imagino que Peso y Altura pertenecen a la misma entidad de persona creo una persona pudiera tener más de un peso y una altura en diferentes tiempos. Ahora bien, viéndolo desde...