Saltar al contenido

Antoni

Exceler C

  • Unido

  • Última visita

Ver perfil Ver su actividad

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