Javier Boniuk

230283 respondió: A esto se llama "desactivar la actualización de pantalla" el cual agiliza el proceso. En tu caso, tendrás que colocar 2 lineas de código. Estas dos lineas estarán entre el código que tu tienes. Application.ScreenUpdating = FALSE 'Tu codigo...

Gregorio Villarreal respondió: Intenta agregándole este código, toma en cuenta el nombre de las hojas. Sheets("Hoja5").Select Range("A2").Select Selection.End(xlDown).Select Selection.Copy Sheets("Hoja1").Select Range("h68").Select ActiveSheet.Paste Application.CutCopyMode = False

Andy Machin respondió: Para esto, almenos una columna entre A y V debe tener datos siempre (no permitir campo en blanco). Suponiendo que esa columna sea la A, puedes usar este código: Sub JavierBoniuk() Dim srcSht As Worksheet: Set srcSht = Sheets("Sheet1") Dim dstSht As...

Dante Amor respondió: Va el código Private Sub CommandButton3_Click() ' Por Dante Amor ' Buscar en todas las hojas ' ComboBox2.Value = "" ComboBox3.Value = "" ComboBox4.Value = "" TextBox4.Value = "" TextBox4.Value = "" ' If ComboBox1.Value = "" Or ComboBox1.ListIndex =...

Carlos Arrocha respondió: En las celdas o columna cambia el formato

Elsa Matilde respondió: Hay tan poca información que solo dejo instrucciones de ejemplo para que agregues en cada evento que señalo. Debes reemplazar nombre de hoja en apertura y cierre, tu clave, los permisos con los que se protegerá la hoja y la ubicación de la fecha/hora...