Asdada

Rellenar_facturables - 1

Private Sub ComboMARCA_Enter() On Error Resume Next ComboMODELO.Clear For L = 10 To Sheets.Count ComboMARCA.AddItem Sheets(L).Name Next End Sub

Private SubComboMODELO_Change() On Error Resume Next Cells(ComboMODELO.ListIndex + 2, 2).Select TextBoxMODELO = ActiveCell.Offset(0, -1) TextBoxPRECIO = ActiveCell.Offset(0, 1) & " €" End Sub Private SubComboMODELO_Enter() On Error Resume Next Application.ScreenUpdating = False ComboMODELO.Clear lista_corresp = ComboMARCA.List(ComboMARCA.ListIndex) Sheets(lista_corresp).Select Range("B2").Select Do While NotIsEmpty(ActiveCell) ComboMODELO.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop End Sub Private Sub CommandButtonACEPTAR_Click() Sheets("Presupuesto (2)").Select ActiveCell = ComboMARCAActiveCell.Offset(0, 1) = TextBoxMODELO ActiveCell.Offset(0, 2) = ComboMODELO ActiveCell.Offset(0, 4) = CDbl(TextBoxPRECIO) ComboMARCA.Clear ComboMODELO.Clear TextBoxMODELO = "" TextBoxPRECIO = ""Rellenar_facturables.Hide End Sub

Rellenar_facturables - 2 Private Sub CommandButtonACEPTAR_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, By Val X As Single, ByVal Y As Single)CommandButtonACEPTAR.Picture = LoadPicture("C:\Users\Miguel\Pictures\Plantillas y recursos\BOTON ES\verde.jpg") End Sub Private Sub CommandButtonCANCELAR_Click() ComboMARCA.Clear ComboMODELO.Clear TextBoxMODELO ="" TextBoxPRECIO = "" Rellenar_facturables.Hide Range("G7").Select End Sub Private Sub CommandButtonCANCELAR_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, B yVal X As Single, ByVal YAs Single) CommandButtonCANCELAR.Picture = LoadPicture("C:\Users\Miguel\Pictures\Plantillas y recursos\BO TONES\rojo.jpg") End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByValShift As Integer, ByVal X As Single, ByVal Y As Single) CommandButtonACEPTAR.Picture = LoadPicture("C:\Users\Miguel\Pictures\Plantillas y recursos\BOTON ES\agua.jpg") CommandButtonCANCELAR.Picture =...