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…

Hola! cómo estáis? Me está sucediendo algo que no comprendo: Cuando en una macro se ejecuta la siguiente línea: Hoja2.Range("b7").Formula = "=iferror(index(Tabla1[nombre],match(1,((Tabla1[F. Entrada]<=$G$1)*(Tabla1[F. Salida]>=$G$1)*(Tabla1[Nº hab]=A5)),)),"""")" Hoja2.Range("b7").Formula = "=iferror(index(Tabla1[nombre],match(1,((Tabla1[F. Entrada]<=$G$1)*(Tabla1[F. Salida]>=$G$1)*(Tabla1[Nº hab]=A5)),)),"""")" en la celda en cuestión aparece esta fórmula: =SI.ERROR(INDICE(Tabla1[nombre];COINCIDIR(1;((Tabla1[@[F. Entrada]]<=$G$1)*(Tabla1[@[F. Salida]]>=$G$1)*(Tabla1[@[Nº hab]]=A5));));"") Es prácticamente igual que la que aparece e…

Buenas tardes, comento tengo un mini sistema desarrollado en el cual formate mi maquina y ahora me tira un error de compilacion..y hace como 4 años que hice este programa y no me acuerdo como solucionar este error.. el cartel dice Compile error: Variable not defined..y me selecciona una variable picker.width=72.. que estimo que es un datepicker que abre usado pero no se como agregar ese componente o libreria si alguien puede guiarme. muchas gracias

Buenos días, me gustaría que me echarais un cable con una plantilla. Necesito que en las celdas A1:B22, aparezca una previsualización de documentos pdf de una carpeta en concreto, dando la opción de que en las celdas A1:B1 se pueda cambiar entre los diferentes pdf de la carpeta, y en la A2:B2 se pueda escribir el nombre que quiero que el archivo previsualizado tenga, y así renombrarlo pulsando un botón de una macro. A partir de la celda C1 querría seguir viendo los datos que tengo actualmente, sin que la previsualización me impida verlos. ¿Es posible esto? Muchas gracias!

Hola Bue dia, tengo un problema con un formulario que estoy haciendo, el error es que a agregar los datos del combobox a la hoja activa mesale este error error de aplicacion 1004 en tiempo de ejecucion y no logro encontrar porque seproduce este error, pero los datos se agregan pero el error sigue saliendo. Y tengo otra consulta tengo un textbox que se llaman subparciales que su numero dependiente del tipo que yo seleccione en el combobox, hay algun codigo o alguna forma de que me recorra los textbox y me coloque en otro text box del costado llamado subp el numero del suparcial ejemplo 296 y en el text box que dice parciales me coloque la suma del importe total de todos lo…

hola que tal amigos recurro a ustedes para ver si me puede ayudar estoy haciendo una macro de buscador, soy nuevo en esto y ya llevo varios días:( tratando de terminarla le envió un ejemplo de lo que estoy tratando de hacer, al elegir la marca que aparezca el tipo de servicio de ahí el servicio y que en el cuadro de texto los productos que están en ese rango y que al darle seleccionar se copie con el botón de aceptar de antemano muchas gracias. EJEMPLO BUSCADOR DETALLADO.zip

Buenas a toso necesito saber como puedo cambiar esta formula: =SUMA(AE17:AT17)/CONTAR.SI(AE17:AT17;">-1")*0,45, en el caso de que estén vacías o sin datos el resultado final me muestre un valor de 0. Gracias.

Hola!! Necesito enlazar los últimos dos talleres con respectivos usuarios a la consulta, ya que lo he añadido en la primera hoja y no se me actualiza en la consulta. ¿Alguien podría ayudarme? Búsqueda de usuarios por edad.xlsm

Saludos a todos. Soy nuevo en este tema de programación VBA en Excel y solicito de su ayuda para resolver un pequeño problema. Desde una hoja hecha en Excel tengo un listado en la columna "A" que tiene diferentes valores que necesito se envíen a un programa en MSDOS y tomar algunos datos de esa consulta para ponerlos en las Columnas B, C, etc. Espero haberme explicado bien. De antemano muchas gracias.

Hola foristas. Hace un tiempo atrás Macro Antonio me ayudó a crear un formulario en el cual llenaba un ComboBox y un ListBox con la información que tenia en una Hoja. Lo modifiqué porque fui agregando varias cosas mas pero estoy perdido como turco en la neblina para acomodar el código a la nueva forma del formulario. El codigo es el siguiente: Private Sub Cat_Click()Dim Categoria As Boolean Ali.Clear If Cat.ListIndex < 1 Then Ali.ColumnWidths = "75;110;0" Else Ali.ColumnWidths = "90;0;0" End If For x = 2 To Alimentos.Range("B" & Rows.Count).End(xlUp).Row If Alimentos.Range("B" & x).Interior.Color = vbBlack Then If Cat.Text = …

buenas tardes amigos , tengo un problema al realizar una macro que realice una tabla dinamica tengo los siguientes datos. Nombre Nombre_Concepto Año Mes Valor MONTES DEL CASTILLO JAIRO ASIGNACION BASICA-SUELDO 2002 1 1225174 MONTES DEL CASTILLO JAIRO AUXILIO DE TRANSPORTE 2002 1 34000 MONTES DEL CASTILLO JAIRO AUXILIO DE ALIMENTACION 2002 1 50848 MONTES DEL CASTILLO JAIRO PRIMA ANTIGUEDAD EMP.PUBL 2002 1 67385 MONTES DEL CASTILLO JAIRO PRIMA TECNICA 2002 1 263412 MONTES DEL CASTILLO JAIRO AJUSTE FONDO SOLIDARIDAD 2002 1 16809 cuando grabo la macro para que me cree la tabla dinamica me genera el siguiente error agradezco cualquier ayuda para solucionar e…

Perdonar, pero necesito ayuda para elaborar una macro que imprima desde un botón una serie de tarifas que se encuentran en una misma hoja pero en función al resultado obtenido en una serie de celdas situadas en la misma hoja. Ejemplo: La hoja se llama "COND Y TARIFA" y tiene 19 páginas con distintas tarifas. A través de un formulario que he creado en otra hoja de excel del mismo libro, elaboro el presupuesto y asigno en ciertas celdas el resultado de "si" o "no", que hace mención a cada una de las tarifas que tengo en la hoja "COND Y TARIFA" y que son las que se deberían de imprimir ("si" se imprimen y "no" se omiten). En la hoja "COND Y TARIFA" recojo el resultado ob…

Hola a todos MacroLovers, Sucede que de vez en cuando me encargan reiniciar un servidor, al cual posteriormente debo cargarle una serie de comandos vía telnet por el puerto 23, lo cuál claramente toma tiempo, en consecuencia estaba pensando si será posible ejecutar alguna macro que a través de un combobox me pregunte la IP, para posteriormente enviar el listado de comandos en forma automatizada? Gracias,

Buenos dias a todos, Me encuentro con un problema sobre una plantilla que tengo creada para contestar a correos. Precisamente se trata de mantener el formato de la plantilla una vez que el cuerpo se pega en outlook junto con los CHECK BOX que tengo (una vez se pega el formato es caotico). Creo que al abrir el documento y hacer la prueba de enviar el correo os podeis hacer una idea de lo que ocure y no soy capaz de remediar. A la espera de vuestra ayuda os deseo un buen dia. Saludos, WORK DISPO.xlsm

Buenas tardes a todos, espero se encuentren bien de salud en estos tiempos de pandemia. He estado aprendiendo con el paso del tiempo como usar la programación VBA, uno de los temas que quiero buscar una solución en este momento es el de Automatización de Excel haciendo consultas, ingresar información, descargar documentos, etc. En un inicio usaba InternetExplorer, pero hay ciertas limitantes, además que es una forma que ya se está quedando atrás por algunas limitantes que tiene este método. Luego me pasé a usar Selenium que cubre mejor las acciones que buscaba, sin embargo, Ahora estoy en busca de una mejor opción para remplazar Selenium ya que si lle…

Buenas Tardes... Antes que nada, veo que este grupo de profesionales y no tanto (como es mi caso) es muy amigable y la verdad que son super serviciales a la hora de saldar mis dudas. Les agradesco mucho el tiempo que se toman en responder. Desde mi humilde persona les mando un abrazo grande. Debo decirles que le traigo otra duda. He creado una hoja donde pretendo que una macro haga lo siguiente: 1). Filtre datos en "Hoja1" en la Fila 1 y desde la columna A a la D 2). Que la Columna D siempre se filtre por la condicion "S/CUMPLIR" y que la C se filtre por el Primer dato que se encuentra en la "Hoja2" en A1. 3). Seleccione los datos en "Hoja1" desde A2 hasta el ultimo …

Hola Tengo la siguiente duda: Tengo un libro excel con distintos productos, estos productos se actualizan diariamente en un libro excel. Ese libro se tiene que compaginar con otro libro, que es el de 3 trabajadores, para que los trabajadores sepan cual son los nuevos productos que hay. En el libro de origen se actualizan los productos por fila. Hay 15 columnas con características propias de cada uno de los modelos. Los nuevos productos se van añadiendo a las distintas filas, siempre en la última que se haya escrito. En el libro destino sería igual,pero la única diferencia que son 16 columnas pq en la primera columna la (a) hay checkbox. Mi duda es la siguiente, ¿Se p…

Hola a todos! Tengo un problema. Me gustaría poder modificar una matriz. La idea es que según el rango que yo selecciono ( matriz), poder modificarla. Ejemplo, tengo una matriz de datos de números, y si es que la suma de los valores de las filas, y la suma de las columnas son iguales, que se modifique el valor de cada esquina de la matriz a uno definido por las sumas de las columnas y filas, ( lo que quiero hacer en concreto no tiene nada q ver con eso, pero es para dar una idea). Yo no soy un experto en VBA, por ahora he creado un par de funciones y procedimientos. Y para hacer esto se me había ocurrido hacer una función, pero tendría que devolver una matriz entera …

Necesito que haga un recuento de los numeros que pertenezcan a esta serie en la columna H, lo que pasa es que no aparece desde el primer termino Aqui esta la macro Sub macro09() Inicio = Val(InputBox("Ingrese el primer termino")) Do razon = Val(InputBox("Ingrese radio")) N = Val(InputBox("Ingrese numero de elementos")) Loop Until razon <> 0 And N > 0 And N = Int(N) Fila = 0 For x = 1 To N - 1 Inicio = Inicio + razon Fila = Fila + 1 Cells(Fila, "H") = Inicio Next End Sub

Buenas tardes, Estoy tratando de construir una hoja excel para identificar y corregir anomalías detectadas en la evolución de préstamos, de tal forma que mediante la información en (t-1), que se considera correcta puesto que ya ha sido anexada a datos histórica (por eso he marcado que son celdas fijas) y las celdas variables en t que se encuentran en la parte derecha, que son con las que excel tendría que ir realizando iteraciones hasta que se satisfagan las ecuaciones que se encuentran en los chequeos de la parte derecha. Mi idea, por tanto, es conseguir que excel fuera iterando con los valores de la columna E marcados en azul, que serían las celdas variables, …

Hola chicos, se que el tema que os voy a proponer es sencillo, pero lo estoy intentando y no me sale. Vereis, tengo un formulario donde tengo un textbox para introducir una fecha. Bien, me he instalado un complemento de excel que es un calendario, y lo he configurado para que me introduzca en el textbox, la fecha que seleccione previamente en el calendario, hasta ahì todo bien. Pero el problema està en que cuando le hago doble click sobre el textbox, que es el evento que he configurado para que salga el calendario, este sale pero debajo del formulario primero, y yo lo que quiero es que me salga encima. Si, lo se, el primer formulario deberia ser no modal para que el calen…

Buenos días, Tengo un formulario en VBA en el cual el usuario introduce 32 valores y el programa compara si hay una diferencia entre algunos de ellos mayor de diferentes parámetros. Tengo una función que pinta el fondo de las textbox de rojo o amarillo cuando se superan estos parámetros. Funciona perfectamente, pero cuando borro uno de los valores introducidos (por ejemplo porque me he equivocado al introducirlo) me salta el error 13 'no coinciden los tipos'. Soy consciente que es porque pasa de comparar dos números a un numero y un "null" pero simplemente quería saber si la función puede esperar a que haya un valor para compararlo y así no tener que rein…

Señores del Foro disculpen la molestia, pero tengo la siguiente situacion y requiero de Uds para solucionarla: Necesito una formula en excel o una macro que cuando yo digite en un cuadro de control de fomulario, el codigo del cliente, el codigo de la mercancias vendidas y la cantidad, me vaya acumulando las cantida por cliente, al frente del mismos y en la respectiva columna del articulo vendido. Adjunto Archivo de mjuestra. Cordial Saludo ARCHIVO PARA ENVIAR.xls

Buenas gente, Me he cambiado a la version 2007 del Excel, y he estado leyendo que no soporta esta función. He leído por ahí y no consigo aclararme, asi que he optado al final por pediros un cable. Esta es la sencilla función que utilizaba yo: With Application.FileSearch .LookIn = ThisWorkbook.Path .Filename = Hoja1.Cells(24, 11) & ".xls" If .Execute > 0 Then 'existe archivo = ThisWorkbook.Path & "\" & Hoja1.Cells(24, 11) Application.ScreenUpdating = False Workbooks.Open (archivo) Set xlsheet = ActiveWorkbook.Sheets.Item(1) ThisWorkbo…

hola. estoy desarrollando un macro que me baje un archivo plano a excel y al bajarlo necesito que me elimine la basura de este archivo plano; pero lo e intentado de varias formas y no e podido eliminar la basura de ese archivo esta fue la ultima forma que intente pero no lo elimina todo me saca erro 91 y no me deja continuar. Sub Macro1() ' ' Macro1 Macro ' ' ChDir "D:\" Workbooks.OpenText Filename:="D:\UFCG1041.PJB", Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10, 1), Array _ (43, 1), Array(66, 1), Array(68, 1), Array(89, 1), Array(114, 1), Array(135, 1), Array(137, _ 1)), Decimal…