Saltar al contenido

Antoni

Exceler C
  • Unido

  • Última visita

Respuestas de la comunidad

  1. 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  
  2. 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  
  3. 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
  4. 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