Macro para copiar hojas con checkbox a un nuevo libro Hola a todos!! Ojala me pudieran ayudar con esta macro ya que no se como activar los checkbox, les explico un poco. En esta macro tengo 11 hojas con diferente nombre cada una y en una hoja coloque 11 checkbox los cuales necesito que al seleccionar esos checkbox y picar un botón detecte cuales fueron palomeados para copiar solamente esas hojas a un nuevo libro. Hasta ahora lo que tengo es esto: If CheckBox1_Click = True Then Sheets("Hoja1").Select If CheckBox3_Click = True Then Sheets("Hoja2").Select If CheckBox4_Click = True Then Sheets("Hoja3").Select......... If CheckBox5_Click = True Then Sheets("Hoja11").Se…

Buenos dias gente del foro, tengo una consulta, con respecto a fechas automaticas con macros, espero puedan ayudarme,, gracias de antemano.. les adjunto un archivos explicando ñlos pormenores. ayuda.xls

Hola Foreros!! Tengo un macro que hace parpadear el fondo de un rango de celdas si en una determinada celda hay cualquier valor numérico. Pero sólo me funciona cuando introduzco directamente el valor en la celda; cuando el valor proviene de una fórmula no se ejecuta el macro. Además me gustaría que no solo reconociera el valor numérico sino cualquier texto en general. He probado con Private Sub Worksheet_Calculate() pero no me funciona El código que me funciona es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("AR5:BB19"), Target) Is Nothing Then If WorksheetFunction.Count(Range("AR5:BB…

Muy buenas Gente! Me he topado con un problema que no puedo solucionar. Resulta que en el archivo adjunto tengo un boton para imrimir una hoja que le agrege un pie de pagina con una macro. En la vista previa de impresion los pie de pagina estan en su lugar, pero cuando activo el comando para imprimir, en la hoja impresa salen los pie de pagina todos juntos en el centro de la hoja. Sinceramente no se que hacer. Tal vez un experto tenga la solucion. Gracias de antemano. Un saludo grande.- Libro1.xls

Hola mi pregunta es la siguiente: Como puedo hacer un hipervinculo a las hojas ocultas de excel. Gracias....

Desearía ejecutar tres acciones diferentes en el mismo evento Private Sub worksheet_change(ByVal Target As Range). Concretamente que al eliminar una celda se eliminen varias celdas de la misma columna o que al modificar un valor se ordenen alfabéticamente varias columnas. Muchas gracias de antemano Probando.zip

Gracias de antemano x su ayuda: Quiero una macro q me concatene filas fila = celdas: a2,b2,c2...m2 quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y luego pase a la siguiente fila = a3,b3,c3...m3 y concatene y el resultado en p3 y asi sucesivamente concatenar todas las filas asta encontrar celda vacía en la columna A y allí termina la macro, la cantidad de filas es variable pero siempre en la columna a1 asta aX (X valor cualquiera) siempre hay datos, no quiero usar formulas por que antes de concatenar elimino varias filas no deseadas. doy g…

Hola amigos: Estoy con un problema complejo. Quiero insertar un gráfico en un Form, de manera que el usuario pueda elegir que datos visualizar en el gráfico usando un combobox que recoge los encabezados y sus valores mensuales de la hoja "rendimiento_camiones", estos rendimientos debiesen ser calculados en la hoja "BD" que contiene todos los registros de viajes de todos los camiones, y mostrar en la hoja "rendimiento_camiones" el valor mensual, para luego obtener el gráfico. Primero habría que filtrar en "BD" por patente y ademas entre las fechas 01/mm/yyyy - 31/mm/yyyy para calcular el rendimiento, para enviarlo posteriormente a la hoja "rendimiento_camiones"y así ob…

Hola Chicos: Hace una semana expuse en el foro de Excel General el tema Extracción y ordenamiento de datos en hojas vinculadas. Averiguando y tomando ejemplos, desarrolle con formulas una aplicación e hice funcionar en mi trabajo y fue un rotundo fracaso porque pone muy lenta la computadora, creo que muchas formulas complica el cuadro donde registro los pedidos. Se ingresan casi 10000 registros al mes. Necesito otra alternativa y es el uso de Macros. El caso es: tengo 02 hojas, en la primera hoja se registran los pedidos de acuerdo a la fecha, orden, tipo, colaborador, sites, etc, y en la segunda, es una hoja Resumen de la hoja anterior, esta hoja me sirve porque realiz…

Hola a tod@s, ojala pudieran ayudarme con el siguiente inconveniente. Tengo el siguiente código que desde Vba Excel me permite realizar una consulta SQL Access donde primero se obtiene un listado de códigos de productos en Excel de la hoja activa para luego coincidir la información con tablas de una base de datos en Access en un determinado servidor. Dim Planilla As String Dim conexion As Object Dim cadenaConexion As String Dim consulta As String Dim Periodo As Integer Dim UltL As Long Dim strFile As String Set conexion = CreateObject("ADODB.connection") strFile = ActiveWorkbook.FullName Periodo = UserForm3.TextBox5.Value …

Hola a todos: Estoy trabajando en un pequeño proyecto en la que por medio de una macro quiero traer los datos de una hoja llamado articulos. Ejemplo: Que me desgloce todos los codigos existentes por familia. Pero que la familia este unificada. es decir si en mi lista de articulos existen 20 familias diferentes las traiga todas. Adjunto mi ejemplo y un pequeño avanze que con macro de autofiltro. Pero me trae una sola familia. Lo que quiero es que me traiga todas las existentes Vasos Platos Cubiertos y con cada uno sus codigos. Gracias MP Inventariomo.xls

Hola pido de su ayuda ya que me estoy atorando con la separación de miles y decimales en una macro. estoy haciendo un programa para administrar una carnicería, el cual el ejemplo que traigo para que me ayuden es el siguiente. "quiero aclarar que no tengo conocimientos exagerados en programación de VBA, y siempre combinó formulación de Excel y Macros." mi petición de ayuda es la siguiente: tengo un listado de productos y un formulario para poder actualizar los precios de los producto. cuando ingreso algún dato numérico con algún punto decimal y doy click en el botón calcular me devuelve datos asi: dato correcto: $38.20 y el dato…

Necesito alinear columnas de un listbox directamente cargadas de los textbox, una columna que la cargue a la izquierda la segunda al centro y la tercera a la derecha. adjunto el archivo. Les agradecería la ayuda. Alineación_Listbox.xls

Hola amigos!!! Solicito su ayuda para realizar el siguiente trabajo: 1- Necesito concatenar desde hoja "OC" hacia hoja "Oferta_de_Compra": B2 "-" E1 B2 "-" F1 B2 "-" G1 B2 "-" ....hasta V1 Posteriormente concatenar, B43 "-" E42 B43 "-" F42 B43 "-" G42 B43 "-" ....hasta V42 Y así consecutivamente hasta finalizar el ciclo de 41 filas, esto pegar transpuesto y se forma consecutiva en la columna "C" desde la fila 3 de la hoja "Oferta_de_Compra". 2. Posterior al ciclo de concatenación, ordenar de mayor a menor la columa "K" desde la tercera fila. 3. En la columna "M" desde la fila 3, colocar la palabra "IVA", según corresponda de acuerdo al llenado de las otras …

Hola a todos, por favor si alguien me puede ayudar con esta macro para que los datos que copia se peguen como valores,ya que actualmente copia con todo y formula el contenido de la celda F7. Sub completa() 'Rellena la columna F hasta la ultima fila con datos de la columna E 'Se detecta la última fila con uf = Range("E10").End(xlDown).Row 'desde donde inicia 'Se detecta el rango a rellenar rango = Range(Cells(10, 6), Cells(uf, 6)).Address 'Luego se Rellena el rango con el contenido de la celda F7 Range("F7").Copy Range(rango) 'es desde donde se autocompletara End Sub Grac…

Hola amigos expertos tengo un form que contiene varios textbox y combobox quiero que se cargen los datos de estos en la hoja de excel de acuerdo a un checkbox como veran son 23 puntos de muestreo y deben cargarse solo los que se les active. El problema que tengo es que la carga es incompleta no se cargan los que elijo y hay que tomar en cuenta que los datos: Fecha muestreo, Temp/Humd, Producto, Lote y Hora son obligatorios pero los demas datos (Punto de muestreo) son opcionales tomando en cuenta si se muestrea o no se los llenará y al guardar los datos los casilleros de los 23 puntos tendrán que quedar en cero "0" porque a veces hay puntos que que dan como resultado cero.…

Necesito consolidar 128 archivos al mes en una sola hoja de excel, me conseguí una macro, en donde me copia toda la tabla que necesito, que es la siguiente: -->Sub ponernombre() 'Por.DAM Set l1 = ThisWorkbook Set h1 = l1.Sheets("concentrado") h1.Cells.Clear Application.ScreenUpdating = False Set nav = CreateObject("shell.application") carp = nav.browseforfolder(0, "SELECCIONA CARPETA", 0, "C:\trabajo").items.Item.Path If carp = "" Then Exit Sub carp = carp & "\" ChDir carp archi = Dir("*.xls*") Do While archi <> "" Workbooks.Open archi uf = ActiveCell.SpecialCells(xlLastCell).Row uc = ActiveCell.…

Buenos días: Quisiera saber como añadir más lineas de ascendentes en el fichero que adjunto. En el propio fichero lo indico en un cuadro de texto gracias arbol genealogico.zip

Hola, recientemente me uni, un saludo a todos los foreros que dedican tiempo a nuestras inquietudes mi cinsulta es la siguiente: en un hoja tengo datos que podrian variar de 25 hasta 1000 o mas buscando en el foro he encontrado muchos codigos de gran ayuda. yo quisiera ordenar estos en una nueva hoja en bloques de 40 filas y determinar sub totales para estos bloques y un total general adjunto el formato que como esperaria ordenarlo, sin antes mencionar que los codigos en el libro son todos sacados de aqui o de san Google :bull_head: espero puedan ayudarme con esto TEST.zip

Buenas noches, Me estreno en este foro preguntado a cerca que al crear una serie de botones, con su código en VB y que funcionan a la perfección, otros códigos que antes funcionaban bien ahora me producen 2 tipos de errores. No le veo la lógica y escribo por si alguien me dá alguna idea. Los errores són: Se ha producido el error '438' en tiempo de ejecución: El objeto no admite esta propiedad o médodo. Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto '_Worksheet' Pero repito que estos errores aparecen en macros que antes funcionaban bien, y en cambio las nuevas macros funcionan bien y sin errores. Gracias! He intentado s…

Hola, necesito me ayuden con un macro. Tengo que sacar un hoja con datos semanalmente y guardar el histórico de esos datos que provienen de una exportación. Por ejemplo, pego los datos de la semana 27 en Hoja(datos) y en la Hoja(Resultado) en A1 pongo que la semana es 27, entonces en esa hoja se calculan un montón de formulas. Necesito un boton que cuando yo pegue los datos de la semana 27, copie ciertas celdas de semana 27 en hoja(resultado) en la hoja(histórico)debajo de la celda S27(no sé cual es) y al ser 3 datos en concreto, debe copiarlos en vertical. Los datos a copiar son siempre los mismo, por ello podría arbitrariamente copiarlos con el macro cell.range("X).co…

Hola, espero que me puedan ayudar porque no se como hacerlo y no se mucho sobre el tema. Tengo una celda con un userforms que contienen un combobox para seleccionar de una lista el CLIENTE. En otra parte de la misma hoja ("Factura"), tengo otro Userforms con combobox para seleccionar el PRODUCTO. Tanto los clientes como los productos vienen de diferentes hojas (CLIENTES y PRODUCTOS). Lo que necesito es que en la hoja "Factura" al momento de ingresar el nombre del Cliente, se me filtren en el combobox de los PRODUCTOS los valores de lo productos (valga la redundancia) que correspondan a ese Cliente ya seleccionado. Adjunto el fichero. Les agra…

Hola tengo que importar a excel una base de datos que se encuentra en una página web que me pide contraseña, lo e estado haciendo manual sin embargo es mucha información para seguirlo haciendo haci. tengo entendido que tengo que ocupar el QueryTable.PostText

Hola, Tengo una dificultad con un libro llamado Presupuesto de obras, el cual tiene barias hojas llamadas APU, donde se describen el Análisis de precios Unitarios de cada Item o Actividad, en este aparecen cantidades de materiales por unidad, la idea es que mediante una función o macro, calcule los valores de las celdas Cantidad/rend X cantidad del item y luego muestre el resultado total en la tabla Materiales, mas detalles en el Libro anexo en la actualidad, en la tabla materiales hace el proceso pero al verificar la operación manual no da coincide con el resultado del macro, si por favor me pueden ayudar a corregirlo. Gracias Presupuesto de Obra 2.zip

Tengo problemas al convertir archivos de excel con nombres largos a pdf con el siguiente código. Agradezco su colaboración. Sub ImpPDF() ' ' ImpPDF Macro ' 'aqui agregamos la variable, y en la parte de Filename checa como agrego la variable Año = Range("r1").Value Sem = Range("Q1").Value Nombre = Range("c17").Value Range("C4:P59").Select Range("P59").Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "/" & Año & " Sem " & Sem & Nombre & " " & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Range("B19").Select End Sub