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*…

Esta permite que el form tome el tamaño según el monitor (pantalla) y resolución de este. Private Sub UserForm_Initialize() With Me .Height = Application.Height .Width = Application.Width End With 'Para controles en el form End Sub[/CODE] Para que los controles acompañen el tamaño (en proporción) del form, ¿Cuál seria en código? El form es este caso tiene TextBox, ComboBox, Label y CommandBottons

Que tal amigos, soy nuevo en este tema y me gustaría que me ayudaran con una macro que haga lo siguiente: que busque un valor numérico en un rango especifico, una vez que lo encuentre que me seleccione la linea completa con un color distinto para resaltarlo y que una vez encontrado si cambio de celda se quite el color y la linea quede nuevamente en el color por defecto, ademas que me avise si el valor buscado no esta en el rango especifico, este es el código que tengo hasta ahora: Sub buscar() valor_buscado = InputBox("Factura a buscar", "Busca folios") On Local Error Resume Next If valor_buscado <> "" Then Range("D5:d100000").Select Selection.Find(What:=valo…

Buenas tardes, Les escribo porque esto me tiene loco!! .. Tengo 2 elementos calculados en una tabla dinamica mas sin embargo son muchos datos en etiquetas de filas los cuales quedan en 0 o en blanco y se muestran! No existira una macro que me ayude a ocultar esos valores en 0 o en blanco y que no me aparezcan en la tabla dinamica. Cabe destacar que los valores se dan por un filtro de tabla dinamica que se realiza en un panel de busqueda. Me podrian ayudar? no subo el archivo porque es muy pesado.

hola buenas tengo un cajon monedero que va un puerto usb del ordenador y querria crear un boton desde excel para poder abrir el cajon monedero o pulsando alguna tecla espero que me ayuden gracias

Buenas tardes, Espero no repetirme, antes de nada he buscado, pero me he podido saltar algo. El caso, esque intento scrapear una web llamada racingpost.com, y no consigo encontrar la forma de obtener las urls de los enlaces. Os paso el código por si alguien sabe la fórmula. Por otro lado, la url lleva un control de fechas, se puede automatizar? ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Racing() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.racingpost.com/horses2/cards/home.sd?r_date=2015-02-12&group_by=by_time", Destination:=Range("A8")) .Nam…

Hola amig@s: Como puedo copiar datos de una hoja que lo filtro por cliente a otra hoja de otro libro que esta preparado para recibir lo copiado, o sea de mi hoja 1 filtro por fecha y después por cliente, y solo quiero que copie lo visualizado, por ejemplo he filtrado las ventas del 03/01/2015 y elegi al cliente Dana tours , y visualiza desde la celda a25 hasta Q45 y solo quiero que de ese rango copie desde la celda d25 hasta la q45 a mi otro libro en la hoja que es fija como una factura y lo copie esos datos a partir de la celda B9. Gracias Saludos Jesús Hojas.rar

Hola en este Archivo se Requiere que al estar en la Celda Activa de la Hoja "Resumen", se vea en un Comentario Detalle de la Hoja "Trabajo", con Campo Común entre Ambas. EquipoZ.rar

Buenas tardes. Lo primero de todo es daros las gracias por aceptarme en el foro y pediros disculpas si ya está la respuesta en algún sitio. Mi problema es el siguiente. En una hoja con muchas fórmulas y datos, diariamente importo valores de texto desde la última fila vacia a partir de la columna F (imaginemos que los nuevos datos van desde la celda F1200 hasta la celda K1500, es decir 300 filas con datos nuevos en las columnas F G H I J K). Para que estos nuevos datos se procesen con formulas, tengo que copiar las formulas que son iguales en todas las filas desde la columna A hasta la E y pegarlas en el nuevo rango que tiene las celdas en blanco , (es decir, copio…

tengo un problema en la arquitectura de la macro, todo funciona bien hasta que intento bajar las filas hasta el A3, y lo trato de configurar y no hay caso, bueno ese es un problema , pero también me gustaría que filtre los tipos de archivo sin necesidad de incluir fechas o buscar por nombre sin la necesidad de fechas, la verdad lo necesito para un libro de mas de 87 paginas pero acá les va una idea el que es "funcional" es ORIGINAL 1 y el no funcional es OBJETIVO 1 gracias de ante mano ARCHIVOS.ZIP

Hola a todos, Actualmente, tengo la siguiente macro: Sub Macro1() Dim i, ultima As Integer ultima = ThisWorkbook.Sheets.Count For i = 1 To ultima ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\RootCapital\Desktop\Test Reports\ " & i & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=i, To:=i, OpenAfterPublish:=False Next i End Sub Esta genera automáticamente un pdf para cada tab en mi documento de Excel, los pdf son nombrados 1, 2, 3, 4, etc. Cada pdf incluye sólo la primera hoja de impresión de cada tab, aún cuando algunas contienen 2 o 3 hojas de impresión e…

Hola a todos No se como hacer para que al abrir un libro cualquiera, pida una contraseña, entonces, si la contraseña es correcta, el archivo se puede editar y modificar como quieras, pero si la contraseña no es correcta, que se abra solo como lectura. No se si esto sea posible o no, o si alguien tiene otra idea que crea que me pueda servir, se los agradeceria. Saludos Sebastian.-

Hola, quería saber si alguien me podía echar una mano. Estoy intentando obtener en Visual Basic la distribución binomial para una n=5 y una p=0.2 pero no consigo obtenerla. Si alguien podría ayudarme se lo agradecería. Un saludo y muchas gracias.

Buenos días. Quisiera crear un checkbox que me ocultase o mostrase todas las filas cuya referencia empiece por 2, otra por 3....., pq si lo hago por rango de celdas al insertar una nueva fila tengo que cambiar todo el código de los checkbox. Un saludo y gracias checkbox.xls

Buen dia Mi problema es el siguiente, tengo un archivo donde manejo un listado de refacciones las cuales se pueden ver en un Useform, las tengo organizadas por equipo, pero al momento de abrir la plantilla (Useform) me aparece el listado completo. Quiero saber si al momento de aparacerme el listado se puede filtrar directamente en el listbox o tengo que poner un boton mas. Dibujos_Moldeo - Copy.zip

Buenas noches, estoy intentando crear una macro que haga lo siguiente: Tengo 3 grupos de celdas. Lo que quiero hacer es que al seleccionar celdas de uno de los tres grupos, copie los valores de las celdas seleccionadas y los pegue en la Hoja2 de forma ordenada y que además reconozca de qué grupo es y pegue el grupo al que pertenece en la cuarta celda de la fila que copia. El caso es que al ejecutarlo con el primer grupo funciona perfectamente, salvo que en la fila D donde quiero que me pegue el grupo, me sobreescribe los valores de grupo. Este es el código: Sub Macro3() Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 2)).Select Selection.Copy Workbooks.Op…