Hola a todos y muchas gracias de antemano. mi problema es el siguiente: Quiero fitlrar una tabla dinamica por fechas en funcion del valor que contienen dos celdas: Adjunto un fichero como ejemplo El campo a filtrar se llama Dia2 y las celdas b1 y b2. Esto es lo que he intentado: Sub filtrarfecha() Sheets("td").Select ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").ClearAllFilters ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh a = Range("b2").Value b = Range("b3").Value ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").PivotFilters.Add _ Type:=xlDateBetween, Value1:="a", Value2:="b" End Sub Buscando por google he en…

Hola.. Como estan..Una pregunta Algún código VBA Donde Pueda Dar Click y Me Muestre Por Ejemplo la pagina 4.. Que solo Sea Para Visualizar Que no se pueda Editar..solo ver como va... Pese a que tengo un Formulario que me alimenta La pagina 1 y quisiera ver Como va.. Gracias

buenas tardes amigos¡¡¡ tengo un libro que diseñe en el que no ocupo las herramientas de excel ni la ventana solo las pestañas. hay manera de aplicar una macro para eliminar esta ventana. de manera que aparente un programa y no una hoja de excel. de antemano agradezco su ayuda.

tablas dinámicas con VBA -Mostrar valores: % por filas Saludos Estimados Mi interrogante es la siguiente: cuento con una base de datos ("reporte24"-archivo excel) y quiero aplicar una tabla dinámica, cuando deseo que los valores aparezcan como: mostrar como % por fila, solo aparece el campo que selecciona como % por fila mas no la tabla dinámica como valor de % por fila . Para una mejor comprensión adjunto un archivo excel en el cuál esta la base de datos y el reporte que debe de emitir. Muchas gracia​s anticipadas por ayudarme con este inconveniente. reporte24.xls

Hola estmiadisimos, estoy con un problema en una planilla, la explico brevemente. En el libro tengo dos hojas, una con el nombre de "resumen" y otra "control de stock", ambas contienen planillas con datos, en la planilla de la hoja de control de stock, tengo una fila que contiene en cada celda diferentes numeros, en este caso lotes. en la hoja de resumen tengo una celda que contiene un listado con los numeros lote, lo que necesito es que en otra celda, cada vez que coloque un numero, me lo copie en la hoja de "control de stock" debajo del lote al que hago referencia. Espero haberme expresado correctamente. Por el momento no estoy pudiendo adjuntar el archivo. Muchas gr…

Tengo un libre en donde hay varias celdas con contenido alternado, es sobre equipos de futbol. Necesito un macro (o quizas se puede hacer mediante alguna función) en donde me convierta determinado texto en determinado hipervinculo. Ejemplo tengo celda a20 q dice "Futbol". Al activar el macro esa celda "Futbol" que sea un hipervinculo a una url

Buenas noches amigos, tengo una pregunta, ¿cuál de los dos métodos es más eficiente y porqué?, este, utilizando Target.Offset: If Not Intersect(Target, Range("K4")) Is Nothing Then Target.Offset(3, -2) = "" Target.Offset(3, -7) = "" Target.Offset(3, -7).Select End If [/CODE] o este, utilizando Range: [CODE]If Not Intersect(Target, Range("K4")) Is Nothing Then Range("I7") = "" Range("D7") = "" Range("D7").Select End If [/CODE] Saludos.

Buenos días, Hoy necesito una pequeña ayuda para un tema que tengo que resolver en excel. Voy a explicarlo de la manera más sencilla posible. Tengo un libro de excel con varias hojas (fichas.xslm), todas tienen un mismo gráfico series. El tema es que esas series salen de datos que están en otro libro distinto con varias hojas también (base de datos.xlsm). Por ejemplo: el libro "fichas.xlsm" contiene hojas llamadas: peras, manzanas, plátanos. Y en cada hoja hay un gráfico que busca datos en el libro "base datos.xlsm" en el que hay las mismas hojas (peras, manzanas, plátanos) pero con tablas de datos. La pregunta es: ¿puedo hacer que la ruta de origen de los datos esté …

Hola.. a Todos, Me podrian Colaborar Con este Codigo por Favor.. Estaria Muy Agradecido por que no he podido Realizarlo y lo he intentado Tengo este codigo ancho = Int(.Range("A1").Width + 5) & ";" & Int(.Range("B1").Width + 40) & ";" & _ Int(.Range("C1").Width + 30) & ";" & Int(.Range("D1").Width + 20) & ";" & _ Int(.Range("E1").Width + 20) & ";" & Int(.Range("F1").Width + 30) & ";" & _ Int(.Range("G1").Width + 10) & ";" & Int(.Range("H1").Width + 30) & ";" & _ Int(.Range("I1").Width + 75) & ";" & Int(.Range("J1").Width - 40) & ";" & _ Int(.Range("k1").Width + 3)Com alinear la colum…

Hola buenas tardes la cuestión es la siguiente: Tengo una base general de la cual se va ir alimentando diariamente y que contiene varios proveedores lo que necesito es una macro q en cuestión me separe en hojas diferentes por proveedores ejemplo: tengo en la columna i5 el nombre de proveedor que me pase cada uno en una hoja diferente con todos los datos de la odis general. Agradezco su atención!! odis gral ok.rar

Hola a todos buenas tardes. hoy quisiera que me ilustraran de como quedaría este código para poder filtrar la fecha de hoy mas la de ayer. osea quiero traer la fecha de ayer y la de hoy... de antemano, muchas gracias. saludos. FILTRAR.zip

Buenos dias compañeros necesito de su ayuda. Quisiera imprimir dos hojas de un libro con dos distintas impresoras. me hace falta el codigo en VBA Ambas impresoras estan en una misma pc. Y como se llama en vba a una impresora que tengo activa en la pc Gracias por sus comentario

buenos dias, tengo un problema en la gestion de vencimientos de proveedores. lo que quiero hacer es que al insertar un proveedor que ya tiene asignado un vencimiento (30 dias, 30-60-90 dias, contado,....) me lo coloque en una hoja de su banco correspondiente fraccionando dicho pago (si es un pago de 1000$ y el vencimiento es a 30-60-90 dias que ponga su fecha correcta y su cantidad (333$ en cada vencimiento) y que en dicha hoja los pagos vayan ordenados por fecha de - a +. adjunto un excel que tiene comentarios explicados para ver si me podeis echar un cable ya que toy de los nervios y para mi es imposible ya que no tengo mucha idea, tengo algo de nociones nada…

[solucionado]Macro no se ejecuta en cambio de celda en una columna Buena tarde; Nuevamente me tomo el atrevimiento de pedir su ayuda ya que estoy atorado y no puedo dar con una solución, mi problema es el siguiente,: Tengo 8 modulos con 2 rutinas Sub cada uno y quiero que cada una de ellas se ejecute cuando se hagan cambios en las celdas de 8 diferentes columnas, para hacer esto, he puesto este código en la hoja en la que quiero que se ejecute Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("L:L")) Is Nothing Then Call Val_Fecha_3_meses_C1 Call Evitaescritura_3_meses_C1 ElseIf Not Intersect(Target, Targe…

amigos muchas gracias por este espacio que nos brindan a las personas que necesitamos tanta ayuda amigos necesito crear un historial cada vez que se actualiza un valor de determinada celda, navegando en la red e conseguido este codigo Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub With Range("A" & Cells.Rows.Count).End(xlUp) .Offset(1) = Target .Offset(1, 1) = Format(Now, "hh:mm:ss") End With End Sub (perdon si no referencio la pagina pero de tantas que busque ya perdi el link) este codigo me funciona de maravilla siempre y cuando yo oprima enter y necesito que no sea asi habe…

Hola: Os explico mis necesidades, a ver que se puede hacer. Tengo tres maquinas a las que me puedo conectar por tres redes locales independientes entre si (que ademas son lentas). Tienen unos datos que me interesa comparar. No es conveniente abrir los archivos mientras trabaja pues causa errores en el proceso. Si intento importar datos directamente desde su ubicación no me deja. Lo que hago ahora es tener un hipervínculo a la carpeta en red, otro al destino y abrirlos para copiar los archivos a pico y pala arrastrándolo. Son ciento ochenta archivos de texto en total pero con la extensión entre .C16 y .C24. Como la intranet es lenta seria fantástico que solo copiase…

Hola necesito ayuda para copiar datos de un libro a otro, el libro matriz que se llama matriz pcs es el fijo que tengo que se alimenta de diferentes libros los cuales pueden variar nombre de hoja y de libro. Por ellos realice el siguiente comando.Sub LLENADO()ActiveWorkbook.ActivateActiveSheet.SelectFor a = 0 To 68Workbooks("MATRIZ PCS").Sheets("J3D133").[t11].Offset(a, 0) = [t11].Offset(a, 0)NextEnd Subpero me sale error no se si alguien podria ayudarme, prueben con cualquier hoja solo son pegar datos de una hoja y libro a otro pero usando el active shett

Quisiera me ayudaran en esto. Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula. Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7. Private Sub maxtxt() Set Lcl = Range("B3") Set rg = Range("C7") rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1) fecha = Format(Now - 1, "mmdd") Application.ScreenUpdating = False Range("C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, …

Hola amigos tengo una lista con nombres y DNI, (documento nacional de identidad), y me interesaría actualizar el rango una vez el Combo se ha situado en el nombre, de manera que si le pongo un apellido de más o cambio el DNI se cambie al mismo tiempo. Tendría que ser en el evento "Change" poner un Select a la celda que posee el nombre y que escribiera en la celda al mismo tiempo que escribo en el Combobox. Adjunto fichero .xlsm de ejemplo. Gracias por la atención amigos. :unconscious: Carta.rar

Hola, he ido leyendo varios hilos pero ninguno contesta exactamente a lo que quiero hacer. Tengo cientos de archivos excel, cada uno de ellos con una sóla columna, a los que les tengo que aplicar varias funciones estadísticas, siempre las mismas. Como es hiper reiterativo, he creado una macro. Así pues, al ejecutarlo, el resultado me aparece en la fila (A1:A20) es decir 20 datos. Esos datos interminablemente los tengo que copiar y pegar en otra hoja excel, e ir añadiéndolos en filas incrementales (fila A1, A2, ....Aenésima) Me estoy desesperando. Alguién me puede pasar un pequeño código para que al terminar el primer macro me copie directamente los datos de…

Hola estimados quiero pedirles si me puede ayudar con esta macro quiero que al momento de imprimir todos los locales solo dar en imprimir y no estar ingresando factura por factura. Les envió la planilla. Estaré atento a su respuesta. Saludos. ROTULO JUMBO.xls

Estimados, tengan todos ustedes muy buenos días... El problema que tengo es el siguiente, cuento con un libro de excel donde están una lista de equipos con sus respectivas especificaciones, para una mejora del trabajo estoy aplicando el VB y ayudandome de la herramienta ComboBox logre extraer los datos de una determinada fila, sin embargo quisiera que una vez seleccionado un Item en el combobox automáticamente se rellene los TextBox con los datos de la fila que fue seleccionada previamente... Espero puedan encontrar la solucion a mi problema. Saludos :acne: FORO.rar

Buenas noches, espero y me puedan ayudar. Soy nuevo en VBA pero quisiera crear una pantalla para una escuela de captura con las siguientes caracteristicas. Que se pueda selecionar primero el grado correspondiente, de ahi se pueda seleccionar el grupo al que pertenece el alumno y despues el listado de ese grupo para seleccionar el nombre de tal alumnos. Todo esto mediante dropdowns. Y cuando se tenga todo eso seleccionado se pueda agregar 15 datos de una examen. A como tengo mi hoja de calculo estructurada es la siguiente forma, tengo una columna con su numero de lista, otra con su grado, otra con su grupo y por ultimo el nombre con las quiente columnas que hay se almac…

Buen dia requiero de apoyo lo que pretendo hacer es generar un código basado e dos celdas teniendo por ejemplo A1 China y B1 478 quiero que si el nombre en A1 es china en la celda C1 apaesca [China, (valor de B1)], respetando los paréntesis y la ultima coma el resultado final seria [China, 478], agradeceré cualquier ayuda saludos

Buenas Tardes Tengo un formulario, que contiene unos 10 textbox, para los cuales quiero configurar las siguientes propiedades Private Sub TextBox_Enter() TextBox4.BackColor = RGB(245, 245, 245) End Sub Private Sub TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.BackColor = RGB(255, 255, 255) End Sub Quisiera saber si hay alguna forma de configurar esto para todos los textbox con un solo código, y no tener que hacerlo para cada textbox..