calidmn

Carlos Arrocha respondió: Prueba añadiendo después de la siguiente línea ListBox1.List(ListBox1.ListCount - 1, 2) = cliente.Row Esta otra ListBox1.List(ListBox1.ListCount - 1,3) = cliente.Row Y revisa en la propiedad ColumCount del listbox la cantidad

ricardo alvarado respondió: Usa esto amigo: TextBox1.Text = Replace(TextBox1.Text, ",", ".")

Dante Amor respondió: Te anexo el código para agregar la columna C Private Sub TextBox1_Change() If SaltarEventos = True Then Exit Sub ListBox1.Clear TextBox2 = "" TextBox3 = "" TextBox4 = "" TextBox5 = "" TextBox6 = "" ultf = clientes.Range("a" &...

Dante Amor respondió: Puede ser por el lugar en dónde pusiste la macro, la tienes en un módulo o en una hoja. Tendría que revisar el archivo con la macro. Envíamelo. Mi correo jov19p3@yahoo.com En el asunto del correo escribe tu nombre de usuario “calidmn” y el título de...

Dante Amor respondió: Te anexo la macro para guardar la hoja "reporte", en la macro cambiar los ejemplos por tus datos. Sub GuardaReporte() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = "C:\trabajo\" 'cambiar por la ruta...

Dante Amor respondió: Te anexo la macro para poner en los eventos de worksheet Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Column <> Columns("H").Column Then Exit Sub If IsDate(Target.Value) Then If...

Anónimo respondió: La validación de la contraseña no se donde lo estás haciendo si lo haces en tu formulario userform1, entonces lo que podés hacer es algo parecido al siguiente código cmdAceptar_Click() UserForm1.variableContraseña = UserForm2.TextBox1.Text Unload Me...