Luis_P

Seguro, no hay problema. Image1.Picture = LoadPicture() ' limpiamos el control imagen Image1.Picture = LoadPicture(ListBox1 & ".jpg") ' cargamos la imagen En dondes ListBox1 es el nombre del archivo si ya viene con la extensión jpg, pues solo elimina...

Prueba: Private Sub CommandButton1_Click() 'agrega coincidencias a list '4c7569735f50 Dim t As Long Dim i As Long t = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) ListBox1.Clear For i = 1 To t If InStr(1, Sheets(1).Range("A" & i),...

Eso te pasa por que la apertura de la conexión OLEDB solo se establece una vez, cuando "abres" el primer form... luego cuando presionas volver, la conexión no se cierra, por cuanto si presionas nuevamente "entrar", tratas de abrir nuevamente una...

mejor utiliza una estructura select case Sub llama_macro(indice As Integer) ' en donde indice es el numero del check que presionaste Select Case indice Case Is = 1 Call macro1 Case Is = 2 Call macro2 Case Is = 3 Call macro3 Case Is = 4 Call macro4...

Si las fechas las pones en col A Entonces =si(a1<=(hoy()+30);"en plazo";si(a1>hoy()+30 =y(a1<hoy()+40);"consultar al vendedor";si(a1>hoy()+40;"reclamar al vendedor";""))) No olvides cerrar la pregunta

if len(text1)=0 or len(text2)=0 or len(text3)=0 or len(text4)=0 then exit sub Esta linea evalúa si alguno de los text no tiene datos, te saca del sub de inmediato, por lo general se pone como primera linea antes de realizar cualquier operación que...

Estuve revisando tu macro, pero creo que lo más conveniente seria tomar la fecha a buscar, aplicar un filtro sobre la columna I en función de esa fecha que te interesa copiar y luego solo selecconar el rango completo de datos para copiarlos en otra...

Prueba esta función: Inserta un modulo y en ese modulo: Option Explicit Dim t As Integer Function bono_vacacion(ByRef dias As Integer, ByRef año As Integer) '4c7569735f50 If año >= 0 And año <= 1 And dias = 0 Then t = 7 If año > 1 And año <= 2 And...

Y así: Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRight Then Label1.FontSize = Label1.FontSize + 2 ElseIf KeyCode = vbKeyLeft Then on error resume next Label1.FontSize = Label1.FontSize - 2 End If End Sub

Utiliza la función "texto en columnas" ubicada en la pestaña "datos", selecciona "espacio" como delimitador.