Hola, otra vez de vuelta en este excelente foro; ahora tengo una duda, estoy manejando muchos datos en una solo columna es un ID que se compone de 8 digitos los primero 4 digitos son iguales los restantes 4 cambian, lo cual hacer filtro para cada columna me es muy dificil, opte por hacer un combobox que me muestre estos datos: 1948 1931 1905 1871 Si por ejemplo selecciona el 1948 me gustaria que se fuera a buscar a la hoja todos aquellos ID que comiencen con ese codigo y me los extraiga en otra hoja dentro del mismo libro junto con toda su fila es decir este ID se encuentra en A2 hasta A12000 entonces me extraeria los datos de la fila 2 B2,C2,H2 , etc... Desde ya m…

Estoy intentando visualizar otra hoja de excel mediante contraseña usando un UserForm el inconveniente radica en que la hoja 1 debe permanecer protegida (ficha revisar ---> proteger hoja) y la hoja 2 no debe estar protegida, todo funciona pero al momento de visualizar la hoja 2 y editarla también aparece protegida si no estarlo al parecer adquiere las propiedades de la hoja 1 para explicarlo mejor adjunto el archivo por si alguien me quiere ayudar de ante mano muchas gracias. ejemplo.rar

Hola. Pues mi duda consiste en tratar de utilizar (si es que es posible) la función: Cells.Find(What:= condicion1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate[/CODE] Esto funciona correctamente, pero solamente cuando se tiene una condición, y yo quiero hacerlo mediante la busqueda de 3 condiciones Estoy ocupando un userform donde mediante 3 textbox escriben las condiciones para que sea mostrada toda la información. [CODE]Cells.Find(What:= (condicion1, condicion2, condicion3), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows…

Buenas, Lo primero decir, que me parece genial este foro, que hace poco que empecé con esto de las macros y de la programación en VBA y me habéis ayudado mucho leyendo el foro. Mi problema es el siguiente; Resulta que tengo un libro en excel PERSONAL.XLS donde tengo 3 botones de macro creados. Cada uno con su código y bien enlazados a cada botón. A mi en mi usuario me funciona perfectamente claro. Pero la idea es que estas macros le aparezcan a el resto de usuarios de la empresa. Para ello creamos un recurso compartido (una carpeta en red) llamada Macro y ahí he metido el archivo PERSONAL.XLS y el archivo Excel11.xlb que es la barra de herramientas con los botones. E…

Buena tarde, estimados tengo el siguiente código el cual tiene dos recordsets, el primero corre sin problemas ya que llena las tablas temporales y ejecuta el SP, el problema que tengo es que en la clausula Where del segundo recordset necesito utilizar la variable que declaro en el primer recordset. alguno tiene idea de como se hace esto. Gracias Cells.Clear Dim oConn1 As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Set oConn1 = New ADODB.Connection oConn1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Contraseña.Text & ";Persist Security Info=True;User ID= " & Usuario.Text & "; Initial Catalog =" …

Estoy usando una macro de button y otra de un textbox, al momento de proteger la hoja no me deja ejecutar ninguno de los dos

buen dia tengan, de nuevo por estos lados con la interrogante de como puedo usar toda lo hoja de un libro ya que me da error el formulario cuando tengo demasiados datos (arriba de los 1000). La manera y forma en que esta hecho el formulario me gusta pero no logro encontrar el error de ¿porque no puedo usar toda la hoja?, principalmente cuando le doy buscar un dato, me podrian ayudar a poder utilizar bien este formulario para poder meterle la cantidad de datos que contiene la hoja (xfd por 1048576). espero sus amables aportaciones y de antemano gracias. todalahojaconlistbox.rar

Buenas tardes, Estuve averiguando como cargar gifs en mis formularios ( con la funcion Webbrowser..etc) no tuve problemas hasta ahi, pero en realidad quisiera utilizarlo de fondo de pantalla del formulario, asi q al agrandarlo del tamañao de mi formulario, insertarle botones y ejecutarlo, mas alla que el tamaño del gif no coincide q no me preocupa por ahora, no figuran los botones, como si estuviera el webbrowser por encima de eso.... hay alguna manera que quede de fondo ? gracias

hola resulta que cree esta funcion en un modulo Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnComputerName() As String Dim rString As String * 255, sLen As Long, tString As String tString = "" On Error Resume Next sLen = GetComputerName(rString, 255) sLen = InStr(1, rString, Chr(0)) If sLen > 0 Then tString = Left(rString, sLen - 1) Else tString = rString End If On Erro…

Hola a todos! como estan? Nuevamente yo aqui, construyendo otro proyecto y trabada hace varios dias en un punto de un userform En mi userform1 cuando se inicia me muestra la multipage index 0, la cual me busca en una base de datos colaboradores y volunntarios. Logre que los combobox de arriba, se carguen con valores unicos obtenidos de la tabla que esta en la Hoja2. Lo que no se como hacer, es que cada combobox me funcione como un filtro... por ejemplo si elijo el cBoxPais= Argentina, que el cBoxProvincia me traiga en la tabla todos los registros en provincias que sean de argentina o lo mismo con los otros combobox. no se si esta es la forma con…

Yo pedi ayuda en la confeccion de un formulario y ANTONI me contesto y me soluciono el problema, Crack total. Ahora bien, dentro de el listbox del archivo que adjunto "lo hizo antoni" quiero agregar tipo de comprobante y en la parte superior mes y año; la verdad que lo intente y fracase. Algun alma caritativa por ahi que me pueda dar una mano Recibos Antoni.xlsm

buenos dias a todos antes que nada esta pagina la eh venido consultado desde hace tiempo y es una de las mejores, esta es mi primera pregunta que hago en el foro espero me puedan orientar el problema es este, tengo un useform que estoy adapatando a mi necesidad pero al poner un macro de filtro me aparece los que tengo marcados como VENCIDOS pero en este filtro al darle doble click al nombre que aparece te deve desplazar todo lo que tiene ese cliente con sunombre esto es lo que no carga, espero que me puedan decir cual es el error y les agradesco de antemano su ayuda les anexo la funcion que no funciona y les adjunto el macro por si alguien le sirve espero que lo puedan…

buenas. he creado un tema en excel general por equivocación ya que creo que va mejor aquí. tengo el siguiente problema: 1- no puedo copiar de un userform"registrededades" el contenido del combobox "C7" al userform "comanda_general" con el mismo nombre "C7". 2- no puedo cargar en el combobox E7 del userform "Buscador_comanda" el valor de la celda seleccionada por busqueda hoja"basededades" celda C3. 3- no puedo ordenar las filas de la hoja"basedades" ya que el texto es alfanumerico con números y estoy trabajando con excel2003. Seria de gran ayuda indicarme la solución a estos problemas ya que me supera con creces. Formularios 16.xls

Estimados Apreciare su apoyo en el siguiente problema, cuento con un libro con 3 hojas las cuales la primera ("Base") me indica los datos generales de los articulos por codigo y diametro, la segunda (ingresos) me registra los ingresos (manualmente por fechas), y la tercera (salidas) me indica las salidas por fechas. Mediante un useform no se si se podria en la hoja "ingresos" que te solicite codigo del producto, fecha y cantidad, y luego de buscarlo pondria en la celda correspondiente la cantidad ingresada en el formulario, y si no encontrase el codigo te permita crearlo en la hoja "base" Adjunto archivo de ejemplo Se agradece el apoyo pregunta 1.xls

Hola, soy nuevo me gustaría que por favor me ayuden. Tengo un problema necesito que mi formulario coloque los datos capturados en la hoja actual y no solo en la la primera hoja aquí, ademas de un botón que aparesca para llamar al formulario al crear una nueva hoja, les dejo el archivo. captura VBA.rar

Queridos amigos, Aca en el foro me han ayudado para realizar un calculo de una comision segun criterio, pero estoy tratando que este mismo dato se pueda realizar a traves de un userform que hice y ademas que se visualise una tabla que esta en este libro. en el archivo adjunto va el userform creado...... Esperando de una buena acogida por favor. comision.rar

UserForm.Comobobox pasar datos a columnas según el titulo se coloquen datos uno debajo. Estimados. He venido a buscar vuestra ayuda con algo que me está rompiendo la cabeza. Tengo un UserForm donde ingreso unos datos a una hoja con varias columnas pero no siempre se llenan todas por lo cual necesitaría que se llene por fila uno bajo otro como base de dato dependiendo lo que se ingrese, el tema que cuando se graba a partir de la 3 fila se terminan grabando en la fila anterior sobre los datos que ya estaban ingresados. Adjunto archivo para que se pueda entender visualmente. Desde ya muchas gracias por su tiempo. Muy bueno el foro me ha enseñado mucho. ---------------…

Hola a todos. Anteriormente ya había trabajado en un archivo similar, pero me supero este en dificultad, funcionan la mayoría de las cosas que pretendía implementar. Aquí una pequeña explicación de como funciona y que me falta por hacer... 1.- Como iniciar el Userform? R= De click en la celda [A1] 2.- En el Userform Como se usa? R= En la parte superior izquierda esta el ComboBox2 [Cantidad Requerida] Donde se seleccionara la cantidad de unidades que se pretende capturar (tiene un máximo de 8 unidades fijas en el ComboBox), dependiendo de las unidades seleccionadas se bloquearan el resto de los TexBox de captura) FUNCIONA BIEN!!!, Después sigue el ComboBox1 [C…

Hola, tengo un userform con un ComboBox que al iniciar selecciono un item. se podria hacer que al seleccionar uno de esos item cargue en el TextBox1 otro item relacionado con el ComboBox. ejemplo: Seleccionar Enero y en el texbox1 ponga 31 dias. Que los datos no los seleccione de una tabla que los seleccione desde el userform. Gracias Saludos. Libro1.xlsm

Buenas tardes estimados, Quisiera saber si se puede compartir un archivo que contenga ingreso de datos a través de una userform por red local, la cual se pueda ingresar datos simultáneamente entre 3 o 4 personas y que guarde en tiempo real. de antemano gracias! Saludos

Muy buenas mis estimados , en esta oportunidad estoy comenzando con un proyecto de finanzas en el cual tengo 2 textbox con unas tasas a digitar y 2 opciones de boton , estuve trabajando con un codigo pero me vota error , y lo que necesito es ; que al ingresar las tasas en textbox1 y 2 y si escojo el boton TEA corra la formula (EA) y el resultado lo coloque en el label.4 y haga lo mismo cuando selecciono TMV corra la formula (MV) y el resultado lo coloque en el label6 . y mejor aun que el resultado en los labels salgan sin un boton de comando sino automaticamente se selecciona el boton. veo que tengo mas retos por delante en est…

Buenos días a todos. necesitaría ayuda con el codigo de un Userform que he creado para que en la pagina de empleados, me añada los datos de un alta nueva. Todo funciona bien, hasta que llega la parte final que ha de ordenar la lista de empleados por Turno, categoria y grupo. Lo hice en office 2007 en casa y funcionaba perfectamente, en el trabajo tenemos office 2003 y al ejecutarlo me da un error de codigo y no ordena la lista. Estoy aprendiendo a crear macros y mis conocimientos son muy limitados por lo que os pido ayuda. el codigo de ordenación lo vi en el foro y lo adapte al programa. Gracias por vuesta ayuda. Empleados.xls

Hola, Quisiera saber si es posible guardar el archivo con un Userform en el BeforeSave?, Tengo el siguiente codigo:<br><br>BeforeSave:<br><br> Private Sub workbook_beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)<div>Contraseña1.Show</div><div>End Sub</div><div>[/CODE] </div><br>Userform(Contraseña1):<br><br> [CODE]Private Sub Guardar_Enter()<div>CommandButton1.default = True</div><div>Pass = TextBox1</div><div>If Pass = "s" Then</div><div>TextBox1.Text ""</div><div>Contraseña1.Hide</div><div>MsgBox "Se guardo correctame…

Buenos días a todos, ya se hacer un MsgBox en ThisWorkbook ya se hacer un UserForm (como información) dentro de un programa, pero no se hacer Un UserForm en ThisWorkbook que arranque al abrir un Libro (Excel) dentro un programa ya tengo un Userform con el siguiente nombre: Private Sub UserForm_Initialize () aparte de decirme como lo hago, debo cambiar este nombre al UserForm nuevo ? Como siempre, muchas gracias

Hola, me gustaría poder colocar un UserForm en vez de MsgBox, pero en todos los sitios consultados son formularios, no encuentro ningún ejemplo de un UserForm solo para informar (como MsgBox) como puedo hacerlo ? y como se ejecute dentro de un programa ? (en vez de usar "F5" ? Gracias a todos