Gabriel Pérez

Recuperé mi vieja cuenta, te paso el código; Private Sub UserForm_Activate() Dim Porcentaje As Double '1 Porcentaje = 0 Me.Caption = Format(Porcentaje, "0%") Me.Barra.Width = Porcentaje * Me.Frame1.Width DoEvents Call Corte1_1 '2 Call Corte1_2...

Espero que te funcione; Sub Macro_Base_de_Datos 'Ésta parte es para la primer fila de datos' Sheets("Hoja1").select Rows("1:5").copy sheets("Concentrado").select Range("A1").select Active sheet.paste 'Con esta parte podrás agregar más líneas o filas...

¡Claro! Espero que te sirva porque no visualizo bien los nombres de los libros, usaré tu código ya que te funciona perfectamente. Sub datos2() 'Estoy usando tu código' range("e147").select Workbooks.Open "c:\users\75070\desktop\nueva...

Si ésos códigos te funcionan 'por separado', sólo debes mandar llamar a las hojas, es decir: Sub Actualizar () 'Copié y pegué tus códigos suponiendo que funcionan' Sheets.("Aquí va el nombre de hoja").select Application.ScreenUpdating = False Dim...

Tengo entendido que VBA sólo actúa con otros Software's de Microsoft Office, no con demás aplicaciones como Chrome, Explorer y demás. Puedes grabar una macro haciendo tus procesos a automatizar, pero no creo que Excel reconozca lo que haces en otro...

Yo te recomiendo que crees un nuevo libro y lo guardes con toda la información del anterior, le insertas un botón (viene en el menú Desarrollador o Programador), si no tienes el menú en tu cinta de opciones lo habilitas; Archivo - Opciones -...

¿De qué columna a qué columna abarcan tus bases?

Con la fórmula de "Sumar.Si" puedes hacerlo dependiendo de cómo estén identificados los meses. Ejemplos: Enero - 1,500 Febrero - 20 Enero - 12,358 Marzo - 12 Marzo - 12 En este ejemplo aplicarías la fórmula 'sumar.si'....

Yo no sé cómo hacerlo por una macro, pero tengo una idea que te podría ayudar. FB; Gabriel Nattramn.

Te dejo mi FB para que me escribas; Gabriel Nattramn. Sub CorreoTodoExpertos() Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Asunto As String Dim Correo As String Dim Destinatario As String Dim Msg As...