Intento abrir un archivo CSV con una macro y quiero cambiar los paramentros de TextFileColumnDataTypes. hice una macro con la que a través de las caracteristicas de cada columna puedo incluir en una variable los parematros que necesito, pero al abrir la QueryTables.Add, no se como suplir el array. Los datos que incluye la variable son: MyVariable = "4,2,2,2,1,2,1,1" With ActiveSheet.QueryTables.Add(Connection:= _ ImpFile, Destination:=Range("$A$1")) ' .CommandType = 1 .Name = "salidas_merc" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True …

Estoy generando macro para actualizar automáticamente pero al tratar de ejecutar el codigo me arroja un error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto. El código que estoy utilizando es el siguiente: ActiveSheet. PivotTables("resumen"). PivotCache. Refresh Gracias por una respuesta que me ayude a solucionar este error

muy buenas tardes alguien me podría ayudar con mi formulario por favor, tengo un formulario que contiene un listbox en el cual me muestra todos los datos de una tabla, también tiene 4 combobox con los cuale quisiera hacer filtros con cada uno, pero buscando he buscado en Internet filtros con conbobox y solo he hallado 1 que me pareció que funcionaria, pero no lo hizo, el combobox que filtra fechas solo me deja el listbox vacio los combobox filtran fecha, sección , detectado y el ultimo por hora, pero ese ultimo no lo necesito por el momento solo los otros 3 que mencione primero espero que que me puedan ayudar y gracias de ante mano PRUEBA3.0.xlsm

HOLA BUEN DIA, QUISIERA SABER SI ALGUIEN CONOCE ALGUNA SOLUCIÓN PARA EL PROBLEMA QUE ESTOY PRESENTANDO resulta que estoy redireccionando con algunas teclas a celdas especificas en mi hoja de trabajo, para ello uso el sgte cod vba cuando la hoja este activa Private Sub Worksheet_Activate() Worksheets("COMPRAS").PivotTables("TablaDinámica2").PivotCache.Refresh Application.OnKey "{ESC}", "IR_A" Application.OnKey "{ENTER}", "introLIQ" Application.OnKey "~", "introLIQ" Application.OnKey "{TAB}", "tabuladorLIQ" End Sub y cuando se desactiva la hoja vuelvo todas las teclas a su funcionamiento normal con este cod …

Buenos dias, tengo una tabla que en la columna A tiene datos de metrajes que se en algunas ocasiones se repiten correlativamente ya que es una tabla normalizada. Necesito recorrer la columna A y cuando encuentre varias filas con igual metraje, en la columna C empiece a llenar desde 0 a más, dependiendo el número de filas con igual metraje. En caso no se repita el metraje deberia llenarlo con O automaticamente. Adjunto excel para mayor claridad. Muchas gracias por su ayuda. MarielaLilianEjmDatos.xlsx

Buen día compañeros, acabo de entrar a un nuevo trabajo y me pusieron temporalmente a programar en vba ya lo he hecho antes pero no soy un programador como ta por lo que me he topado con algunos problemas. En esta imagen utilice el grabador para general mi tabla dinámica mi problema es que me pone esa referencia especifica, como yo requiero una plantilla en la que los usuarios pegaran datos y ejecutaran la macro necesito que ese rango sea variable, pero ya utilice range y cells y no me funciona. Algún otra idea

Necesito transformar una planilla de registro de servicios bajo selección automática,algun prototipo porfavor,gracias!!! Adjunto mi planilla para convertirla Precios 2020 HP.xlsx

Buenos Dias. Mi nombre es David, y soy nuevo en esto, necesito me ayuden tengo una macro que depende el usuario que se ingrese se activan las celdas para ese usuario, adicional a esto tengo un optionbutton donde escojo varias opciones, pero lo que necesito que el optionbutton se active o sea visible dependiendo el usuario ingresado, espero me pueda colaborar. Saludos

Hola a Tod@s. Necesito ver si me podéis ayudar, la idea es hacer una Macros donde me pueda Borrar los dos últimos Rangos ocupados a partir de la Fila 218 de la Hoja1, según el ejemplo, los primeros son CA218:CB424 para ya después dar clic en la Macros5. He adaptado una Macros que tiempo atrás me facilito el Amigo @Gerson Pineda pero no se ejecuta, supongo que he trasladado algo mal a esa Macros, pero no le encuentro el error. En el ejemplo que subo muy pequeño está sombreado en Amarillo ese primer Rango a Borrar en la Hoja1. Agradecido de antemano por sus respuestas. Un Saludo. Lázaro PRUEBA-1.rar

Hola Quiero saber cómo puedo hacer una macro para el siguiente problema que se me presenta. Estoy tele trabajando desde casa y no tengo otra posibilidad de ayuda que la vuestra. Tengo Hoja 1 y Hoja 2 En la hoja 1 tengo los datos ejemplo en B2,B3,B4,B5,B6,B7 En la hoja 2 tengo fórmulas que son recogidas desde la Hoja 1 es decir de B1 y genera 6 líneas de datos en esta con esa serie de datos. ( cada dato de la hoja 1 genera 6 líneas en Hoja 2 ) Necesitaría que copiaría estas 6 líneas, tantas veces como datos tenga en B la hoja 1. Si hago un copiar, no me funciona ya que la tener 6 líneas del las formulas en el que esta B2 me va al B7…

Hola. Estoy haciendo un macro para copiar 4 datos de 500 ficheros pdf editable, siempre en la misma posición del pdf, y pegarlos en un excel. El problema que estoy teniendo es moverme por el pdf. Lo estoy haciendo con SendKeys mediante "+^F" buscando el texto anterior a la cadena de datos que quiero y me funciona el buscar, pero no soy capaz de seleccionar el dato que necesito para poder copiarlo. ¿Alguien puede darme alguna pista?

Hola a todos, Tengo una excel con varias lineas que voy rellenando con los consumos de carburante de cada usuario y con su dirección de mail para enviarles un correo copiando su línea que aparece en el cuerpo del mensaje, me ha estado funcionando pero de repente me da un error, "Se ha producido el error '1004' en tiempo de ejecución: Fallo en el método 'EnvelopeVisible' de objeto '_Workbook' Adjunto la macro que utilizo Muchas gracias por la ayuda

Hola, tengo una consulta relacionada con la numeración de Botones. Al crear un Botón (al que luego asigno un Macro), este asume el nombre "Botón 1", el siguiente "Botón 2", etc ..... Por la estructura de de mi hoja, una macro borra estos botones y luego los vuelve a crear. El problema es que los nuevos botones tienen el nombre "Botón 3", "Botón 4", etc. Como esta operación la repito muchas veces, luego de un par de semanas, el nombre de los botones llega a "Botón 65536", etc., luego de esto, me arroja error, me imagino por que llegó a número máximo de botones. Existe alguna forma de "Resetear" o Limpiar esta numeración en algún momento, para …

Hola estoy organizando un torneo de futbol y tengo claro como quiero, el problema que tengo es pasarlo a excel, para que se automatize. ME podríam ayudar, dejo el archivo de lo que quiero. Primero hay una fase regular y luego hay otra de eliminatoria y que permite poner des del primero asta el último. Gracias plantilla lliga.xlsx

buenos días, no sé si será posible crear una macro para que a una hora determinada proteja una hoja y a otra hora la desproteja? gracias anticipadas.

Estoy tratando de crear una macro para ir almacenando datos en otro libro de excel sin sobreescribir los datos. Estoy utilizando esta rutina y no lo logro. No se cual es el error. Sub CopiarCeldas() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'Indicar el libro de Excel destino Set wbDestino = Workbooks.Open("C:\JORGE\PEDIDOS DE QUIMICOS\DATOS.xlsx") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Analysis") Set wsDesti…

Buen dia: Tengo la siguiente formula en mi libro =RESIDUO(SUMA(F2:F15)-1;9)+1 pero necesito que se ejecute dentro de la macro y no dentro de la celda como se encuentra. Como seria el codigo... Atte Gracias Reducir valor.xlsm

Buenos días, tardes, noches compañeros Hoy vengo con una duda que no he podido encontrar solución, en internet o en el foro. La consulta es la siguiente: estoy tratando de realizar una macro para insertar de manera automática una "Validación de datos con lista desplegable", con números enteros, la macro que he hecho, basándome en lo que he encontrado en internet y en mi poco expertís es la siguiente: With ActiveWorkbook With .ActiveSheet For iCo = 1 To 9 lCodigoEF = lCodigoEF & "," & CStr(iCo) Next iCo With .Range("C2:C1000").Validation .Delete .Add Type:=xlValidateList, AlertStyle:…

buenas tardes, Estoy haciendo una macro la cual necesito seleccionar varias combinaciones de checkbox pero me gustaría si existe algún código que pueda resumir el código ya que son muchas combinaciones. El archivo consta de 2 grupos de checkbox: Grupo1: 8 checkbox (que se pueden eligir todas las combinaciones, es decir, todos o solo 1, o 2 o 7, etc) Grupo2: 4 checkbox (Se debe elegir solamente 1 de los 4). Por tanto existen muchas combinaciones, por ejemplo: - 1 checkbox del grupo 1 con el checkbox1 del grupo 2 - 1 checkbox del grupo 1 con el checkbox2 del grupo 2 - 8 checkbox del grupo 1 con el checkbox1 del grupo 2 - 5 check…

buenas trades, tengo una inquietud, que comando se utiliza para que cuando corro la macro aparesca en la grafica que estoy modificando o utilziando. con el codigo Range("celda").Select queda en la celda pero necesito que quede en la gráfica. gracias de antemano.

Buen dia, quisiera saber como se llama o como puedo encontrar la opción para cambiar desde las propiedades esta linea punteada tipica que se genera en un boton cuando uno esta posicionado encima de el, adjunto una imagen para que se vea, quisiera que resalte el borde, ponerlo de otro color , quisiera saber si se puede y si se hace desde la misma ventana de propiedades como es el nombre. gracias

Sería posible mostrar todos los formularios de un libro en un listbox ? a ver si alguien me ilumina porque estoy totalmente nublado. Gracias

Hola buenas, estoy intentando pasar un listbox a una función que me sume los valores de una de las columnas del listbox, pero aunque tenga datos me dice que recibe null, que el listbox vale null. No puedo entender lo que pasa ya que el mismo listbox lo paso a otra función en el mismo método para ver si existe un valor introducido y si que funciona. Private Sub bnt_ADD_TQ_Click() If Me.txt_DESCRIPCION_TQ.Text = Empty Or Me.txt_PRECIO_TQ.Text = Empty Then MsgBox ("Te has olvidado de introducir algún dato.") Else If Me.lst_TIQUETS.ListCount = 0 Then Me.lst_TIQUETS.AddItem Me.lst_TIQUETS.List(Q, 0) = Me.txt_DESCRIPCION_TQ.Te…

Amigos, Buenas noches, por favor alguien que me pueda ayudar con lo siguiente: Tengo una hoja de ventas que tiene su fecha de emisión de la venta (voucher), sin embargo necesito acercarme a una realidad más exacta con las fechas de vencimiento. Basándome en condiciones debo establecer la fecha estimada de pago por parte del banco. lo he intentado hacer con fórmula y se volvió demasiado extensa mostrándome el error "ha ingresado varios argumentos para esta función", es por esto que estoy buscando la manera de hacerlo mediante macros. Tal vez alguien que pueda ayudarme desde ya agradezco. Saludos cordiales. Ejempl…

Hola pueden ayudarme con pequeño ejercicio de Excel que también se refiere a bloquear celdas especificas y pueda hacer esto con una macro quisiera que al momento de escribir en la celda D3 las celdas D5, D7, D9 queden bloqueadas o si escribo en la celda D9 las celdas D7, D5y D3 queden bloqueadas, de igual manera con las celdas D7 y D5. No se si me explico ISC 1.xlsx