Estimados, Les presento mi problema que espero me puedan dar una guía de como resolverlo. Por temas de presentación en un reporte de excel tengo que poner una tabla dinámica bajo la otra tabla dinámica, el problema que tengo como es evidente es que el momento que quiero expandir la tabla dinámica superior no me deja por que no se puede superponer sobra la tabla dinámica inferior. Para solventar este problema quería aplicar una macro en VBA de excel que permita hacer lo siguiente: Encontrar el evento de la tabla dinámica que cuando de clic en el "+" para expandir la tabla dinámica lo primero que realice la macro se contar los hijos que contiene. …

Buenas tardes a todos! Tengo una base de datos de la cual necesito que mi macro busque una palabra y la reemplaza por otra, mi codigo lo hace pero el proble es que si es una palabra compuesta no modifica tod el texto es decir si tengo en mi tabla lo siguiente: 1.-velo 2.-velo 1 3.-velo 2 4.-Velo 5.-VeLo y lo quiero cambiar por la palabra VELO solo se modifican la 1,4 y 5 les envio mi codigo espero puedan orientarme Sub Reemplazar() Dim Tex As Variant, Car As Variant, Lar As Integer Application.ScreenUpdating = False On Error Resume Next Set a = Sheets("Hoja1") uf = Range("E" &am…

Buenas Tardes Chicos, Quisiera me orienten con este archivo que manejamos varias personas, el tema es que en una celda del excel anotan una hora para hacerle una llamada a una persona, quería sabe si es posible que, cuando sea ese dia y la hora , me arroje un mensaje indicando que se debe hacer la llamada , Por favor su orientación, Saludos desde Chile. hora.xlsx

Hola de nuevo amigos, por aqui con un problema que me cuesta resolver, les explico, tengo una orden dentro de un evento if If TotalV.Text = Previsto.Text Then TextBox75.BackColor = vbRed End If Esto funciona bien, el problema lo tengo en las matematicas y me da el error If TotalV.Text 10% Previsto.Text Then TextBox75.BackColor = vbRed End If La orden le diria que si el valor del TotalV es el 10% del valor de Previsto me coloree el text. pero me lanza error y me dice que no se puede hacer la operacion Muchas gracias por anticipado por su colaboracion Saludos cordiales

https://ayudaexcel.com/foro/topic/8996-abrir-abrir-y-guardar-link-internet/ Buenos días, El archivo adjunto (Autoria, Juan alias nvr)abre un link de internet y se guarda en una carpeta. pero el link que esta en el archivo adjunto no abre, tampoco se guarda me da error. Echenme un cable, que esta mal en el link. Saludos, César DescargarArchivos3-nvr.xls

Buenas tardes todos Master del Excel... estimados es posible algun control de facturas ? la Idea es que el formulario me Alerte que el Numero de la factura del Proveedor ya fue ingresada (que No se repita en ingreso de una factura del prov.) desde ya gracias Totales.. para uds. atte Milton no se como subir el archivo ya que pesa 570 mb comprimido https://drive.google.com/drive/my-drive

Buenas, un favor, tengo un problema con la ejecución de una macro donde quiero que un libro luego de rellenarlo se guarde con otro nombre y se cierre pero cuando ejecuto la macro no se ejecutan esos dos pasos Windows(Lname).Activate Range("D17:F51").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("CARATULA").Activate ActiveWorkbook.SaveAs Filename:= KName & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Workbooks(KName).Close …

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 a todos: Necesito ayuda con un archivo que tengo, con dos columnas: la columna A con CLAVES y la columna B con FECHAS de todo un año. Con una macro, asigno en la columna C el Nº DE SEMANA de la fecha de la columna B (calculada para Excel 2007). Lo que quisiera es que copie todas las filas, incluida la cabecera, hasta que encuentre una fecha del mes de diciembre del mismo año que tenga como nº de semana el 1 (lo que querrá decir que ya es una semana del año siguiente), las pegue en la hoja2 y las del mes de diciembre con nº de semana 1 las copie y pegue en la hoja 3. Por ejemplo, en el archivo que adjunto necesitaría que copie desde la fila 1 hasta la 8…

Saludos muy comedidos, deseo ayuda para que mediante alguna macro pueda directamente asignar una letra para que la macro se ejecute con Ctrl + la letra de la celda respectiva. En el ejemplo la macro muestrapass manualmente se le asignado la letra "s" y la macro ocultapass se la asignado la letra "o", de esta forma al aplicar Ctrl+s muestra la Hoja PASS y con Ctrl+o oculta la Hoja PASS. las letras se las ingresa en la Hoja PASS Gracias ejecutar macro opciones Ctrl mas letra en celdas.xls

estimados se podra realizar la Division de un valor que tenga un Textbox3 por el valor que indique el Combobox1? con resultado en 4Combobox desde ya agradecido atte Milton fecha de pago.xlsm

buenas tardes...a todos..los master bueno les comento que en mi Formulario cuando ingreso fecha ejem.11 de marzo y despues al grabar lo lleva a la planilla de excel como 03 del 11 por favor me pueden ayudar a solucionar detalle ..(Gracia Totales) fecha de pago.xlsm

¡Hola! Estoy trabajando en un libro con bastantes fechas y sumas, así que recurrí a un macro para agilizar el llenado de una plantilla. Es algo complejo de explicar pero trataré: Subí un ejemplo con colores para ser mas especifico. Tengo una tabla que ocupo para vaciar datos, con una fecha legal (que me sirve de guía) y fechas de migración con el numero de documentos. Mediante dos combobox selecciono el rango de fechas a trabajar (Hoja "signos" columna A), necesito copiar ese rango de fechas a la hoja "Plantilla" celda C12 en adelante (en el ejemplo use del 22-02-19 al 26-02-19), luego, en D12, deberá buscar la fecha mas antigua del día legal, en el ejemplo corr…

Buenos días Estoy intentando hacer copias automáticas de seguridad del libro de trabajo (libro1.slxm) cada vez que se cierra el libro. Las copias se guardarán en la carpeta Bakup (que se encuentra en la misma ruta que el libro de trabajo), y deseo conservar sólo las tres últimas copias mas recientes. ¿Me podrían ayudar? Un saludo y gracias anticipadas

chicos, Alguien tiene algún ejemplo de al momento de hacer click en un checkbox te cuente 1 y pegue ese valor en una celda(Celda A30), y al momento de volver seleccionar de nuevo el mismo checbox te pegue el valor 2 en la celda A 53 y asi hasta el infinito y mas alla? seria de mucha ayuda para lo que estoy haciendo y no se me ocurre como hacerlo. gracias y saludos

Hola, Tengo varias hojas en un mismo archivo Excel y necesito que pulsando un botón se impriman todas las hojas seguidas, sin que se imprima una hoja en cada folio. Es decir, si tengo 3 hojas y en la hoja 2 no hay nada escrito, que imprima la hoja 1 y a continuación la hoja 3, sin imprimir la hoja 2 que está en blanco. Si pudiera ser, si la hoja 1 solamente ocupa la mitad de la página, que la hoja siguiente se imprima a partir de esa mitad de página. Muchas gracias por vuestra ayuda.

Buenas tarde estimados: Les agradecería me ayudaran a darle una nueva presentación a los registros de una base de datos. Lo que preciso es extraer los datos de la Hoja1 para que los muestre en la forma en la Hoja2 del ejemplo. Gracias de antemano Libro1.xlsm

Buenas a todos, tengo un problema cuando configuro una hoja en la impresora EPSON imprime bien, pero cuando quiero imprimir en una HP o CANON se desconfigura la configuración en la que está bien configurada. Vi algunos archivos de Excel, no sé cómo lo hacen pero en cualquier marca y modelo de impresora imprime bien. No quiero convertirlo en PDF quiero imprimir directamente. Gracias.

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Buen Día Comunidad, Espero me puedan apoyar, tengo la siguiente macro que me habre un link mediante un ribbon a través del navegador internet explorer y funciona, solo que quiero en caso de tener abierto, lo habra sobre el que ya se encuentra abierto, en una nueva pestaña, Sub ejemplo(Matriz As IRibbonControl) Set WebUrl = CreateObject("InternetExplorer.Application") WebUrl.Navigate "https://ayudaexcel.com" WebUrl.Visible = True End Sub Quedo al pendiente y agradezco de su apoyo,

Buen día Estoy trabajando en una tarea donde tengo que construir rostros y en una hoja de Excel pegar la imagen construida (controles imagen) con los datos insertados en el formulario. Me podrían ayudar? Gracias. Adjunto la imagen del formulario. Lo que me falta es capturar el rostro que ya formé y pegarlo en una hoja de Excel.

La impresion predeterminada en la impresora de mi empresa es en blanco y negro. Como puedo hacer para que una macro VBA que imprime un listado de archivos lo haga en color ?

copiar y pegar.xlsx

¡Hola! Estoy creando un macro que contiene un formulario para llenar las celdas consecuentes a la selección del combobox que es la fecha. Me he detenido en un punto, donde no se como hacer referencia a la celda seleccionada en el combobox (Fecha Legal). Con esa Fecha lo único que necesito es que al dar clic al botón capturar, vacié esos datos. El formulario ya esta prácticamente completo. Estuve buscando como hacer refencia a la celda que contiene la fecha seleccionada en el combobox pero nada. Muchas gracias. SIGNOS.xlsm

Hola amigos por aca de nuevo pidiendo de su apoyo, ten mun userform donde tengo un ComboBox como buscador este funciona bien pero ahora quisiera que al seleccionar o buscar un articulo de la lista del ComboBox1 aparesca la imagen en un control Image1 la cual esta en una carpeta llamada imagenes donde esta el archivo, la imagenes tienen el nombre que aparece en textbox1 Private Sub ComboBox1_Change() If ComboBox1 <> "" Then TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox4 = Empty ComboBox2 = Empty End If Dim c As Range With Worksheets("Inventario").Range("B2:B1000000") Set c = .Find(ComboBox1, , LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing…