hola buenos dias queria saber si me pueden ayudar tengo un formulario en excel con vba y puse los codigos para poder in ingresar y limpiar los datos del formulario pero no tengo idea que codigo colocar para poder modificar los datos, buscarlos, y poder eliminarlos agradeceria su ayuda muchas gracias no pude subir el archivo era muy pesado pero solo necesito el codigo y la indicacion de donde agregar los textbox1,2,3etc.

Lo primero dar gracias por la acogida. No tengo ni idea de como conseguir lo que explico en el titulo, asique si algún alma caritativa se aventura en la tarea le estaría muy agradecido. No veo como adjuntar el archivo para que la explicación sea mas precisa, pero allá voy. Se trata de almacenar en celdas todas las variaciones de la cifra que aparece en las celdas B3,B4..... y empezar ha "guardar" los valores, digamos en empezando en la celda H3,I3,J3.... y H4,I4,J4.... y así hasta que todos los valores de la columna B3,B4.... el valor llegue a ser 0 en todos. Tengo 100 bloques en los que querría que la macro o lo que sea que necesito lo hiciera, asique aunque hu…

Hola. He realizado unas macros en excel y le puse clave al codigo para que no lo puedan ver. Sin embargo, solo por curiosear intente ejecutar las macros en Apache OpenOffice 3 y me percate que es posible ver el codigo sin necesidad de ingresar ninguna clave, ¿es esto normal? Saludos.

Buenos días, tengo un pequeño sistema de almacén que funciona aparentemente bien pero cuando voy registrar ingreso de materiales se vuelve bien pesado y genera mucho archivos temporales en la carpeta lo mismo pasa en registro de salida de materiales, agradezco que me digas que es lo que esta pasando con mi proyecto o que me falta poner por favor gracias por sus tiempos. Adjunto el archivo Usuario y Contraseña: ADMIN Sistema de Entradas, Salidas y Almacén.xlsm

Hola a tod@s. Tengo libro con 50 hojas. Sub OcultarExceptoActiva() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub Hace lo que dice. Pero el problema está en que no obedece a sus vínculos. ¿Se podría solucionar? Agradecido de antemano.

Saludos Estimados. Me gustaría saber si alguno de los usuarios del Foro ha creado algún archivo del test AMITAI, sería posible que lo compartieran?. Saludos

Hola a Todos, Tengo un textbox con el siguiente codigo: Private Sub TextBox39_AfterUpdate() TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) sCar = Chr(KeyAscii) If sCar = "," Then KeyAscii = IIf(sDecimal = ".", 46, 44) sCar = Chr(KeyAscii) If (InStr(TextBox39, sCar) > 0) Then KeyAscii = 0 Exit Sub End If ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then KeyAscii = 0 Exit Sub End If End Sub Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749…

Ola que tal disculpen por la molestia, tengo un inconveniente con unos códigos para lograr insertar al FromUser, para un buscador y filtrador en el Textbox, espero que me brinden su ideas, gracias!! Ante mano les agradezco mucho por su atención. Buscadores.rar

TextBox Change: Pérdida primera pulsación Buenos días, Adjunto hoja con formulario que incorpora 2 textbox programados para que, con el método change, al introducir datos en uno se borre el otro y viceversa. El problema que tengo es que pierdo la primera pulsación cuando, tras rellenar uno de los textbox, escribo en el otro.:confusion: ¿Cómo puedo solucionarlo? Gracias, Juan. TextBox Pérdida Primera Pulsación.xls

Hola a todos! Tengo unos codigos para asignar un formato numerico a un textbox de un tema que no logro encontrar ahora y otro de un tema que comencé (https://www.ayudaexcel.com/foro/macros-programacion-vba-10/anadir-borrar-cambiar-valor-combobox-celdas-23260/#post114925) que sirve para evitar introducir caracteres especiales. Los he combinado a lo bruto, pero quería conseguir más cosas, a ver si me podéis ayudar con esto. Adjunto el código hasta ahora: Private Sub CuadroTexto1_Change() Dim Texto, Entero, Decimall If Len(CuadroTexto1) = 0 Then Exit Sub Texto = CuadroTexto1 Texto = Replace(Texto, Application.ThousandsSeparator, "") p = InStr(Texto, Application.Deci…

Estimados En un formulario tengo varios textbox con evento exit, se comportan como tales, es decir el código corre una vez ingreso un dato y doy el enter, sin embargo uno de ellos cuyo código es similar a otros: Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox10.BackColor = &HFFFFFF 'Blanco Me.TextBox13.BackColor = &HFF& 'Rojo Me.TextBox13.SetFocus End Sub Se comporta como si fuera evento enter, es decir no recibe el Foco y ejecuta los códigos antes del ingreso de los datos, además con el enter no ingresa el dato, debo hacerlo con el cursor, pasando a otr…

Hola a todos, Adjunto mi archivo, el cuel tiene los textbox 13 y 14 que deben ser en formato contabilidad o moneda, en el se muestra el codigo que estoy usando (me lo pasaron por aqui) pero, este no es reconocido como numero, cual seria el codigo que debo usar y donde lo debo colocar para que se pueda ingresar de tal manera, en realidad no manejo muy bien el VB. Muchisimas Gracias por su amable apoyo. Saludos, EJEMPLO OC.zip

buenas compañeros: como puedo hacer para que un textbox tenga un valor máximo a mostrar por ejemplo. si voy a importar un datos numérico a un textbox el cual es 125.333. el textbox me muestre 100.000 que sea el valor máximo a mostrar. si la cifra es mayor a 100.000 que el textbox solo me muestra 100.000 y si es menor obvio la misma cantidad... espero sus ayudas gracias

Private Sub CommandButton23_Click() TextBox1 = TextBox1 - 1 End Sub Quiero que en el TextBox1 al pasar a numero negativo -1 el numero pase a 0 porque no quiero que se pase a -1 -2 -3 -4 ya que no requiero eso... Ejem: TextBox = me dio un resultado 856, Pero si el el resultado es -856 pase a 0 espero su gran ayuda

Buenas comunidad AyudaExcel! Espero que se encuentren bien,en esta ocasión requiero de la ayuda para un textbox. Tengo una escala de calificación determinada por: "A" "B" y "C". Cuando ejecuto el buscador, en el textbox7 si sale la letra "A" que esta se ponga de color verde, si sale la letra "B" de color Amarillo y con la letra "C" de color rojo. Si pueden ayudarme con esto se lo agradezco de antemano! Saludos!

Estimados, En el archivo que enconter seria posible me apoyen en que los textbox 6,5,7 y 8 se sumen y den el resultado en el texbox 4 y que este calcule el 18% y de ese resultado en el texbox 3, luego lo sume el textbox 4 mas el 3 dando el resultado en el texbox 1, este resultado seria mostrado en textbox2 pero de la sigueinte manera por ejemplo Un mil Quinientos cuarenta y cinco con 85/100 Dolares Americanos, asimismo hay dos botones los cuales me gustaria que pueda seleccionar el tipo de moneda a Nuevos Soles, y con el boton enviar a excel se lance los resultados las celdas indcadas en el adjunto (estan resaltadas en amarillo), seriaposible me puedan ayudar con ello po…

Buenos dias amigos, avanzando con mi formulario de suministros me encuentro con el error de que no se encuentra el objeto he configurado un segundo userform "UserForm2" el cual se activa cuando hago clik en elemento del LISTBOX " LBProductos" y me permite escribir la cantidad del producto que deseo agregar. Hasta ahi funciona Pero al seleccionar el Boton "CONFIRMAR", para cargar la cantidad de ese producto seleccionado en el UserForm1 me dice que no se encuenta el objeto, y no encuentro la forma de resolverlo. La secuencia seria: _1 busco el producto en el USERFORM1, al hacer doble click sobre el producto -2 se act…

Hola amigos del foro: Explico: con este código realizo la operación sencilla de sumar los valores de varias cajas de texto dentro de un formulario en Excel, el resultado lo proporciona en formato número, la problemática lleca cuando en cualquiera de los textbox se incluyen decimales, ejemplos: si en los textbox a sumar existen valores como: 4000 + 500 + 350 + 250, el resultado lo muestra con el formato aplicado, sin embargo a momento de incluir decimales: 350.35 + 400.28 + 382.34 + 1500.36 el resultado lo muestra de la siguiente de manera 2633,33, por lo que agradeceré me puedan ayudar a corregir este error, ya hice prueba con "cdbl" en lugar de "val" y no logro corregi…

Hola a todos Tengo una duda, hice un formulario (una especie de planilla) y una de las preguntas es escribir en una textbox Por cuestion de ahorrar espacio en el formulario, el usuario deberá hacer clic a un boton tal que abrirá otro formulario donde va a ingresar los datos en la textbox El problema es que cuando una vez que termine de ingresar el texto y cierra el 2do formulario(donde está la textbox) y lo vuelva abrir para revisar(por ejemplo), el texto que escribió desapareció. Quisiera que el texto se mantuviera hasta que el usuario le de clic al boton ¨agregar datos¨ Ajunto el archivo 1prueba.xls

Hola Buenas! Tengo un problema con un textBox que no se como acceder a su valor desde VBA, pasa lo siguiente tengo un formulario que una vez rellenado quiero pasar los datos a unos textbox que estan en una hoja excel no estan dentro de un formulario, normalmente cuando estan en un formulario la forma de acceder es "nombreFormulario.TextBox1.Value pero el textbox que tengo en una hoja excel no puedo acceder a el podrian orientarme por favor. un saludo

hola como podria en una hoja excel proteger celdas y el textbox dejarlo habilitado para la entrada de datos? si protejo la hoja seleccionando modificacion de objetos no me deja escribir en el textbox. ruego vuestra ayuda , gracias. TARIFICADOR (1) (1).xlsm

Buenas tardes estoy aprendiendo esto de Macros y VB, estoy haciendo una aplicación que capture desde una macro e inserte los valores en una hoja de excel, la verdad es que ahí la llevo solo que cuando llego a un TextBox que debe llevar mucho texto y meto mas de 910 caracteres me marca error 1004 en tiempo de ejecución, error definido por la aplicación o el objeto. Buscando y buscando en Internet no he encontrado como hacerle para hacer funcionar esto, lo que me interesa es que 2 textbox puedan capturar un texto ilimitado sin marcar error o algo que los sustituya. el código es el siguiente (aclaro que lo he copiado y modificado de internet): Private Sub CommandButton1…

Tengo un userform que me registra visitantes el cual tienen un textbox que lleva el consecutivo de la cantidad de visitas que ingresan ,los datos de la userform son ingresados al Sheets(registro de visitas) pero no e logrado que este textbox tome el ultimo dato registrado en la columna consecutivo y le sume 1 a la cantidad existente y este se refleje en el textbox al activar el formulario, el problema es que el rango siempre va hacer la ultima fila del libro con los datos y este va a variar con los nuevos registros . Sub Incrementar() Range(" ").Select ActiveCell.FormulaR1C1 = Range(" ").Value + 1 End Sub [/CODE]

Hola a todos!!! Les comento, tengo un formulario que tiene varias TextBox y un Botón de Comandos para insertar datos en una hoja. Lo que necesito es que una de las TextBox solo admita ingresar los datos de la siguiente manera: 1- Sólo se puedan ingresar 6 caracteres. 2- Los primeros 3 caracteres sólo puedan ser letras mayúsculas. 3- Los últimos 3 caracteres sólo puedan ser números. He buscado en el foro y he encontrado como hacer que admita sólo números, también para limitar el número de caracteres, o para que se ingresen sólo mayúsculas, pero no he encontrado cómo hacer una combinación de los 3 para un solo TextBox, como en mi caso. No se si es posible, pero desde ya…

Alguien me podría apoyar con el código para que en un textbox de un userform no se repitan caracteres repetidos. Ejemplo si al empezar a escirbrir la primer letra es una L al escribir la segunda ya no me permita usar dicha letra, y al escribir la tercera me impida usar las dos anteriores Cabe mencionar que solo serán máximo 3 caracteres los que se usaran en el textbox. De antemano gracias