David Arenas Montoya

Tengo una rutina que en su desarrollo llama la instrucción workbooks. RefreshAll, ya que el paso siguiente depende del resultado de una consulta entre tablas (power query), pero ocurre que el tiempo de ejecución de la rutina es más eficiente que el...

Buen dia requiero cambiar el formato de .Tif a .gif de una imágenes que tengo en una carpeta, sera posible hacer esto desde VBA? De antemano agradezco su disponibilidad al analizar este caso.

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)

Private Sub CommandButton1_Click() If TextBox1 = "" Then Load UserForm4 UserForm4.Show psw=1234 if inputbox("Ingrese la contraseña")=psw then ListBox1.RemoveItem ListIndex else msgbox("Contraseña incorrecta") end if Unload Me Else Unload Me End If End Sub

Así te la borra con doble click Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBox1.RemoveItem ListIndex End Sub