antares18

No sé si lo pudiste resolver pero te dejo esta función. Uso vba 7 porque uso el office 16. Escribe OUTLOOK.EXE en cualquier celda y al usar la función has de seleccionar la celda donde pusiste la palabra OUTLOOK.EXE. Si se está usando saldrá...

En la foto 3 el Userform1. Listbox3 que datos tiene o con qué columna se relaciona.

Donde pones los p-1 prueba Str(p-1)

No hace falta complicarte pon el valor de "O40" después de neto. Después entre las 2 funciones te creas una variable. Dim anadir_cero as string anadir_cero="0"+Range("O40") Y después pon if(cint(anadir_cero)>0) then 'Cint suponiendo que el valor de...

Has de poner, teóricamente (Nombre de la hoja). Showalldata. Ej Hoja1. Showalldata Si tienes varios filtros en la hoja te los quita todos. Si tienes 4 filtros, no puedes quitar 1 o 2 o 3, te quita los 4

Private Sub CommandButton1_Click() Call codigo(cod) ' Desde donde quieras llamar a la sub End Sub '---------------------------------------------------------------------------------------------------- Sub codigo(cod As String) Dim i As Integer i = 2...

He de suponer que quieres que el "Good morning" salga como título y el "The time is:" como texto del mensaje. Dim titulo As String Dim Mensaje As String Dim i As Integer Select Case time Case Is <= 0.5 titulo = titulo + "Good morning !. Welcome to...

Lo rápido sería cambiar Sheets("ReqNut"). Range("A1:H23"). Copy Por los demás rangos de las hojas cambiarlos a mano en la sub. Si quieres hacerlo con una sub. Te pongo lo que saldría con el ejemplo que has dado. Private Sub cmdExportar_datos_Click()...

Yo he hecho cosas de filtrado pero en las celdas no en un formulario, las columnas del formulario que control activeX es. A no ser que quieras filtrar las celdas y luego cargues los datos en el formulario otra vez. Que quieres hacer

Si quisieras sumar el 1o y el 2o tal como dices sería Private Sub VENTA1_Change() PRECIO1.ListIndex = VENTA1.ListIndex CheckBox1.ListIndex = VENTA1.ListIndex PRECIO1.list(1)+PRECIO1.list(2) End sub