Dante Amor

H o l a: Pon la siguiente macro en un módulo: Sub CopiarEnResumen() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 If h1.[A1] = "" Then u = 1 h1.Cells(u, "A") = h2.[B9] h1.Cells(u,...

H o l a: Te explico, lo que pides es muy complicado realizarlo. Te explico con un ejemplo: Escribes en la celda J7 la cantidad 5, entonces en la hoja "REP X TURNO", celda "I10" se almacena un 5.Escribes en la celda J8 un 5, en "REP X TURNO", celda...

Cambié los * por % También agregué LSTCLIENTES. Clear para que se vean únicamente los filtrados: Private Sub TXTBUSCACLIENTES_Change() bd = ThisWorkbook.Path & "\base.xlsx" Set conexion = New ADODB.Connection Set datos = New ADODB.Recordset...

Si la hoja se llamaba "algo" y entonces en temporal.[A10] tiene el texto "algo", luego le cambias el nombre de "algo" a "otro", y luego presionas F3, lo que hace la macro es tratar de seleccionar la hoja "algo", pero ya le cambiaste el nombre, por...

H o l a : Te anexo la macro actualizada. En las celdas deberás poner el nombre completo de la imagen incluyendo la extensión, ejemplos: Foto1.gif imagen.jpeg Sub InsertaFoto() 'Por.Dante Amor ActiveSheet.DrawingObjects.Delete ruta = "C:\personal\"...

H o l a : Te anexo el código que tienes que poner en el formulario. Primero pon la información de hora, minuto y segundo en las celdas B2, C2 y D2. En el formulario tienes que tener 4 botones, CommandButton1, 2, 3 y 4, para Iniciar, Detener,...

H o l a: Y cómo estás llenado los textbox. Lo que sucede es que cuando activas el formulario, todos los textbox están en blanco, a menos que, cuando lo activas tengas una rutina que ponga algún texto en los textbox. Te lo explico en otras palabras,...

H o l a: Te anexo la macro para poner la información en la siguiente fila vacía: Sub REGISTROS() 'Act.Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("VISITAS") Set h2 = Sheets("CARTERA") ' u =...

H o l a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor 'ActiveWindow.DisplayVerticalScrollBar = False 'ActiveWindow.DisplayHorizontalScrollBar = False 'ExecuteExcel4Macro...

H o l a: No estoy entendiendo bien cuál es la macro que envías a ejecutar y cuál es la que se ejecuta. Si tienes problemas con esto: Call DepositosFilasAzules65 Puedes cambiarlo por esto: Run "dichoso65agosto.xlsm!DepositosFilasAzules65" Debes tener...