David Arenas Montoya

Dante Amor respondió: Revisa lo siguiente: Sub Actualizar() ActiveWorkbook. RefreshAll DoEvents Application. Wait Now + TimeValue("00:00:05") DoEvents ' 'Aquí pon tu código End Sub Cambia los 5 segundos a 1 segundos para comprobar si ya se actualizó , si hace falta más...

chiquilin06 respondió: Pues eso no existe bueno que yo conozca Porque diferencia mucho del lugar donde este corriendo la aplicación ok por ejemplo en mexico ay días festivos que no se festejan en Estados Unidos Mira lo que tu ocupas saber es para que país son los días...

h1= hoja origen h2= hoja destino '''''''''''''''' Sub SUMAIGUALES() H1 = '''' H2 = '' FILA = 2 fila2 = 2 Do While Worksheets(H1).Cells(FILA, 1).Value <> "" valor1 = Worksheets(H1).Cells(FILA, 1).Value flag = False '' variable que determina si la...

Sub generacopia() Application.ScreenUpdating = False ActiveSheet.Select ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.ScreenUpdating = True...

En el evento CheckBox1_Click colocas la siguiente rutina rutina Private Sub CheckBox1_Click() if checkbox1.value = true then combobox.enabled= false else combobox.enabled=true end if end sub

Una solución simple puede ser que generes una rutina que te cambie en algo el esquema de trabajo, y es que tengas una planilla maestro para la generación de las ordenes, la cual cuando la finalices te genere el archivo nuevo con el numero de orden...

Sub hojas() c = 0 ' cuenta las hojas del libro activo For Each Ws In Worksheets c = c + 1 Next Ws Application.ScreenUpdating = False c = c - 1 For f = 1 To 3 Sheets("hoja2").Copy After:=Sheets(c) ' Suponiendo que Hoja2 es la que deseas copiar...

Es más sencillo hacerlo con una fórmula prueba esta =SI(DIA(H34)>18;DIA(H34)&"/"&MES(H34)+1&"/"&AÑO(H34);H34)