Hola, para ocultar la cinta de opciones en el libro activo he utilizado el siguiente código, no obstante, aunque me permite pegar datos copiados entre hojas del mismo libro en las celdas desbloqueadas, cuando copio datos de otro libro se deshabilita las opciones de pegado. Private Sub Workbook_Activate() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" End Sub Os agradezco vuestra ayuda, muchas gracias.

Buenas tardes, tengo el siguiente código, pero no sé qué instrucción necesito agregar para que pegue solo los valores de la celda copiada. Ya que me manda error de compilación, de antemano, gracias por la ayuda Sub FirstVisibleCell() With Worksheets("Seguimiento").AutoFilter.Range ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2 Selection.CurrentRegion.Select Selection.SpecialCells(xlCellTypeVisible).Select ActiveCell.Copy Destination:=Range("F1").PasteSpecial xlPasteValues End With End Sub

Hola a todos, vengo en busca de su ayuda. Tengo una carpeta con varios PDF, quisiera listarlos en una hoja de excel, luego identificar los que tengan el mismo nombre y esos que están duplicados o que sean copias (por ejemplo: archivo.pdf y archivo(1).pdf o copiadearchivo.pdf) esos documentos que se llamen igual o sean copias que los pueda unir en un archivo de pdf en otra nueva carpeta. Ejemplo: 1.pdf 1(1).pdf 2.pdf 2.pdf 3.pdf 3(1).pdf 4.pdf Copia4.pdf ... Que la nueva carpeta contenga: 1.pdf [sería la unión de 1.pdf y 1(1).pdf ] 2.pdf [sería la unión de 2.pdf y 2.pdf ] 3p.df [sería la unión …

Hola, tengo la siguiente tabla: date employee motive text 01/01/2022 PETER B baja 01/01/2022 MARY R ruta 01/01/2022 ANN R ruta 02/01/2022 PETER B baja 02/01/2022 MARY R ruta 02/01/2022 ANN R ruta 03/01/2022 PETER B baja 03/01/2022 MARY R ruta 03/01/…

Buenos días a todos y gracias de antemano por su atención. Tengo una hoja Excel con varias pestañas: en la primera de ellas aparece una estructura y, en la segunda, una base de datos. En la mencionada estructura existen una serie de registros que son la "columna vertebral" de la base de datos. En la base de datos existen unos "ids" los cuales tienen que tener todos los registros de esa estructura. Sin embargo, por diversas necesidades, a veces es necesario cambiar esa estructura y, por ende, todos los "productos" de la base de datos. Al tener muchos registros (ids) en la base de datos se me hace casi imposible hacerlo de forma manual por lo que necesitaría …

Hola Buenas Agradecería mucho su ayuda Busco copiar datos de un libro a otro, en este caso se llama [Exhibit Esc1.xlsx]1. Mina (Nombre de libro y pestaña) La problemática surge que son muchas celdas las que debo copiar y lo debo hacer con varios libros diferentes, entonces debo cambiar esa dirección de origen en todo. Mi idea es dar un valor de variable a la dirección de origen para luego solamente cambiar la variable. Dejo un ejemplo de como me funciona y lo que quiero hacer Saludos Funciona así: Sub Report2() Range("D22").Select ActiveCell.FormulaR1C1 = "=SUM('[Exhibit Esc1.xlsx]1. Mina'!R21C5:R21C7)" Range("…

Hola a todos; -Estoy trabajando con dos InputBox y no se sí realmente está bien lo que adjunto. Funcionar si funciona pero desconozco si es del todo ortodoxo o hay otro método mejor. Buen día a todos. 2Input.xlsm

Hola Amigos buenas tardes, ¿De casualidad alguien ha hecho consulta desde Web service de tipo POST desde Excel?

Buenos dias amigos mios, porfavor como seria una macro en excel que me empieze a numerar celdas: 1ro: Que la macro pida Prefijo, ejemplo: Item 2do Que la macro pida Numero inicial, ejemplo: 78.00 3ro que la macro pida una constante, ejemplo: 0.02 4to empezar la numeracion en un celda cualquiera: Celda C4= Item 78.00 Celda B5= Item 78.02 Celga G10= Item 78.04 y asi susecivamente, hasta finalizar con un esc.

Hola, necesito que me ayuden con este planteamiento. Necesito cargar desde una Hoja de Excel a tres ListBox todos los registros de Cuenta seleccionada de la Hoja Resumen Crat-Cli (Columna A) que encuentre en la Hoja CartolaCli (Cuenta, Razón Social, Vencimiento, Monto o Importe). Estoy usando el método FIND para una búsqueda más dinámica. En cada ListBox se deben cargar por Clase de Documento: Factura (DF) Nota Crédito (DN) Transacción (DZ-AB-DD) En el caso de Factura están separado la suma de su importe de acuerdo a la fecha de vencimiento. -Si la deuda ya venció mayor a 30 días. -Si la deuda ya venció entre 1 y 30 días. Me sale error al cargar los r…

Buenas tardes, necesito, por favor, una macro para que cuando yo tenga una base de datos con muchas fechas e introduzca una nueva fecha que esté repetida, aparezca un mensaje que diga "esa fecha ya está usada" Muchas gracias!!!

Hola Amigos y Amigas, necesito que me ayuden con este planteamiento. Necesito cargar desde una Hoja de Excel a tres ListBox todos los registros de la Cuenta que la Hoja Resumen Crat-Cli encuentre en la Hoja CartolaCli (Cuenta, Razón Social, Vencimiento, Monto o Importe), El evento debe suceder al dar Enter “ONKEY” en la celda de la columna A donde está la cuenta en la Hoja Resumen Cart-Cli. La Cuenta y Razon Social encontrada debe cargar en el encabezado del Form1, el vencimiento y el importe de debe estar distribuido en tres ListBox según condición de Clase de Documento: Factura (DF) Nota Crédito (DN) Transacción (DZ) En el caso de Factura están separado la suma de s…

Hola a todos; -¿Es posible trabajar con símbolos usando formularios? En la macro que adjunto cargo el símbolo en un TextBox al pulsar un botón, esto sucede porque previamente lo he insertado. Lo que quiero conseguir es que al pulsar ese mismo botón yo inserte dicho símbolo que tenga almacenado en una "variable o Label" sin necesidad de tener que cargarlo de dicha hoja. Adjunto macro con detalles. Saludos a todos MCaracteres.xlsm

Buenas tardes, Necesito un libro de excel en la que con una macro, copie una hoja las veces que sean y que lo nombre del 01 de enero hasta el 31 de diciembre. Es posible??? os adjunto archivo en el que tengo la macro pero nombra a las hojas con números. muchas gracias prueba.xlsm

Hola nueva,ente colegas. Profesor JSD, como le explicaba, ayer en la noche estuve haciendo algunas validaciones en el sistema, pero en la revisión me di cuenta que en el TxtPrecio me está multiplicando el valor por 1000. Cuando te remites a la Hoja Tarifario, en la Fila 160 vas a encontrar el precio de este servicio (Factura 21 - Playa Paraiso) Servicio Mtto Impresora Laser que es a $ 420.00, sin embargo el precio lo pone a $ 42 000.00. Adjunto archivo. Profesor, disculpe tantas molestias, en verdad me siento apenado. Un saludo cordial profesor. Mis respetos. Pino Facturación BM v6.0.0 JSD.xlsm

Tengo un archivo de Excel con macros para una gestión de biblioteca en la cual he agregado un ListBox para buscar usuarios en una tabla "Usuarios", necesito que después de realizar la búsqueda, al hacer un doble click en un registro desplegado en la lista, posicione el cursor en la tabla y en la celda de la primera columna del registro seleccionado con el doble click, esto es lo que tengo: Private Sub TXTBusqUsuario_Change() NumeroDatosUsuarios = Hoja2.Range("B" & Rows.Count).End(xlUp).Row Hoja2.AutoFilterMode = False Me.LBXUsuarios = Clear Me.LBXUsuarios.RowSource = Clear y = 0 For fila = 8 To NumeroDatosUsuarios Descripcion = Hoja2. Cells(fi…

Hola a todos Intento que esta macro me proteja todas las hojas y me active el autofiltro en todas las hojas, pero solo me activa el autofiltro en la hoja activa, en el resto no. ¿Me podeis ayudar? estoy bloqueado... Sub Proteger_libro() On Error GoTo fin Dim sht As Worksheet Application.ScreenUpdating = False ActiveWorkbook.Protect ("contraseña") For Each sht In ActiveWorkbook.Worksheets If sht.Visible = True Then sht.Protect ("contraseña") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True End If …

Buenos días a todos de nuevo. Busco ayuda en este asunto porque voy muy perdido. Tengo un archivo con dos hojas, "Principal" y "CargaWeb". En la hoja Principal quiero traerme las filas de CargaWeb donde los datos no se repitan en Principal. Pero el primer problema es que la hoja CargaWeb no siempre tiene las columnas en el mismo orden. Aunque es cierto que los títulos que necesito en Principal están en CargaWeb. He creado un fichero de muestra y veréis que en Principal hay muchas columnas, las que está coloreadas son las que necesito rellenar. Es decir tengo dos problemas, uno que los datos no se han de repetir (en este caso por ejemplo PROVEEDOR y NUMERO DE DOC…

Hola... podría alguien ayudarme a extraer el valor seleccionado en una segmentación de datos y obtenerla en una celda de excel? Muchas gracias

Buenos días colegas. Espero se encuentren bien de salud. En el Sistema de Facturación que he estado trabajando y que el profesor JSD me ha estado ayudando necesito hacer algo que realmente no encuentro cómo hacerlo. Yo Guardo las Facturas en PDF en un a carpeta (D:\Facturación\Facturas), pero cuando necesito hacerle una modificación (FrmModificarFactura) a una Factura "X", necesito que me sobre escriba el archivo ya existente pero con los cambios que se le haya hecho a dicha factura. Intenté hacerlo con el condicional IF, pero parece que algo no estoy haciendo correctamente y necesito resolver este problema. Ejemplo: Yo confeccioné la Factura Nº 16 Fincimex…

Hola a todos, he puesto un control de errores en un procedimiento y se duplica el mensaje de error dos veces y no se porqué lo hace. El procedimiento es este: Sub InsertarTabla() On Error GoTo Etiqueta Dim nTabla As String nTabla = ActiveSheet.ListObjects(1).Name ActiveSheet.Range(nTabla & "[#All]").Select Selection.Copy Etiqueta: If Err.Number = 0 Then 'Correcto ElseIf Err.Number = 9 Then 'No sé porque repite dos veces el mensaje, si no hay ninguna tabla debe destildar el check MsgBox "No hay ninguna tabla, operación cancelada", vbCritical, "Mensaje" UserForm1.CheckBox1.Value = False '---> Si comen…

hola ingrese esta formula en vba y por alguna razon si utilizas la misma formula en una celda, si tienes el resultado en toda la columna, osea si se aplica sin problema; pero cuando lo hago en codigo se aplica en algunas celdas de la columna y en otras arroja un 0, como si no existiera resultado... no se que sucede que hice mal... alguien me puede explicar. Private Sub Worksheet_SelectionChange(ByVal Target As Range) uf = Range("A" & Rows.Count).End(xlUp).Row With Range("B2:B" & uf) .Value = _ "=XLOOKUP(1,(espejo[Orden Number]=A2)*(espejo[role aprobador]=""capataz""),espejo[nombre approbador])" …

Hola, me gustaría hacer un excel en el que las casillas de verificación se colocaran en una fila y en la fila inferior mostrara el resultado TRUE o FALSE. Arrastrando las casillas no es posible hacerlo y he encontrado buscando un módulo pero es para hacerlo en columna. ¿Se podría hacer lo mismo pero como yo lo quiero? Decir que no tengo mucha idea de VBA. Esto es lo que he encontrado. Sub LinkChecks() 'Update by Extendoffice Dim xCB Dim xCChar i = 2 xCChar = "B" For Each xCB In ActiveSheet.CheckBoxes If xCB.Value = 1 Then Cells(i, xCChar).Value = True Else Cells(i, xCChar).Value = False End If xCB.LinkedCell = Cells(i, xCChar).Address i = i + 1 Next x…

Combinar celdas iguales en fila - macro Hola, tengo una necesidad, que llevo varios días buscando solución pero no he logrado encontrar en la web ninguna macro que me pueda ayudar. Ya estoy algo desesperado, ojalá me podáis ayudar. Tengo una Carta GANTT con los días en una fila, las semanas en otra fila y el mes en otra fila. Para poder automatizarlo he puesto en cada celda de la semana o mes, una fórmula. Lo que necesito es que cuando clique en un botón se unan todas las celdas, tanto de la fila semana como de la fila mes, que estén seguidas y sean iguales (es posible que haya semana 23 de distintos años, por eso necesito que una solamente las celdas que están s…

Hola, tengo la siguiente duda, necesito pasar de columna a fila de manera masiva, ejemplo: Lo que tengo: 4321; A04 4321; A03 4321; A04 8765; A01 8765; A02 8765; A03 Y lo que necesito es: 4321; A03; A03; A04 8765: A01; A02; A03 Son varios códigos distintos (4321, 8765q), con distintos datos que cambiar de columna a fila, ocupar la función trasponer me ocupara mucho tiempo.