BUEN DIA MI ESTIMADO @AlexanderS molestandote de nuevo, queria saber si me puedes ayudar con este archivo: tengo un archivo "01 PCP.xlsx - v02 - copia" el cual entre otras hojas contiene tres principalmente, y son: "Proy.-Comer" - "BD_Recetas" - "Mat_Stock" En la hoja "Proy.-Comer" tenemos en color naranja las semanas del año, y en color amarillo los productos, y en plomo las cantidades (que se digitan manualmente). ***Lo que necesito es que en la hoja "BD_Recetas" , a partir de la celda "M65" Sume la cantidad correspondiente a la semana según el producto de la columna en color amarillo "L10:L193" Y sus cantidades (celdas de color…

Que tal, Pues estoy creando una macro que busque informacion especifica sobre ciertos #Item, en otro libro, dado que cada #Item es una hoja especifica. hasta ahorita e llegado a esto, sin embargo, al momento de correr la macro no sucede absolutamente nada, espero me puedan apoyar en identificar el inconveniente, o si tienen alguna recomendacion sobre el codigo; aqui la macro: Sub RoundedRectangle2_Click() ' ' Keyboard Shortcut: Ctrl+m ' 'Declaracion de variables a utilizar Dim Var, Cef, Sabana, Vi As String 'Escribir variables con una mayuscula para detectar errores Dim V7, V8, V9, V10, V11, V12, V13, V14, V15, V16, V17 As String Dim Prueba As Worksheet Applicat…

Hola amigos, antes que nada quiero agradecer a cada uno de ustedes por sus aportes, realmente impresionantes. Lo que ando buscando en la actualidad es una macro que me ayude a consolidar en una solo hoja, en mi caso "Consolidado", la información vertida en las demás, no interesando el número, es decir en el ejemplo que coloco hay 4 "Talara_2,Paita_2,Huacho_2 y Chincha_2" pero podrían crecer en número y la macro debería consolidar las que se coloquen. Desde ya les agradezco por su tiempo y ayuda. Rpietra prueba.xls

Hola, Escribo porque tengo un problema con un formato condicional que necesito generar con macros. Tengo una tabla dinamica en donde pincho cada valor y eso me genera tablas; en cada tabla generada en las columnas J y K aparecen valores 1 y 0, lo que necesito es generar una macro en la cual si es 1 la letra sea negra y el relleno de la celda tambien y en el caso de que sea 0 que la letra sea blanca y el fondo tambien, ambos con bordes. Espero haberme explicado bien.... la verdad estoy muy complicado, puesto que son mas de 200 listados y lo debo hacer todos los dias.... por favor su ayuda!!!! Slds y de antemano gracias

Buenos días, Quisiera que me colaboraran, normalmente yo uso la opción de validación de datos para desplegar listas de acuerdo a una condición, les muestro: =SI($E$15="SI";PORTAFOLIOS;DIFE) en este caso sí la celda contiene "SI" Validación despliega la lista PORTAFOLIOS y si no despliega DIFE, bueno tengo que hacer esto mismo en un combobox, trate de llenar la misma formulación en listfillrange pero no me permite hacer esto, de paso si me pueden explicar dado caso si necesitara llenar más celdas objetivo genial, ya que me imagino que el linkedcell debe ser una sola celda. No sé de lenguaje de visual para las macros pero estoy seguro que toca botar codigo y no tengo ni …

Que tal compañeros La redacción del título no se si este bien. Pues necesito apoyo de este detalle, igual ya ha de existir en el foro, lo busco pero no sale lo que necesito o bien no escribo bien por favor orientenme hacia el existente. Tengo un pequeño formulario para insertar el precio, supuestamente inserto el salario diario, cuando se inserte el precio que me calcule el precio con una formula del salario diario multiplicandolo por 30, que viene siendo salario mensual. intento con FormulaR1C1 pero la sintaxis la hago mal, así que lo borré. ¿Alguna sugerencia? GUARDAR.zip

Hola estimados, tengo un ejercicio que nos pasaron de una solemne antigua, de un ramo que tengo en la carrera, que nunca tome y ahora en 5to ya, tome si o si, no cacho mucho de excel, alguna alma caritativa que me eche una mano.. Aqui el archivo MEGA Saludos y gracias de antemano

Buenas tardes amigos! , tengo una consulta espero de su ayuda, tengo una base de datos en la cual deseo imprimir unas determinadas tablas es decir por criterios! solo aquellas que tengan como saldo anexo = moneda nacional = que tenga pendiente , es decir todo lo que sea saldo 0.00 en saldo anexo no deseo imprimir! .. adjunto un cuadro para que que entiendan mejor. lo e pintado de amarillo todo lo que deseo imprimir. como observaran la lista de base es larga es por eso que quiero ver si existe alguna macro queme facilite o alguna formula.

Buenas tardes, Necesito vuestra ayuda, tengo una hoja que se llama "Registros Automaticos"y mi necesidad es que desde la hoja Registros Automaticos anote los datos en las hojas correspondientes cuando llega la fecha prevista y que la fecha se actualice para el mes siguiente automaticamente. Pero la hoja de Registros Automaticos no se puede sumar a la hoja de Informes Cat y Subcat. Espero que se entienda ContabilidadDomestica.rar

Estimados del foro, Buenos días!. Estoy creando una cinta personalizada en la cual debo desplegar gráficos por clientes. La estadística se mide por los meses del año. Tengo un Combobox en el cual debo realizar la selección del año a evaluar. El caso es que para seleccionar desde este Combobox estoy usando la función RibbonControl que usa para el llenado y despliegue la instrucción: label = Choose(Index + 1, "Select from list", "Macro 1", "Macro 2", "Macro 3") La idea, es cambiar la lista de opciones fijas a una dinámica con una matriz: label = Choose(Evaluate(arrayAnos)) Pero lamentablemente no resuelve. ¿Alguien me puede guiar por favor? …

Hola amigos/as. Quiero pedirle nuevamente ayuda para solucionar mi problema. Tengo un TextBox en una HOJA Excel el cual el evento es Private Sub TextVenta_Change(). Puede que el evento no tenga que ser este pero probe con GotFocus que es el que mejor dá pero hace una repeticion cuando cambio de hoja No he podido lograr insertar formula y formato a partir de la 1ª libre. Adjunto libro de prueba en 3 partes una ves que no me acepta el tamaño en uno solo. Son de 60 KB cada De verdad necesito su ayuda. Agradezco una mirada al codigo que tengo su correccion Gracias Editado: Quisiera cerrar o eliminar este tema, preferiblemente eliminarlo porque el tema esta mal expues…

Estimados: Estoy filtrando datos desde otra hoja, con varios textBox ubicados uno en cada columna de una tabla. La segunda columna contiene Fechas y no se cual es el codigo que debería llevar ese textbox para que funcione igual que los demas. Este es el código utilizado: Private Sub Filtrar() Application.ScreenUpdating = False uf = Sheets("Datos").[A65536].End(xlUp).Row Sheets("Datos").Range("A1:K" & uf).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:K2"), CopyToRange:=Range("A4:K4"), Unique:=False Application.ScreenUpdating = True End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal …

hola compañeros, soy nuevo en esto y quisiera su apoyo. Tengo una base de datos de contratistas, lo que sucede es que los mismos contratistas se repiten en varias ciudades, por decir: estos vienen a ser desrinatarios en la guia de remision: ciudad ruc contratistas ------------------------------- pisco 123 GyM chincha 123 GyM chincha 678 CGP pisco 678 CGP al momento que quiero generar una guia de remision y me pide el destinatario lo quiero jalar con un combobox, pero jala solo el primero de pisco o el primero de chincha. espero sus comentarios: LO ESTUVE HACIENDO ASI: ----------------------------------- Private Sub…

saludos. estoy ttrabajanndo en un treeview de un ejemplo que vi en internet pero me arroja un error Private Sub TreeView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer) With TreeView1.SelectedItem 'aqui una de las ventajas de tener bien definido el Tag. si este es 'distinto a marca , entonces es una caracteristica: If .Tag <> "marca" Then 'si la tecla presionada es la de borrar: If KeyCode = vbKeyDelete Then 'borro el dato en excel Range(.Tag).ClearContents ' 'y quito el nodo TreeView1.Nodes.Remove (.Index) ElseIf KeyCode = vbKeyReturn Then 'si presio…

buenas tardes foreros de ayuda excel Me vendra muy bien su apoyo. al ejecutar el boton poliza, esta se crea en la hoja base coi, pero ala ves realiza el proceso de copiar la hoja base coi en un nuevo archivo con el nombre que tiene la celda I2 de la hoja filtro y ala vez la hoja base coi es renombrada con el nombre del archivo, pero en el mismo proceso e creacion del nuevo archivo se requiere eliminar la hoja en blanco que contiene, en el proceso sale el mensaje " pueden existi datos en las hojas seleccionadas para eliminar, para eliminar efinitava mente los datos, presione eliminar. - De entrada que ese mensaje no se visualice - el archivo se crea en mis docu…

Buenas noches, Mi consulta es la siguiente, estoy realizando un pequeño aplicativo pero no se como poder adjuntar un archivo outlook, o ver la forma de como poder crear un enlace (Link) en la celda y me lleve al correo en particular. Adjunto sólo imagen ya que recien estoy codificandolo y solo tengo la armason. Agradeceria cualquier ayuda o sugerencia que me puedan brindar. Gracias por su ayuda. Saludos. Imagenes.rar

Hola, aquí les va mi problema, espero que alguien me pueda ayudar. Tengo un formulario para el control de ordenes de compra en una empresa, al final del proceso mando hacer la vista previa de la imagen para después volver a aparecer el formulario y de ahí pulsando el botón guardar, enviar la orden de compra y/o requisición a imprimir y a respaldar como PDF en la carpeta correspondiente, así como el respaldo del registro de dichas compras o peticiones en un archivo de base de datos existente en la red. Mi problema es que me marca un error 1004 argumentando que no se pudo guardar el PDF. El depurador me resalta la siguiente parte del código Guardaren = directorio & …

Buenas Noches: Tengo los siguientes códigos: Esté código copia a la hoja con el nombre de la celda T2 Sub Copiar_tkt_a_Kardex() For Each Hoja In Worksheets If Hoja.Name <> "TKT" Then 'Comprobamos antes si la hoja está entre las mencionadas en la columna R Dim qRangoR As Range Set Origen = Range("T2") 'qRangoR = Application.Intersect(Columns("N:N"), Hoja1.UsedRange) For Each cell In Origen 'qRangoR If cell.Value = Hoja.Name Then 'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta ' Worksheets("TKT").Range("$A$3:$n$100").AutoFilter FIELD:=14, Criteria1:=Hoja.Name uFila = Worksheets("TKT").Range("A" & Rows.Count).End(xlUp).Row Works…

Buen dia! Hoy estoy trabajando en un programa para controlar tiempos de mantenimientos de maquina. Ya cree un ListBox donde me toma automáticamente todos los datos de una tabla de mantenimiento. LO que estoy buscando es que mi ListBox, ponga la fecha actual (seria la fecha de mantenimiento) solo en las casillas que están seleccionadas. Si están todas seleccionadas, todas. Ya tengo el ListBox que toma la Tabla automáticamente Tengo el Listbox Con las Casillas de Check en multiselection Solo me falta hacer que la(s) casilla(s) seleccionada(s) cumpla(n) una acción. Que seria Poner la fecha actual en la columna "K" Donde corresponda. Y que la fecha sea …

Hola En varias ocasiones me han ayudado con este mismo archivo en diferentes cosas, iré directamente a lo que necesito En la hoja Plantilla tengo estas columnas Columna P "PAIS" Columna Q "DEPARTAMENTOS" Columna O "MUNICIPIOS" En la hoja Bancos y Departamentos tengo todos los datos que se utilizan en la hoja plantilla Tengo la columna G y H con El cód y el nombre del departamento de todos los PAÍSES El la plantilla se debe seleccionar el País de una lista de nombres al hacerlo se va reflejar el código ej: Escojo Alemania y me escribe DE (para esto tiene un macro que trae los códigos), hasta ahí todo bien pero al intentar…

Como puedo utilizar una macro para asociar automáticamente las etiquetas de texto a los puntos de datos en un gráfico de burbujas. Por ejemplo en este caso cada burbuja deberia tener los valores del N°FD ( d1, d10, d14 , etc) Gráfico Burbújas.rar Gráfico Burbújas.rar

Buenas tardes compañeros. Tengo una duda espero alguien me pueda ayudar u orientar con lo siguiente: Tengo 2 libros: -Principal (hojas indefinidas) -Secundario (hojas indefinidas) Lo que me gustaría que hiciera la macro seria que por ejemplo del libro Secundario comparar las hojas de este libro contra las hojas del libro principal, si existe coinciden las hojas entonces haria lo siguiente: Libro secundario -- nombre de la hoja = Dato1 Libro principal -- nombre de la hoja = Dato1 Entonces si la hoja coincide en el nombre quiero copiar el rango de datos de b7 en adelante (no tiene rango definido pero todas la hojas comienzan en el B7) de libro secundario dato1 a …

Hola Amigos del Foro, estoy realizando una macro de filtros en un listbox, dentro del lisbox se tiene la opcion de estar seleccionando casillas, me pueden ayudar de como puedo guardar al estar seleccionando dentro del lisbox por medio de las casillas?? dentro del portal me encontre este ejercicio que adjunto, es lo que requiero pero a la hora de seleccionar el listbox quiero que me guarde lo seleccionado en la base de datos. adjunto ejemplo de los maestros del foro... espero me puedan ayudar en este pendiente y duda que tengo. gracias y saludos... Multiseleccion de ckeck y lisbox.xls

Buenos días. Estoy empezando con esto de la programación y pude solucionar muchísimas dudas gracias al foro pero tengo un problema con un formulario y no encuentro la manera de llegar a resolverlo. Tengo una tabla que se carga con un formulario y otro formulario con el que borro lineas de la tabla. En el formulario de borrado tengo un ComboBox que filtra por proveedor las lineas de la tabla y puedo borrarlas seleccionando de a una por vez, pero quiero borrar varias lineas a la vez y no logro que al seleccionar varios elementos del ListBox se seleccionen también las correspondientes celdas de la tabla y solo se selecciona la última linea elegida, asi que cuando le doy a…

Buen día a todos. Tengo un cuadro treeview, en vba de excel, y deseo insertar varias actividades pero tengo la cabeza muy enredada que no he podido lograrlo. La idea es colocar en el treeview lo siguiente: 1. Actividad 1 1.1 Actividad 11 1.1.1 Actividad 111 1.2 Actividad 12 1.3 Actividad 13 2. Actividad 2 2.1 Actividad 21 3. Actividad 3 3.1 Actividad 31 3.2 Actividad 32 . . . etc Adjunto el programa que hace cierta parte pero me enreda en la nivelación. Agradezco cualquier colaboración PDT.zip