santiagomf

En una tabla histórica de precios debes incluir siempre uno o dos campos de tipo fecha para indicar la validez del registro. Esto es: - Fecha inicio validez y Fecha fin validez - Sólo Fecha inicio - Sólo Fecha fin Si utilizas una única fecha, la...

Prueba de la siguiente forma: Private Sub Cantidad_AfterUpdate() actualizaImporte End Sub Private Sub IVA_AfterUpdate() actualizaImporte End Sub Private Sub Precio_AfterUpdate() actualizaImporte End Sub Private Sub actualizaImporte() Me.Total =...

Prueba el siguiente código (ajustándolo un poco a lo que necesites): Option Explicit Private Sub btnGuardar_Click() Dim wb As Workbook Dim nLin As Integer Dim nomXls As String ' Deberíamos comprobar que el contenido de los campos sea correcto If...

No acabo de entender cual sería la primera celda de destino en la que quieres copiar los datos, pero empecemos por el principio. Prueba este código: Option Explicit Sub copiaFilasTablaEnHojasSeparadas() Dim nLin As Integer Dim hojaTabla As Worksheet...

Lo que tienes que hacer es controlar el momento en que se cierra el formulario y ver si se ha pulsado o no el botón de cerrar (en caso contrario es que se cierra con "X"). Usa este código: Option Explicit Dim snBotonCerrar As Boolean Private Sub...

A ver si consigo adivinar lo que quieres hacer. En el primer bucle estás buscando una página cuyo nombre está en A11 y, cuando la encuentras haces una copia de la página "Mensual" y renombras la copia con el nombre de A11. Problema: haces eso cuando...

Seguramente estará funcionando bien pero el problema es otro: si se cumple primero con el 1 escribe el texto, después se cumple con el 2 y machaca el texto anterior, más tarde se cumple con el 3 y machaca el texto del 2 y, por último, se cumple con...

Utilizando el 'Acivecell' y el 'Offset' es muy fácil que te compliques la ejecución del proceso. Te dejo un código que hace algo ¿similar? A lo que quieres hacer, o eso me parece. Option Explicit Sub copiarDatosPermiso() Dim permiso As String Dim...

En un módulo escribe esta función: Option Explicit Function quitarCerosPoner30(ByVal txt As String) As String Do While txt <> "" If Left$(txt, 1) = "0" Then txt = Right$(txt, Len(txt) - 1) Else Exit Do Loop quitarCerosPoner30 = "30" & txt End...

El objeto "Combo1" debe ser un objeto que exista, no una variable definida como tal. Quita la definición "Dim combo1..." y crea un objeto en tu formulario que tenga ese nombre. Creo que funcionará.