David Arenas Montoya

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

Claro que es posible, pero seria más fácil conocer por lo menos la estructura del archivo origen de los datos. Si quieres me envías una muestra (solo de la estructura por que me imagino que la información es confidencial), y lo revisamos

Lop puedes hacer de 2 formas 1 es con una simple formula en la casilla que quieres tener el dato, ejm M1=a1&b2&... los datos que requieras, si requieres insertar un separador seria asi M1=a1&"/"&b2&... 2 La segunda seria con una rutina. Suponiendo...