LEONARDO DANIEL OLIVA VALENCIA

Dante Amor respondió: Solamente habría que quitar el segundo Exit For, para que continúe. Te regreso el código con algunos cambios: Private Sub ModificarCliente() Dim i As Integer Dim Final As Integer Final = Hoja10.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Final...

Ander GS respondió: Leonardo Daniel, Adjunto en enlace el desarrollo de tu consulta para su revisión. Como alternativa se empleo la función SUMAR. SI. CONJUNTO() para mostrar la tabla de resultados según lo indicado. Filtrar datos textbox y poner totales según fecha

Dante Amor respondió: Después de que hayas terminado de actualizar el libro, pon estas líneas: carpeta = "C:\trabajo\" archivo = "pedidos.xlsx" Workbooks(NombreArchivo).SaveAs _ Filename:=carpeta & archivo, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False...

Abraham Valencia respondió: En general siempre el uso de Application. Ontime genera cierta "inestabilidad" (como ya te has dado cuenta), incluso a veces hace que los archivos se abran "solo" o mantiene "parpadeando" el Excel. Una forma de (intentar) detenerlo es algo como lo...

James Bond respondió: ¿Es esto lo que buscas? entonces esa es la macro que ocupas solo pegala en tu userform Private Sub UserForm_Initialize() Set datos = Range("b2").CurrentRegion f = datos.Rows.Count With ListBox1 .ColumnCount = datos.Columns.Count .RowSource =...

Dante Amor respondió: Para pasar a otra hoja puedes hacerlo de esta forma, con esto no es necesario que selecciones la hoja destino, es decir, si estás en la hoja1, se va a guardar en la hoja2, cambia en la macro "Hoja2" por la hoja que desees. Private Sub...