1 macro para varios TextBox

4 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
1 macro para varios TextBox

Amigos, buena stardes.

Tengo esta macro para llamarla desde el evento KeyPress de unos TextBox

[code]Sub Sel_TextBox()
   On Error Resume Next
 
     nombretextbox = BuscaClientes.txtTelf1.Text(BuscaClientes.txtTelf1.Text)
     nombretextbox = BuscaClientes.txtTelf2.Text(BuscaClientes.txtTelf2.Text)
    
valor = nombretextbox

If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0 '<-- Esta linea borra la tecla presionada equivocadamente
MsgBox "Ingrese SOLO números en el campo", vbOKOnly + vbInformation, Title:="CARACTER NULO"
End If

'Para Guion
Select Case Len(valor)
Case 4
valor.Text = valor & "-"
End Select
If Len(valor) = 12 Then KeyAscii = 0: MsgBox "MAX permitido en Telfono 1 y 2, 12 dígitos": Exit Sub
End Sub[/code]

Llamandola desde

[CODE]Private Sub txtTelf1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Call Sel_TextBox
End Sub[/CODE]

pero al llamarla "Call Sel_TextBox llenando los cuadros, me dice que  El número de argumento es incorrecto o la asignacion de propiedad no es valida y me apunta donde dice:

     nombretextbox = BuscaClientes.txtTelf1.Text(BuscaClientes.txtTelf1.Text)
     nombretextbox = BuscaClientes.txtTelf2.Text(BuscaClientes.txtTelf2.Text)

Podria algun experto en la materia ayudarme y hacerme la corrección?

 

Creo (digo yo) que con las macros no hace falta el libro aunque con solo el ejemplo

Etiquetas: 

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Sabemos (yo lo se) que NADIE

Sabemos (yo lo se) que NADIE esta obligado a responder. Que nadie esta obligado a ayudar. Que nadie esta cobrando por ayudar; etc etc y un grand ETC.

No me pasa solo con esta pregunta, si no que otras mas se quedan en la pantalla sin que nadie responda aunque sea , NO PUEDO, NO SE, AQUI NO se da ese tipo de ayuda.

Si buscan mis solicitudes, veran que hay otras mas que se quedan en solo lectura y creo que ni lectura, si en el olvido.

Otras de mis solicitudes anteriores que aun sin cualquier respuesta

Editar macro para busqueda
Editar macro para llenar ListBox
Borrar, eliminar Area de Impresion de un rango

Gracias pacomegia por tu ayuda en Alineacion de celda a la derecha y celdas en negrita

Gracias pacomegia en De 2 lineas de codigo hacer una sola

Gracias bridge y Gracias Paco en Macro me cierra el libro origen y me deja con la copia

Gracias Martin y cron en Desglose de formula

Gracias cron por tu ayuda en tema Exportar el contenido del TextBox de color rojo a celda

Gracias Creí_que_sabía_Excel en Codigo para copiar Factura a otra hoj

Y otras tantas pero muchas ni sequier un adios

Disculpen pero mi molestia no puede ser con alguno de ustedes, pero si es conmigo mismo al no poder recibir la ayuda que siempre he esperado de aqui y tener que recorrir a otra WEB, cosa que no lo he echo aun pero

Si alguien se dispone a darme la ayuda que espero, bien venida sea

AdjuntoTamaño
File libro1_necesitomas.xlsm21.02 KB
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Me pregunto si ¿ESTOY VETADO 

Me pregunto si ¿ESTOY VETADO  en esta pagina? o por lo contrario, ¿soy feo? rayos tanta indiferencia

Varios temas y ninguno recibe una sola respuesta aunque sea dando los buenos dias

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Hola, JoaoPor mi parte sabes

Hola, Joao

Por mi parte sabes que no estás vedado. ¿Feo? Si eres como el del avatar, un poco Lengua fuera

En realidad, esta consulta es compleja. Requiere dedicarle un tiempo y últimamente estoy liado para eso...

Espero que alguien te pueda contestar.

 

Un saludo