djgajoseph

jerryeagle respondió: ListBox. ListCount Esa instrucción cuenta las filas del ListBox

jerryeagle respondió: Private Sub TextBox7_Change() TextBox7.Value = FormatNumber(TextBox7.Value, 2) '2 es el Numero de Decimales End Sub Al usar este formato, la macro utilizara el símbolo que tengas por defecto para separador de miles y de decimales Aunque yo validaría...

Cadipas spain respondió: Cambialo por este otro código, de tal manera que si el textbox esta vacío no realiza nada. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then If WorksheetFunction.CountIf(Sheets("Hoja2").[A:A], TextBox1) = 0 Then...

Cadipas spain respondió: Añade este código a tu formulario. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim C As Object With Sheets("HOJA2").Range("a:a") Set C = .Find(TextBox1.Value, LookIn:=xlValues) If Not C Is Nothing Then MsgBox "EL REGISTRO ESTA...

Elsa Matilde respondió: Podes utilizar una fórmula o una línea de macro . 1- Fórmula : =MAX(ResumenTot!A2:A2000) + 1 'dejá un rgo final suficientemente amplio para abarcar los futuros registros. 2-macro: maxi =...

antares18 respondió: No se si lo he entendido bien, quieres usar lo que hace la función contara pero no en la barra, lo quieres en un módulo para saber el numero exacto que cumplen la función. Si es así la fórmula es esta. Public Function contar_celda(Celdas As Range) As...