Richar Chavez

Valero Angel Serrano Mercadal respondió: · · Por lo que he leído haz esto: Private Declare PtrsSafe Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As LongLong Private Declare PtrSafe Function SHBrowseForFolder Lib...

Elsa Matilde respondió: Ya te envié ejemplo a tu correo, si no lo recibiste o no se entendió el modelo, escribime nuevamente.

Cadipas spain respondió: Creo que te entiendo, pero para aclararme mejor te envío mi e-mail para intercmbio de ficheros. Ya te daré la contetación.

Elsa Matilde respondió: Esta rutina se ehecutará con cualquier cambio en el textbox, ya sea introduciento valores en él, o como resultado enviado desde otra instrucción. Private Sub TextBox1_Change() If Val(TextBox1) < 0 Then TextBox1.ForeColor = vbRed Else...

parmijo respondió: Prueba con lo siguiente Private Sub CommandButton1_click() IF Optionbutton1 = true ' si esta activado textbox1.value= val(Textbox1.value) +1 else extbox1 = "" end if end sub

Elsa Matilde respondió: Así te quedaría la rutina del optionbutton1, justo debajo de la línea que activa la hoja BDcompras: If Activesheet.range("A2") = "" then Label12.Caption = 0 'esto para la 1ra vez que la tabla estará vacía else Label12.Caption =...