Buenas tardes, tengo el siguiente problema con una macro en visual basic: Tengo unas hojas que al protegerlas le dejo habilitadas la opción de uso de autofiltros. Sin embargo, cuando uso esta función en mi macro con la hoja protegida me sale el error "Se ha producido el error 1004 en tiempo de ejecución: No se puede ejecutar este comando en una hoja protegida. Para usar este comando, desproteja primero la hoja (...). Puede que se le pida una contraseña.". He leído algunos de los foros donde para este problema sugieren que la macro desproteja la hoja, use la funcion de autofiltro y luego vuelva y la proteja. Sin embargo, la particularidad está en que mi libro está comp…

Buen dia alguien me puede explicar como hago para configurar 1 carpeta que tenga un archivo adentro de excel y que esta sincronizado con 2 maquinas en distintos lugares? Como se hace el dropbox, alguien me puede poner un ejemplo sensillo ya que soy novato es esto? Muchas gracias !

estoy tratando de realizar un filtro pero me he estancado en ejecutar el codigo de macro 3 y macro 4 que se tienen que ejecutar en la celda dn3 alguien me puede colaborar en solucionar ese pequeño problema para proceder con el codigo de filtro que ya esta hecho pruebafiltro.xlsm

saludos tengo una macro que me actualiza una tabla dinamica ubicada en una "Hoja2" pero la fuente de los datos esta en la "Hoja2" que es uan base de datos que se ACTUALIZA cada cierto tiempo. El problema es que el el parrafo rojo(abajo) me di cuenta que no me deja tomar datos de una hoja distinta a la hoja donde se ubicara la tabla dinamica. Que puedo hacer Sub Actualización_de_tablas_dinámicas() Dim rango1 As Range ActiveWorkbook.Worksheets("Hoja1").Select Range("A1").Select Set rango1 = Range(Selection.End(xlToRight), Selection.End(xlDown)) ''ajusta el RANGO ORIGEN de la tabla ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _ PivotC…

Hola @Antoni Gusto en saludarte. En un Post anterior vi esto tuyo que lo pasa a JPG Sub Export() Dim oWs As Worksheet Dim oRng As Range Dim oChrtO As ChartObject Dim lWidth As Long, lHeight As Long Set oWs = ActiveSheet Set oRng = oWs.Range("B2:H11") oRng.CopyPicture xlScreen, xlPicture lWidth = oRng.Width lHeight = oRng.Height Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight) oChrtO.Activate With oChrtO.Chart .Paste .Export Filename:="Case.jpg", Filtername:="JPG" End With oChrtO.Delete End Sub Existe la manera de hacer lo mismo pero a PDF? Gracias.

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

Estimados tengo problema para copiar de un ingreso de datos que hago por un useform, el cual ingresa informacion a una hoja (hoja1), posterior a eso dentro del mismo CommandButton1_Click() necesito que me copie alguna información de las ya ingresada a unas celdas de otra hoja para hacer un pequeño informe para poder imprimir y adjuntar en pdf el cual funciona, pero no me copia los datos que necesito estimados les agradeceria mucho su ayuda.- Inventario.rar Inventario.rar

Buen día Foro, Master Antoni para molestarlo nuevamente estoy modificando el formulario Buscar editar que es el mismo de Ingresar Datos, solo que le cambie el nombre a Buscar editar http://www.mediafire.com/file/qmcudvobtdnzxw7/ENVIAR_Haplox_Parte2.rar/file Estoy cargando en ListBox4 los datos guardados en la Hoja BASEDATOS, pero NO consigo cargar solo los datos de 1 solo cliente, me carga todos los clientes Deseo es cargar 1 solo cliente del ListBox2 (al hacer doble clic en listbox2) al Listbox4 para modificar los productos que se le cargaron al dicho cliente (solo que me traiga y me deje modificar los productos que tiene grabados ) https…

Buenas comunidad AyudaExcel Acá tengo este archivo de Macro Antonio, consiste en un buscador tipo Google , pero a la hora que quiero cambiar uno de los encabezados que abarcan el rango: B1:R1 , no se refleja en el Combobox. Es decir al cambiar el encabezado de la columna B "Cliente" por "Colaborador" en el ComboBox despegable sigue con la opción "Cliente" . Como puedo cambiar eso ? Gracias de antemano! Buscador tipo Google III.xls

Tengo un formulario, pero le falta la macros para implementar una pequeña base de datos simple. BASE 2 MMN.rar

Hola compañeros, Me preguntaba si existía la manera de modificar el tema de la cinta de opciones para que aparezca en color negro (u otro color) utilizando código VBA. Adjunto imagen para mayor aclaración... Ya sé que se puede realizar simplemente haciendo click desde "Archivo > Cuenta > Tema de Office..." Pero me preguntaba si se podía realizar desde el código VBA con algún método del objeto "Application" o algo así. La grabadora de macros además, no graba esta opción. Gracias por cualquier tipo de aporte. Un saludo.

Buenas, Tengo un archivo en el cual debo hacer gráficos, según cada valor único de la columna CLASE, en el excel que adjunto están 4 clases, estas se dividen en ESTACION, y esta en EPOCA, AÑO y FUENTE. Quisiera saber si hay una forma de generar estos gráficos automáticamente, son 32 clases en el archivo principal. Asimismo en el adjunto muestro el ejemplo de una sola CLASE. Muchas gracias Ejemplo.xlsx

Saludos investigando he encontrado macro para crear archivosm nuevos con las hojas de un libro, lo que deseo es crear solamante hojas seleccionadas por ejem si un crchivo tiene 10 hojas, necesito solamente crear las Hoja 1, Hoja 7, Hoja 4 Gracias

Buenas tardes Amigos tengo la siguiente consulta, tengo un archivo en donde si no se registran ciertos datos el no deja guardar o seguir llenando la información, pero cuando lo abro y no digito ningún dato y le doy guardar me sale la restricción y me dice que hacen falta datos, pero si omito este comentario y vuelvo a darle guardar me deja seguir. Igual sale al no diligenciar ciertos datos como la fecha de retiro la dejo en blanco y me salto la restricción y me deja guardar. no se por que al segundo intento me deja pasar. Gracias por la ayuda que me puedan brindar. Adjunto archivo. Formato Reporte Retiros Version 2.07.13.rar

Hola, Tengo el siguiente código para copiar varias hojas y pegarlas a otro libro, el libro Peajes tiene 58 hojas y quiero copiar todas la hojas en el libro Peajes Nuevos, con el nombre de hoja igualito. Pero no se como hacer lo que quiero en forma dinámica que me cree las hojas con el nombre y que me copie la información. En el List Box esta el nombre de la hoja. Mi libro peajes lo estoy bajando de esta pagina Portal INVÍAS - Colombia se llama Listado Tarifas peajes [/hr]With Workbooks("Peajes.xls") For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then With .Sheets(ListBox1.List(i)) .Range("A2:J" & .[…

aludos a todos, espero me puedan ayudar en este simple loop q quiero hacer. Les explico... en base a los datos plasmados en una tabla de excel debe de ocurrir un evento, que en mi caso es la apertura de un documento en una ruta y el copiado de sus datos al excel inicial. La tabla es la siguiente: Id Nombre Inicial Check Status Accion 1 KARLA HAVA KH FALSO En espera 2 CARMELO SCIARRA CS VERDADERO Respaldar 3 JOSE COLINA JC VERDADERO Respaldar y este es el codigo del macro Do While i <> 5 '<= cambiar este valor a 18! y la ruta debajo i = i + 1 Select Case Range("H" & (i + 12)).Value <= le sumo 12 a i porquer el valor se encuentra en la celda H13-14…

NECESITO AYUDA CON RESPECTO A HIPERVINCULOS EJEMPLO TENGO UNA LISTA EN UN EXCEL : 1 A 2 B 3 C 4 D 5 INFINITO Y UNA RUTA DE ARCHIVOS \\192.168.1.201\HOLA\LETRAS\ DONDE ESTAN LOS EXCEL A , B ,C , D , INFINITO CON EL MISMO NOMBRE DE LAS CELDAS , son archivos distintos. QUISIERA QUE MI LISTA(MIS CELDAS 1 A, 2 B, ....) RUTEEN A ESOS ARCHIVOS QUE TENGAN SU NOMBRE , YA QUE AL HACER CLICK EN 1 A ME HABRA EL EXCEL DE LA CARPETA \\192.168.1.201\HOLA\LETRAS\A1.XLS Y ASI LOS DEMAS = CON SU RESPECTIVO NOMBRE. GRACIAS ES ALGO DE VIDA O MUERTE GRACIAS

Buenas noches Estimados, llevo ya tiempo tratando de hacer esto y necesito que me den una mano el siguiente codigo me busca un archivo en windows mi problema es q necesito que lo guarde, no se cual es la propiedad para guardar cuando cierre mi formulario. Private Sub cmdGetFile_Click() Dim fd As FileDialog Dim ffs As FileDialogFilters Set fd = Application.FileDialog(msoFileDialogOpen) With fd Set ffs = .Filters With ffs .clear .add "Pictures", "*.jpg" End With .AllowMultiSelect = False If .show = False Then Exit Sub Image1.Picture = .SelectedItems(1) End With Exit Sub End Sub Gracias por la ayuda Prueba.zip

Hola a todos Hace bastante tiempo que ojeo el foro desde las "sombras", he aprendido mucho mirando posts y dudas de otra gente. He ido haciendo un excel para utilizarlo en campeonatos de fotografia submarina con algunas macros, carga automatica de nombre de imagen, apertura de ellas ,algunas combobox para listar especies de peces etc... Ahora quiero que copie en una carpeta las 5 fotos mejor puntuadas de los participantes, en este foro he encontrado varios post de macros para copiar archivos que he probado y funciona pero me gustaria desarrollarla un poco mas. Sub Prueba() Const DIR_ORIGEN = "[COLOR="red"]C:\ ... \CarpetaOrigen\[/COLOR]" Const DIR_DESTINO…

Hola amigos de AE. Buenas tardes. Tengo un inconveniente con una macro a ver si pueden ayudarme. Les explico 1. La macro del botón insertar fila, copia y pega la fila 5 en la primera celda disponible de la columna A, se van agregando los datos solicitados y se van insertando filas según sea requerido. 2. La macro funciona a la perfección si la fila 5 está en modo MOSTRAR. 3. Pero como la macro justamente va a copiar la fila 5, esta debe estar oculta para que no sea manipulada y se copie tal como está definida. 4. Aquí es donde está el problema. Luego de OCULTAR la fila 5 y ejecutar la macro, NO se copia la fila. Agrad…

Buenas tardes, Soy nuevo en este foro ya que me ha parecido muy interesante y me ha resuelto varias dudas, aunque tengo una de la que no sé como solucionarla. Verán, les adjunto un ejemplo de mi problema. Les explico, En una hoja excel tengo varios datos de clientes, el caso es que , como verán en el fichero adjunto, hay dos columnas, una con el numero asignado al cliente, y otra con la letra. La letra se asigna dependiento del valor del numero, la letra A se asigna si el valor del numero es entre 300 y 400. Y la letra H para números por debajo de 300. El caso es que puede haber errores como los resaltados en amarillo, y quisiera saber como hacer una subrutina en …

Hola buenas. Busco una Macro, ejemplo que comenzando en la fila 6 elimine las filas desde 6>12 salte 2 filas sin eliminar y continúe eliminado desde las filas 13>14 salte 2 filas sin eliminar y así hasta la fila ejemplo 1.000 O sea eliminar 7 filas saltar 2 sin eliminar y así hasta la 1.000 Saludos….

Buenas! estoy intentando armar una macro que me genere una serie de copias de un archivo, variando solamente el nombre del archivo (dado por el valor de una celda) y el contenido de una celda (dado por el valor de otra celda) la cosa sería mas o menos así: tengo una plantilla, llamémosla "archivo 1" de la cual deseo muliples copias en formato .xls llamadas "archivo 1 - 01-12-13", "archivo 1 - o2-12-13", "archivo 1 o3-12-13" y asi sucesivamente hasta completar los 31 archivos del mes, uno por día. Las fechas para las cuales la macro debe generar el archivo pueden estar definidas por un rango (01-12-13 - 31-12-13) o por una lista de fechas (no hay restriccion respecto a e…

Hola buen día a todos, Quisiera automatizar una serie de tablas las cuales tienen un nombre y un costo$, la idea es clasificar de mayor a menor TOTAL$ en una o unas tablas automáticas dependiendo del nombre, en este caso carros. Son 4 tablas(3 de costos y una de recompensa la cual se debe restar a esa de 3 costos para que dé el total). Gracias de Antemano Libro.xls

Buenos Dias a todos espero que puedan ayudarme y orientarme en un problemilla que tengo: Problema Tengo un archivo de excel con macros el cual lo tengo instalado en 34 instituciones diferentes, es posible que se pueda hacer un programa en vba que actualice el codigo vba, ejemplo: En el archivo de excel instalado tengo el siguiente codigo: Private Sub BuscarContra() Buscar = Buscar + 1 End Sub Pero debo de reemplazarlo por: Private Sub BuscarContra() Buscar = Buscar + 5 Buscar= Buscar +7 End Sub Es posible hacer una función o programa para que lo modifique automaticamente y no volver a copiar el archivo de excel en t…