buenas tardes a todos, he ido pidiendo ayuda y e logrado hacer bastantes cosas con un sistemita que me regalaron pero lo que quiero esta vez es poder hacer que mas de un usuario pueda ocuparlo ya que cuento con un servidor propio y no se como hacer xq no puedo compartir el libro xq tiene tablas me dice ojala me puedan ayudar adjunto archivo personal.rar

Buenas a todos, un servicio: Estaba leyendo un topic muy interesante que hacía referencia JoaoM en https://www.ayudaexcel.com/foro/threads/vinculacion-de-contrasena-de-acceso-y-lista-para-regla-de-validacion.38016/ , pero que lastimosamente se ha cerrado por abandono, del cual lo estoy adaptando a un archivo mio, pero que la estructura de la hoja “Autorizados” difiere sólo en una columna adicional a la que yo la nombro como “Tabla_usuarios” y que contiene las siguientes columnas: ID, USUARIOS, USUARIOS_NOMBRES, AREA_NOMBRES, PASSWORD y PERFIL y he reemplazo las celdas que nombra el código B12 y B14 por I2 e I4 respectivamente. Lo que sucede que me aparece una alerta: “Se…

Hola a todos: Estoy intentando realizar un programa para dar una mayor Seguridad a las Macros. Hasta ahora solamente he añadido lo siguiente: Comprueba si existe una hoja llamada "hSeguridad". La Seguridad es a través de un PEN-DRIVE. Cada usuario tendrá su pen-drive y tendrá acceso solamente a las hojas que el Administrador quiera que use. Se creará un código para evitar que el usuario renombre las hojas, cree nuevas hojas e incluso que las elimine. Se usará la llave USB del Administrador para proteger las macros. (Solamente el tendrá acceso a ellas) Me gustaría a ser posible me deis más ideas para que la seguridad de nuestras macros sea mayor y mejor. …

muy buenas a todos, gracias a @Macro Antonio, he podido ir haciendo un pequeño sistemita, lo que necesito es poder en el ingreso de datos agregar la imagen de cada persona, asi tambien que aparezca cuando use el buscador, y por ultimo agregar un boton en la parte de modificar empleados para que al presionar me envie a ese empleado a otra hoja del libro y lo borre de la hoja en la que estaba. dejo el archivo adjunto a me olvidaba existe la posiblidad de poder compartir este libro para que se use en una pequeña red¡??? de ante mano muchas gracias personal.rar

hola, amigos de ayudaexcel reciban un cordial saludo he traído este nuevo tema para haber si me ayudan, en la hoja sale lo que se necesita saludos Categorias.rar

Hola muy buenas tardes amigos, soy nuevo en esto de los foros, me gustaría realizar un filtro de varias celdas pintadas de un solo color, el filtro quisiera realizarlo con una macro pero no me queda.

Hola expertos, Me gustaría hacer una macro que al seleccionar varios rangos (de manera diferente cada vez) se copiaran/pegaran valores en la misma celda. Las celdas seleccionadas contienen formulas, pero me gustaría convertirlas a valores. Lo querria hacer todo de una vez. Por ejemplo El usuario seleccionaría el Rango A2, B2:C3, D4:D7,... y al pulsar un boton que estos rangos/celdas se copiaran y pegaran a si mismas con valores. Es posible? Muchas gracias!

Buenos dias. Revisando los aportes, particularmente en este que es de [uSER=46507]@Macro Antonio[/uSER]: https://www.ayudaexcel.com/foro/threads/numerador-de-documentos.13521/#post-67345 Este aporte lo aplico desde hace un par de años, pero como todo va evolucionando, me ha surgido una duda la cual describo a continuacion y saber si es posible lo siguiente: Este aporte funciona para enumerar una por una hoja, si lo que pretendo es enumerar varias hojas a la vez, como hacerlo con este mismo aporte. Gracias y saludos.

hola alguien me podría ayudar tengo una macro que me genera mi archivo txt, en la unidad d:\ con el nombre según celda j5, lo que quiero ahora es que ya no me guarde en la unidad d:\ sino que me guarde mi archivo según la celda l5 ahí esta la ruta que quiero que me guarde mi archivo. Sub GenerarTexto() Range("o8").Select Open ("d:\" & Range("J5").Value & ".txt") For Output As 1 captura: Print #1, ActiveCell ActiveCell.Offset(1, 0).Select If ActiveCell = Empty Then GoTo cerrar GoTo captura: cerrar: Close #1 Range("p5").Select End Sub

hola muy buen dia a todos y feliz inicio de semana, y muchas gracias de antemano al foro y a todos los que de alguna forma me han ayudado. ya tengo mi archivo terminado con macros ya todo funcional ahora mi pregunta es la siguiente: como puedo usarlo como una plantilla ya que lo mismo que le hice al archivo es repetitivo o sea cada semana hay que hacerle lo mismo pero con diferentes datos en las filas a veces pueden ser 100 casos y a veces 500 mas o menos. saludos a todos

Macro para convertir en número sólo en una columna Buenas a todos: Ante todo felicitar por tan excelente foro que contribuye mucho para usuarios como yo, ávidos de aprender cada día. Tengo este código que hace que desde la hoja “Formulario_pantalla”copie algunas celdas y rango a otra hoja llamada “Kardex”. En realidad lo hace todo bien a excepción del copiado de la celda AJ5 (=TEXTO(AF3,"000000") de la primera hoja mencionada a la otra hoja a partir de la celda A4 donde aparece el icono de advertencia “El número de esta celda tiene formato de texto o va precedido por un apóstrofo” y luego manualmente tengo que convertir en número. Entonces por favor necesito el código…

Buenas tardes, a ver si me podéis echar una mano porque estoy acabando con mi paciencia. Estoy haciendo una macro sirviéndome de las librerías de ADO, y tengo un problema en una sentencia SQL que no sé cómo resolver. No sé si el problema viene dado por el tipo del campo en la hoja excel o en la propia sentencia SQL. Me gustaría coger los campos que tienen un valor superior a 1000 y la siguiente instrucción, me falla: SQL = "select count([APPThroughputUp]) from [LLAMADAS$] where [APPThroughputUp] not in ('-') AND [APPThroughputUp]> CInt(1000) '" La instrucción se ejecuta pero no filtra bien, cuenta todos los campos y no sólo los que son mayores que 1000. ¿Alguna …

Buenas, necesitaria ayuda con el siguiente codigo: If ComboBox1 = "Ingreso" Or ComboBox3 = "Efectivo" Then Cells(39, mes).Value = TextBox1.Value + ActiveCell.Offset(35, 0) End If If ComboBox1 = "Egreso" Or ComboBox2 = "Efectivo" Then Cells(39, mes).Value = Cells(39, mes).Value - TextBox1.Value End If Esta en un formulario con tres combobox y un textbox. La operatoria que busco es simple, si en determinado combobox hay una palabra, el dato del textbox se suma o se resta al valor de una celda. El problema me surge cuando en el combobox1 pongo Egreso, ya que no me hace la resta. Agradezco a quien tenga tiempo e intenciones de ayudarmeee.....

Buenos días a todos: Me ha surgido un problema con una conexión OLEDB y la verdad no sé a que se debe. Es una pequeña aplicación en Excel que utilizan varias personas. Tengo una tabla que debo actualizar con un documento Excel, el formato del documento siempre es el mismo pero la ruta cambia. Por lo que el código utiliza un getopenfilename para obtener la ruta del documento. Funciona sin problemas. El código crea la conexión la refresca y luego la elimina, también funciona sin problemas. Sin embargo a veces, a pesar de que el orden de los campos es el mismo en el rango de origen y en la tabla de destino, el orden de los campos se altera en el destino. Digamos que an…

muy buen foro busco ayuda con macro que copie y pegue de una hoja a otra. ya tengo un macro pero quiero que justamente copie abajo de donde copie lo anterior y no se borre lo anterior y así sucesivamente. es un archivo como de 20 columnas y unas 600 filas.. pero cuando copio se pega nada mas como hasta el numero 220 y lo demás ya no lo copia de antemano gracias y espero haberme explicado..subo archivo de mi macro gracias macro copia pega a otra hoja.txt

Existe alguna macro que desactive las opciones de una hoja o todo el libro de: Mover o copiar Eliminar Color de etiqueta. “Tal vez me escriban pero si con solo PROTEGER LIBRO todo eso se resuelve”; pues si lo hace pero hay un problema mis macros no funciona y no sé por qué no funciona, me salen errores y si lo guardo en solo PROTEGER HOJA todo funciona bien. Tal vez alguien tenga o sabe alguna macro. No permitir agregar nuevas hojas Deshabilitar eliminar hojas; estos 2 últimos si pille macros para que haga eso y funciona bien. Entonces faltaría deshabilitar estas opciones: Mover o copiar. Color de etiqueta. Recuerden que la opción de …

Hola muy buenas Tardes! Quiero hacer algo que me facilite la eliminacion de algunas filas para no tener que hacerlo tan manual. Tengo este archivo que pose codigos de compañias y cuentas de gastos con lo ejecutado mensualmente, lo que quiero es una macro o codigo que me elimine de la columna C que tiene de titulo Ceco, todo las filas donde en esta columna se encuentren codigos que no sean estos: 171,175,177,178,179,181,232,233,235,263,288. Es decir que las filas que contengas los codigos que ya puse permanezcan y las demas se eliminen . Es posible? Cabe destacar que si el codigo se puede hacer, lo ejecutare para otra base de datos donde cambiaria el condicional de lo…

Hola buen día a toda la comunidad hace un tiempo me dieron el alcance de un proyecto que publique aquí mismo en este foro con programación macros ahora mis datos están colapsando por la innumerable información que se almacena en una hoja excel, me comentaron que en este caso debería usar una bd en access con conexión a excel para que no se torne lento y se pueda trabajar mucho mejor. tengo la estructura es decir el bosquejo me falta la programación. Créditos a mi amigo: [uSER=133908]@bigpetroman[/uSER] (por la gran ayuda de la realización del proyecto) adjunto BD access (aquí tengo 05 registros pero el peso es de 10 mb) https://www.dropbox.com/s/rnfe4ly1bagca6t/ugelsul…

Buenas noches, resulta que tengo una PC con unas 60 macros y sus respectivas fichas, grupos y botones en la cinta de opciones. Como cambié de PC, intenté exportar todo esto exportando la cinta de opciones y copiando el archivo personal.xlsb a la otra PC pero los botones no encuentran las macros porque buscan claro, la dirección antigua en la otra PC (otro usuario) ¿Cómo podría exportar de forma correcta mis macros y la personalización de la cinta de opciones a la otra PC? Les agradecería su ayuda.

Estimados del foro, Tengo una hoja a la cual cambia de estado: 1. Entregado 2. Revisado 3. Terminado La idea es insertar una imagen e identificarla: select case cells(1,1).imageMso case is isempty() msgbox "Activa" case is = "Spelling" msgbox "Entregado" case is = "FileStartWorkflow" end select [/CODE] Inicialmente debo inserta la imagenMso en la celda para clasificar: [CODE]cells(1,1).select with selection .sharpe="imageMso.Spelling" end with [/CODE] O algo asi. La pregunta maestros: Se puede hacer? Alguien me puede guiar? Muchas gracias.

Buenas Tardes Chicos, Tengo el siguiente código el que ejecuta una consulta sql de una base de datos de oracle, esto lo realizo 5 veces al dias, es solo para ver los movimiento de algunas personas. El problema es que cada ves que la ejecuto me pide la contraseña de la base de datos, lo que pasa que quiero que al momento de ejecutarla me arroje los datos enseguida al excel y no esperar que tenga que meter la contraseña cada ves que le haga una consulta............ y lo otro es que he trato que en esta parte específicamente : "Select pam_nfolio N_PAM,afil_Nrut RUT_AFILIADO from PAM Where afil_Nrut=8959637") , hace referencia que busque al codigo:8959637 , pero lo que h…

Me gustaría que me ayuden tengo un form de un gran experto(Gerson Pineda) pero como el dijo que podemos readucuarle para nuestro uso y eso estoy haciendo pero en el columna "Legajo" me gustaria ingresar fechas y que claro en textbox de "Legajo" filtre fecha asi mismo la columna "Categoría" ingresar datos alfanuméricos para poder filtrar estos igual por dicho textbox "Categoría", no se si es mucho pedir. Yo se que sería lo lógico que el Experto dueño de la aplicación lo haga pero creo que hay otros expertos que pueden modificar este código. Gracias al experto Gerson por compartir esta aplicación y de antemano gracias a quien lo pueda modificar y darnos una mano yo se que m…

Buenas noche se puede hacer que se tome una foto en google earth y se lleve al excel automáticamente o algo parecido el que me pueda ayudar se lo agradeceria gracias

Buenas noche yo se como insertar una imagen, se como hacer si tengo 6 cuadro en diferentes sitios colocar por medio de un botón en programador buscar la imagen asignar a cada cuadro una imagen, pero no que no se es como crear una macro con imagen y colocar un botón que le de siguiente o atrás de una imagen asi como cuando están viendo las imágenes en microsoft office picture manager que le dan a siguiente y como otros programas quien me pueda ayudar se los agradecería mucho

Hola buenas tardes, necesito me ayuden a completar este desarrollo por favor. Tengo una Macro que me genera el codigo QR y la pone en la celda correcta sin problema. El detalle esta en que si no estoy conectado a internet y abro el archivo de excel la imagen no se visualiza solo dice "No se puede mostrar la imagen vinculada". Lo que necesito es que al bajar la imagen se salve en C:\ y despues jalarla a la hoja de Excel como imagen para que siempre que abra el archivo de Excel se pueda visualizar. Gracias y espero se pueda hacer. 'recorre la columna B hacia abajo hasta el final donde encuetra datos. Sub Test2e() 'Seleccionar celda B2, *primera línea de datos*…