Todos

Hoja6 - 1 Private Sub Label1_Click() If Range("E3") = "A" Then Generalbaran Else Generafactinmediata End If End Sub Private Sub Label2_Click() UserForm5.Show End Sub Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then Range("B2").FormulaR1C1 = "Factura" Range("D3").FormulaR1C1 = "Nº Factura" Range("E26").FormulaR1C1 = "Suma Factura" Rows("27:28").EntireRow.Hidden = FalseLabel1.Caption = "GENERAR FACTURA" Label1.Picture = LoadPicture("[ruta donde esté la imagen]”\Azul.jpg") Else Range("B2").FormulaR1C1 = ("Albarán") Range("D3").FormulaR1C1 = ("Nº Albarán") Range("E26").FormulaR1C1 = ("Suma Albarán") Rows("27:28").EntireRow.Hidden = True Label1.Caption = "GENERAR ALBARAN" Label1.Picture = LoadPicture("[ruta donde esté la imagen]”\Marino.gif") End If End Sub Private SubWorksheet_SelectionChange(ByVal Target As Range) ScrollArea = "A5:G30" End Sub

UserForm1 - 1 Private Sub CommandButton1_Click() IMPRIMIR UserForm1.Hide End Sub Private Sub CommandButton2_Click() UserForm1.Hide End Sub Private Sub UserForm_Activate() If Range("B2") = "Albarán" Then Label1.Caption = "¿QUIERE IMPRIMIR EL ALBARAN?" Else Label1.Caption = "¿QUIERE IMPRIMIR LA FACTURA?" End If End SubPrivate Sub UserForm_Click() End Sub

UserForm2 - 1 Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() FACTURAYA End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() facturatodos End Sub

UserForm3 - 1 Private Sub CommandButton1_Click() ActiveSheet.Range("A2").Select UserForm3.Hide End Sub Private Sub CommandButton2_Click()ActiveSheet.Range("A2").Select UserForm3.Hide End End Sub

UserForm4 - 1 Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() UserForm4.Hide End Sub

UserForm5 - 1 Private Sub Label1_Click() NUEVOCLIENTE Range("NUEVO_CLIENTE").ClearContents UserForm5.Hide End Sub

UserForm6 - 1 Private Sub Label1_Click() NUEVOCLIENTE Range("NUEVO_CLIENTE").ClearContents UserForm6.Hide End Sub

Módulo1 - 1UserForm7 - 1 Sub nomasdatos() Sheets("Albaran").Activate Range("F8").ClearContents Range("B15:B17").ClearContents Range("D15:D17").ClearContents Range("D15:D24").Select Selection.FormulaR1C1 = "=IF(COD_ART=0,0,1)" Range("F8").Select End Sub Sub añadealbaran() 'COPIA TODO COMO VALORES Range("B2:F25").Copy Range("I2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone,SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub Sub DATOSCLIENTE() 'COPIA DATOS DEL CLIENTE A LA HOJA Facturacion Sheets("Albaran").Range("M3").Copy Sheets("Facturacion").Range("A2").Insert Shift:=xlDown Sheets("Albaran").Range("M2").Copy Sheets("Facturacion").Range("B2").Insert Shift:=xlDown Sheets("Albaran").Range("M6").Copy Sheets("Facturacion").Range("C2").Insert Shift:=xlDownSheets("Albaran").Range("M8").Copy Sheets("Facturacion").Range("D2").Insert Shift:=xlDown Sheets("Albaran").Range("L3").Copy Sheets("Facturacion").Range("J2").Insert Shift:=xlDown Application.CutCopyMode = False End Sub Sub ARTICULO1() 'lleva a facturacion If Range("B15") = 0 Or Range("D15") = 0 Then PARAR Else DATOSCLIENTE Sheets("Albaran").Range("I15:M15").CopySheets("Facturacion").Range("E2").Insert Shift:=xlDown Application.CutCopyMode = False End If End Sub Sub ARTICULO2() If Sheets("Albaran").Range("B16") = 0 Then nomasdatos Else DATOSCLIENTE Sheets("Albaran").Range("I16:M16").Copy Sheets("Facturacion").Range("E2").Insert Shift:=xlDown Application.CutCopyMode = False End If End Sub

Sheets("Facturacion").Range("E2").Insert Shift:=xlDown Application.CutCopyMode = False End If EndSub Sub Generalbaran() If Range("F8") = 0 Then MsgBox ("INTRODUCIR UN CLIENTE") End Else If Range("B15") > 0 And Range("D15") = 0 Then

Módulo1 - 2 Sub ARTICULO3() If Sheets("Albaran").Range("B17") = 0 Then nomasdatos Else DATOSCLIENTE Sheets("Albaran").Range("I17:M17").Copy PARAR ElseIf Range("B16") 0 And Range("D16") = 0 Then PARAR ElseIf Range("B17") 0 And Range("D17") = 0 Then PARAR...