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