Antoni
-
Contador de contenido
11886 -
Unido
-
Última visita
-
Días con premio
912
Respuestas de la comunidad
-
Antoni's post in Error al Guardar Información de un Label was marked as the answer
No todos los controles tienen las mismas propiedades:
Private Sub Guardar(sh As Worksheet, r As String, ctrl As Control) If ctrl.Visible Then Select Case TypeName(ctrl) Case "Label" sh.Range(r).Value = ctrl.Caption Case "TextBox" sh.Range(r).Value = ctrl.Value End Select End If End Sub
-
Antoni's post in Macro ocultar un rango indicado pero menos celdas o celda seleccionadas was marked as the answer
Sub OcultaFilas() Rows("8:20").EntireRow.Hidden = True 'ocultar rango Selection.EntireRow.Hidden = False 'mostrar selección End Sub
-
Antoni's post in Macro para definir cumpleaños. was marked as the answer
Te dejo una función, puedes usarla en macros y formularios o como fórmula.
Function Edad(Identidad As String) As Variant Dim Año, Mes, Día '-- If Not IsNumeric(Identidad) Or Not Len(Identidad) = 11 Then Edad = "#Error Identidad" Exit Function End If '-- Año = CInt(Left(Identidad, 2)) If Año > Year(Date) - 2000 Then Año = Año + 1900 Else Año = Año + 2000 End If '-- Mes = CInt(Mid(Identidad, 3, 2)) Día = CInt(Mid(Identidad, 5, 2)) Edad = Year(Date) - Año '-- If Mes > Month(Date) Or _ (Mes = Month(Date) And Día > Day(Date)) Then Edad = Edad - 1 Exit Function End If End Function
Cumpleaños Foro.xlsm
-
Antoni's post in ERROR 91 EN MACRO was marked as the answer
No encuentra el valor de la variable prod en esta instrucción:
Set pro_d = .Range("A5:A" & ufd).Find(prod)
-
Antoni's post in COPIAR UNA FILA E INSERTAR Y PEGAR 500 FILAS DESPUES DEL ULTIMO DATO was marked as the answer
Te propongo ir creando las filas de forma automática a medida que vayas entrando información .
Cuando selecciones una celda de la columna A vacía, si hay información en la celda de la fila anterior, las fórmulas se insertarán de forma automática.
Abre el adjunto y selecciona la celda A50 para ver el resultado de lo que te acabo de describir.
PRUEBA INSERTAR 500 FILAS.xlsm
-
Antoni's post in No permitir la grabación de documentos con el mismo NUMERO was marked as the answer
Revisa el adjunto.
Cargar Facturas 01.xlsm
-
Antoni's post in BUSCAR, FILTRAR Y REFLEJAR CASOS EN LISTBOX SEGÚN SELECCIÓN EN COMBOBOX was marked as the answer
Otra solución más.
PRUEBA - copia.xlsm