Hola a todos: Mi consulta se refiere a que he leido y buscado mucho en el foro pero no encontre ninguna respuesta certera. necesito crear o tengo un libro nuevo desde cero sin nada adentro, en un rango de celdas introduzco con un formato que la solapa de Hoja soporte: ejemplo: 09-05-2013 ya que las barras no me las admite y no me interesa en realidad. bueno volviendo... en un rango ej: P1:P31 que serian 31 dias de algun mes o 30 de otros, que ese rango me genere 31 solapas de hojas cada una con una fecha correspondiente a todos los dias que yo ya habia precargado en el rango de celdas anterior, se entiende? es como si me hiciera el calendario completo de el mes en curso…

Buenos días, lo que intento hacer es que al ingresar un código de barra a través de un lector me lo divida según los datos que contiene y me arroje los resultados. El código contiene 21 dígitos. los 4 primeros serian la presentación. los siguientes 4 el numero de legajo de operario 1 los 4 siguientes el numero de legajo operario 2 los 8 seria la fecha de fabricación y el ultimo seria el turno que pertenece. Espero que puedan ayudarme, desde ya les agradezco y saludo.

Formula muy larga. VBA me da error. Hola, no me deja adjuntar el archivo, ¿cómo puedo poner mediante VBA en BU10 (marcada en amarillo) la siguiente fórmula? =SI(O($C10="066";$C10="067";$C10="069";IZQUIERDA($C10;2)="66");SI(ESERROR(COINCIDIR(BU$9;'HISTOGRAMA-ITG'!$15:$15;0));0;SI(ESNUMERO(((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAMA-ITG'!C$16:C$99)))/100)-((SUMAPRODUCTO(('HISTOGRAMA-ITG'!$A$16:$A$99=CONSULTAV(IZQUIERDA($B10;5);'[PRUEBA_MACROFABI_Rev4-16R.xlsm]DATOS_BASICOS'!$A:$B;2;0))*('HISTOGRAMA-ITG'!$B$16:$B$99="CONS")*('HISTOGRAM…

Hola, Quiero modificar la propiedad (Name) de una hoja excel con código. Puedo modificar el Name (sombreado en azul en la imagen adjunta), pero no el (Name) (con el círculo rojo en la imagen adjunta), adjunto imagen. Alguien sabe como hacerlo? Gracias

Buenas tardes a todos! Que tal, en espera de su ayuda tengo el siguiente problema, ya tengo una macro que me hace un reporte por cada sucursal que se tiene en el pais, pero no logro separarlo por bloques y me inserte dos filas en blanco arriba despues de que encuentre un dato. y donde inserto la segunda linea me ponga el nombre ahi, y en toda esa fila me realize la sumatoria de los campos. Creo que con el ejemplo quedara mas claro en la hoja1 es como tengo mi dato, y en la hoja2 como deseo que quede, espero me puedan apoyar ya que es el ultimo dato que me hace falta para terminar. Este codigo es correcto me inserta las 2 filas en blanco que necesito, ya logre que funcio…

Es que tengo una hoja de excel en la que e hecho una macro que trabaja todos los datos de excel y me genera en una columna las coordenadas concatenadas con comas después yo copio los datos de esa columna y en autocad ejecuto otra macro que me trabaja los datos copiados dibujando la poligonal y poniendo los puntos en cada vértice... es algo bastante repetitivo que poco a poco lo e ido automatizando.. mi pregunta es si es posible unir estas dos macros en la macro de excel y ejecutar toda la macro con un botón.... ya que autocad también trabaja con vba me imagino que es posible.. y ademas e visto aplicaciones así en la web... espero sus repuestas gracias de ante mano

exportar datos de un listbox a pdf con una una ruta especifica de una carpeta por favor es urgente gracias

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

Hola a todos. Os pido ayuda con este proyecto que estoy haciendo. Tal y como lo tengo ya me funciona, pero veo que tarda en recorrer demasiado las filas, creo que porque estoy usando FOR NEXT. No se si hay manera de hacerlo correr más rápido, con WHILE por ejemplo o de otra manera. Os envío el proyecto y os agradezco si me podéis ayudar porque no veo capaz. El problema viene en la hoja Plantilla_Parte_KM, cuando uso los botones para recorrer las matrículas, la busca en una hoja con este bucle. Si la encuentra pronto no hay problema, pero si no la encuentra o está lejos en el contador del bucle se hace lento. Como siempre gracias de antemano. Moisés. …

buenas tardes, tengo este código que me permite cargar en el ComboBox1 información de la hoja1. Así, también, me permite poner en los textbox's información también de la hoja1 y también me permite ver en un ListBox1 la información de la hoja2 según corresponda. Private Sub ComboBox1_Change() For i = 2 To 1000 If ComboBox1 = Hoja1.Cells(i, 1) Then Exit For End If Next TextBox1 = Hoja1.Cells(i, 2) TextBox2 = Hoja1.Cells(i, 3) TextBox3 = Hoja1.Cells(i, 4) Call Lista End Sub Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize() Cargo End Sub Sub Cargo() For i = 2 To 1000 If Hoja1.Range("A" & i) = "" Then Exit For End If ComboBox1.AddItem Hoja1.Ran…

Como va? estoy intentando mandar los datos de un listbox de excel a una tabla de acces. Se me ocurrió hacerlo directamente, es decir mandar en una sentencia SQL el total del contenido del listbox a la base de datos acces. He intentado lo siguiente pero no funciona: Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal,[Recibo],Vendedor,Proveedor,Operación) VALUES (me.ListBox1.Column)" o Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal) VALUES ('" Me.ListBox1.Column(0), & '" & Me.ListBox1.Column(1) & "','" & Me.ListBox1.Column(2) & "','" & Me.ListBox1.Column(3) &a…

Buenas tardes, Estoy intentando hacer un presupuesto en Exel he buscado en el foro y no he encontrado nada, he intentado hacer con sumar.si.conjunto pero no he sido capaz de solucionarlo. Lo que estoy intentando hacer es que de la hoja BD en la columna E(Ingreso) reste la columna D(gasto) y traslado a la hoja Gastos el resultado a columna B(gastos/Ingresos), cuando seleccione la fecha correspondiente dela hoja gastos columna B1. EspPresupuestos.xlsmero que me podáis ayudar Muchas gracias.

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 noches, Me dirijo a uds con la siguiente consulta: 1. Lo que necesito es vincular los valores de las celdas C1, C2,....., Cn a las casillas de contenidas en la siguiente página web (http://www.gebweb.net/optimap/) como si al ingresar los valores en C1 y C2, Cn automáticamente se ubiquen en las casillas mencionadas de la página web para hacer la consulta respectiva 2. Posteriormente, quisiera que se clickee automáticamente el botón "Calculate Fastest Round Trip", o " Calculate Fastest A-Z Trip"(contenida en la misma página web) y me arroje el resultado correspondiente. 3. Una vez calculada la ruta mas corta, importar el dato, y si es posible la…

Hola! Antes que nada quiero agradecerle a muchos de ustedes ya que muchas veces logro solucionar mis problemas gracias a todos los que interactuan en el foro. Mi problema es el siguiente: En la hoja VENTAS, tengo un boton "Modificar", a partir del cual puedo borrar un registro de venta (Ej: VEN-00006). A su vez, simultaneamente, me tiene que borrar en la hoja COMISIONES, todos los registros que terminen con esa numeracion (Siguiendo el ejemplo, todos los registros terminados en 00006, ya que en COMISIONES los registros comienzan con VEN- y COM-), lo cual NO puedo lograrlo. En definitiva, el codigo que necesito seria aquel que extraiga los ultimo…

Buen día a toda la comunidad del foro, En esta ocasión les escribo ya que debo crear aproximadamente 100 hojas dentro de un mismo libro, cada hoja debe ser igual, únicamente cambiando una celda de acuerdo a una base predefinida anteriormente (Hoja: "Listado" celdas C3:C102). En cada una de estas celdas existen textos de la siguiente manera: Hoja1, Hoja2, Hoja3 ... Hoja 100. C3: Hoja1 C4: Hoja2 ... C102: Hoja100 Tengo una Hoja: "Base" en la cual busco que se duplique tal y como esta, lo único que debe cambiar es la celda C5 por el valor en C3 de la hoja "Listado" y la hoja debe llamarse "H1" según está formulado en la celda C1. Posteriormente …

Buenas. Tengo un problema con el separador de miles y decimal en un textbox Poniendo este codigo me muestra correctamente en los label pero en los textbox me salen tanto para el separador de miles como para el decimal un punto "." Por mas vueltas que le doy no consigo que se muestre correcto. Ni con un replace ni con nada. Me.lblImporteTarifa = Format$(Tarifa, "#,0.00") Me.lblImporteNeto = Format$(Neto, "#,0.00") Me.txtDescuento = Format(Tarifa - Neto, "#,0.00")

Buenas tardes, Estoy teniendo bastantes dificultades para hacer una macro de un Excel con 2 hojas, donde la macro me señale en la hoja2, en este caso renombrada "To-do" las filas que no están en la hoja1, en este caso "Prio". Quisiera que me coloreará las celdas nuevas de la hoja "To-do", copiara las filas coloreadas y las pegará en la hoja Prio detrás de la última celda llena. Adjunto el Excel con el que estoy trabajando. He intentado coger el vba de un compañero que hacía algo similar, pero no me da el resultado esperado. Muchas gracias! Hinweisschild_Control.xlsm

Hola tenemos una macro que nos permite guardar la imagen de una URL ubicada en una celda en el la carpeta donde se encuentra el archivo...funciona perfecto en windows. Pero necesito que funcione en un equipo MAC...cuando ejecuto la macro me resalta las siguientes lineas DownloadFile = URLDownloadToFile(0&, _ sSourceURL, _ sLocalFile, _ BINDF_GETNEWESTVERSION, _ 0&) = ERROR_SUCCESS End Function y e…

hola a todos amigos, bueno como dice el titulo tengo un percanse con esta funcion tengo una hoja con datos por ejemplo desde la columna "A"hasta la columna "K", el cual esta agrupado, pero la columna "I" quiero ocultarla, es aqui donde tengo el problema, pues al estar agrupáda la macro de ocultar la columna "I" no la oulta,pero si el grupo esta expandido la macro si la oculta. bueno es esto lo quisiera lograr , una macro para expandir los datos del grupo comprendido entre las columnas "A y K" ejecutar la macro de ocultar la columna "I" y luego contraer el grupo de datos. saludos Atte. Bernardo Moncada E. expandir contraer.rar

hola a todos. hace días encontré en otro foro una programación vba para concatenar una selección multiple. la verdad que no funcionaba,pero toqueteando un poco y sin saber como funciono. en la misma web salía otra programación que hacia lo mismo pero sin repetir valores, pero esa tampoco funciona y no se donde esta el fallo o como solucionarlo. podríais ayudarme? os pego el código que venia. Espero hacerlo bien que acabo de llegar a este foro y no se si sabre envolver como lo pedís en las normas. la idea es que me salga el archivo como en el excell que adjunto. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = “” i = 1 For Ea…

Escribo a esta pagina para que me puedan brindar una ayuda. Tengo una base de datos la cual la importo a una hoja denominada "orden de trabajo". para ser imprimida según el rango de filas de la base de datos. si la base de datos tiene 50 filas considerando que la columna A sea el valor 1 y la siguiente 2 y asi sucesivamente... he estado importando los datos con formulas buscarv dependiendo de un campo de consulta desde la hoja de orden de trabajo. el problema que me envian base de datos de 400 filas y estar colocando el valor de busqueda para que se importen los datos 1 a 1 y mandar a imprimir 1 a 1 me toma mucho tiempo. Hay una manera para que los datos sean importados…

Buenas, Lo primero decir, que me parece genial este foro, que hace poco que empecé con esto de las macros y de la programación en VBA y me habéis ayudado mucho leyendo el foro. Mi problema es el siguiente; Resulta que tengo un libro en excel PERSONAL.XLS donde tengo 3 botones de macro creados. Cada uno con su código y bien enlazados a cada botón. A mi en mi usuario me funciona perfectamente claro. Pero la idea es que estas macros le aparezcan a el resto de usuarios de la empresa. Para ello creamos un recurso compartido (una carpeta en red) llamada Macro y ahí he metido el archivo PERSONAL.XLS y el archivo Excel11.xlb que es la barra de herramientas con los botones. E…

Buenos días Tengo en mi proyecto el Textbox1 que es el resultado de unir el Combobox4 y el Combobox3. Lo que deseo es que el resultado del Textbox1 busque en la columna G de la hoja Prueba y devuelva el resultado de la columna H al Textbox2. Estoy intentándolo con estas líneas, pero no consigo reaolverlo. ¿Podrían ayudarme? Un saludo TextBox1.Text = ComboBox4.value & ComboBox3.value Set h = Sheets("Prueba") Set b = h.Columns("G").Find(TextBox1) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "H") End If

Hola, les explico la problemática que tengo con una pequeña macro, esta Macro la ocupo para buscar y remplazar, me funciona muy bien con una condicionante, pero estoy intentando colocar 2 condicionantes y ahí es donde estoy atorado. Set h1 = Sheets("BD SALIDAS") Set b = h1.Range("A:A").Find(REMISION) If Not b Is Nothing Then End If Set d = h1.Range("C:C").Find(LOTE) If Not d Is Nothing Then h1.Cells(d.Row, "F") = (SALIDASLT) End If lo que busco es que la Macro encuentre el LOTE y que coincida con la REMISIÓN para poder sustituir el dato del TEXTBOX a la celda. agradezco mucho su ayuda.