Que tal amigos del foro, buen dia a todos, Ojala pudieran apoyarme con este problema. Tengo una hoja que se llama consulta, en cierta columna tengo numero de pedidos, y estos pedidos en otra columna tienen una partida, esto quiere decir que un pedido puede tener varias partidas. y lo que quiero saber es el precio de estos pedidos relacionados con la partida. En la hoja de "precios" puedo encontrar los precios decada pedidos con su rescpectiva partida. Podrian ayudarme con una macro que pueda buscar en la hoja de Precios. el precio de cada pedido de acuerdo a su partida. Ojala puedan ayudarme o brindarme alguna solucion adjunto Archivo saludos. [TABLE=width: 525] …

Hola amigos, queria que me echasen una mano con este problema. Tengo datos en las 7 columnas seguidas desde B hasta H, pero quiero que se oculten en funcion de los valores que haya en las 7 celdas de la K10 a Q10. Si la celda tiene un numero no tiene que ocultar nada. Si la celda esta vacia tendra que ocultar a la columna correspondiente de su orden. Es decir, si K10 esta vacia se oculta la columna B; si es L10 se oculta la columna C, la M10 oculta la D; la N10 oculta la E; la O10 oculta la F; la P10 oculta la G y la Q10 oculta la H. Como los datos de las celdas K10:Q10 cambian con cierta frecuencia me gustaria que se ejecutara la macro de forma automatica. Muchas g…

Estimados necesito ingresar notas y quiero se desbloqueen 3 columnas en cierto tiempo puede ser por un mes, son 8 periodos, he revisado en estos blog parecidos pero no me funcionan envío archivo... NOTAS.rar

hola amigos estuve tratando de implementar un gestor de stocks la cual me encuentro con una traba en el desarrollo de esta macro las cuales acudo a ustedes, tengo un formulario donde genero informes de los ingresos y salidas y cuando modifico un datos los datos de stock no se actualizan, para eso eh creado un botton que recalcule todos los datos y me actualice el stock el los datos se encuentran en hojas distintas eh aqui les adjunto el archivo MATERIALES VARIOS VERSION 1.5.1.part1.rar MATERIALES VARIOS VERSION 1.5.1.part2.rar MATERIALES VARIOS VERSION 1.5.1.part3.rar

Hola Gente estoy intentando llevar un libro de productos solicitados por médicos y necesito de su ayuda quiero copiar todo lo que escriba en los campos de color en la hoja historial médico, la macro que realice la hice con la grabadora y no puedo hacer que funcione bien. Y despues necesitaria que otra macro me permita obtener un informe con todos los datos dependiendo del medico. Desde ya muchas gracias https://dl.dropboxusercontent.com/u/50012368/FICHA%20PEDIDO%20MEDICO.xls

Estimados Foreros: Otra vez yo para pedir si es posible de que me orienten del porque no funciona bien mi listbox... me desaparece mis encabezados y no carga la información que le quiero decir... en si quiero que el listbox se cargue con la info de la base de datos pero solo con los que tienen en la columna H un "1" gracias de antemano. saludos. REPORTE.zip

Pasar datos de una fila a una columna sin repetición Buenas tardes: Tengo que armar un formato tal como la hoja 3 del archivo adjunto, y al momento de seleccionar los criterios como: Oficina y tipo de encuesta, los datos se completen, quisiera que me ayuden a colocar los meses en forma horizontal, por ejemplo para el tipo de encuesta: CLIENTE INCOGNITO tiene que salir los meses FEBRERO MAYO y AGOSTO y al final un PROMEDIO, tanto que promedie las preguntas de forma horizontal como vertical, de la pregunta 14 a la 31 salga un promedio en ventanilla,... y así para cuando seleccione el TIPO DE ENCUESTA: POST TRANSACCIÓN, me salga los meses de JULIO y SETIEMBRE y al final un…

Buenas tardes solicito de nuevo su apoyo. En este caso tengo el siguiente problema si en la columna ("f") esta el valor "0", verificar si el numero de la columna ("d") de la misma fila tiene en otra fila un numero mayor o igual a "1", si es así sustituir el valor "0" de la columna ("f") por el valor "99" y no tengo ni idea de como hacerlo. DISCUL UUSTEDES, ADJUNTO OTRO ARCHIVO ESPERANDO SER UN POCO MAS CLARO. COMO LES COMENTABA NO SE COMO ESTIPULAR ESTA CONDICION, SE LOS PUSE UN POQUITO MAS GRAFICO. LES AGRADESCO MUCHO SU APOYO. SALUDOS CORIDIALES. EJMPLO 112.xls

Hola amigos que tal, aquí con una pequeña y rápida duda. Tengo un formulario con el cual busco insertar dos fechas (inicio y fin). Sin embargo hay dos problemas con los que me he encontrado y no sé cómo solucionarlos. Problema 1) Cuando pongo la fecha (ya sea inicio o final) en el formulario al momento de capturarse en la hoja1 el formato es "mm/dd/aa" y me gustaría que fuera "dd/mm/aa" pero no logro hacerlo. Problema 2) Me gustaría crear una condición para que en caso de que el usuario no escriba un formato de fecha válio, se arroje un mensaje de error que diga "Por favor escribir un formato de fecha válio", cosa que tampoco he logrado hacer a causa del problema #1 …

HOLA DE NUEVO A TODOS. MIREN, ME GUSTARIA COPIAR SOLO UN RANGO DE CELDAS QUE ESTAN VISIBLES A LA MISMA FILA PERO EN OTRA COLUMNA. YA TENGO LOS FILTROS PERO NO ME SALE EL COPIADO Y PEGADO ESPECIAL. ASI TENGO MI CODIGO. Sub filtrop() X = Range("A1").Value ActiveSheet.Range("A2:E11").AutoFilter Field:=3, Criteria1:=">" & X, Operator:=xlFilterValues ActiveSheet.Range("A2:E11").AutoFilter Field:=2, Criteria1:="<" & X, Operator:=xlFilterValues ActiveSheet.Range("A2:E11").AutoFilter Field:=5, Criteria1:=">0" Range("E3").End(xlDown).SpecialCells(xlCellTypeVisible).Copy .PasteSpecial(xlPasteValues).Columns (4) Application.Cu…

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…