leone

Si tengo ese código ya hecho te lo envío para que lo pruebes, debes acomodarlo colocando el nombre del textbox utilizado. Private Sub Text18_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then...

Si existe un aforma muy fácil. Selecciona la hoja donde están los datos con el carácter a eliminar Ve al Menu->Edición->Reemplazar (Ctrl+L) En el campo Buscar coloca el carácter ° Reemplazar con dejalo Vacío Haz click en en botón "Reemplazar Todos"...

Me parece que esta pregunta esta repetida, de todas formas te la vuelvo a enviar. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If Not...

Este seria para que solo acepte Letras: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or...

Te envío el código que debes colocar en el evento KeyPress del Textbox de interés: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{tab}" ElseIf KeyAscii <> 8 Then If Not...

Prueba con esta Macro, realiza lo que tu necesitas, solo debes cambiar las columnas en la que se realiza la búsqueda, en la macro están las columnas A y B. Sub Macro1() Dim Borrado As Boolean Borrado = False Valor_Buscado = InputBox("Introduzca el...

He Modificado la primera rutina que envías Prueba con estos cambios y me avisas Sheets(1).Select Set c = Cells.Find(ComboBox1.Value, LookIn:=xlValues) On Local Error Resume Next c.Select If Err.Number = 0 Then c.EntireRow.Select Selection.Copy...

Puedes Realizar la acción que necesitas con el uso de una macro. Tengo un archivo que ejecuta lo que requieres, enviam la dirección de tu correo para enviarlo.

Esta pregunta es la misma que acabo de responder no se si esta repetida o es error de la pagina de TodoExpertos. De todas formas envio nuevamente la respuesta Private Sub TextBox7_Change() Select Case Len(TextBox7.Text) Case 1 If...

En vez de utilizar el evento "change" utiliza "Calculate" Private Sub Worksheet_Calculate() Dim RangCtrl As String Dim EnRango As Variant If Range("B20").Value = 1 Then Run "Macro1" Else If Range(?B20?).Value = 2 Then ListBox1.Visible = True Else...