Antoni
Exceler C
-
Unido
-
Última visita
Respuestas de la comunidad
-
Antoni's post in Error al Guardar Información de un Label was marked as the answerNo 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 answerSub 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 answerTe 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
