Resumen
Sheets("cotización").Select
clientes = InputBox("ingrese codigo del cliente", "ingrese dato")
If clientes = "" Then
MsgBox ("el espacio esta en blanco")
Exit Sub
ElseSheets("cotización").Select
Range("f3").Value = clientes
End If
Sheets("cotización").Select
vendedores = InputBox("ingrese codigo del vendedor", "ingrese dato")
If vendedores = "" Then
MsgBox ("el espacio esta enblanco")
Exit Sub
Else
Sheets("cotización").Select
Range("b4").Value = vendedores
End If
Sheets("cotización").Select
codigo = InputBox("ingrese el codigo del producto", "ingrse datos")
If codigo < 1 Orcodigo > 100 Then
MsgBox ("el espacio esta en blanco")
Exit Sub
Else
Sheets("cotización").Select
Range("a7").Value = codigo
End If
Sheets("cotización").Select
cantidad = InputBox("ingrese lacantidad de producto", "ingrse datos")
If cantidad < 1 Or codigo > 100 Then
MsgBox ("el espacio esta en blanco")
Exit Sub
Else
Sheets("cotización").Select
Range("b7").Value = codigo
End IfSheets("cotización").Select
codigo = InputBox("ingrese el codigo del producto", "ingrse datos")
If codigo < 1 Or codigo > 100 Then
MsgBox ("el espacio esta en blanco")
Exit Sub
ElseSheets("cotización").Select
Range("a8").Value = codigo
End If
Sheets("cotización").Select
cantidad = InputBox("ingrese la cantidad de producto", "ingrse datos")
If cantidad < 1 Or codigo > 100 Then
MsgBox ("elespacio esta en blanco")
Exit Sub
Else
Sheets("cotización").Select
Range("b8").Value = codigo
End If
Sheets("cotización").Select
codigo = InputBox("ingrese el codigo del producto", "ingrse datos")
Ifcodigo < 1 Or codigo > 100 Then
MsgBox ("el espacio esta en blanco")
Exit Sub
Else
Sheets("cotización").Select
Range("a9").Value = codigo
End If
Sheets("cotización").Select
cantidad =InputBox("ingrese la cantidad de producto", "ingrse datos")
If cantidad < 1 Or codigo > 100 Then
MsgBox ("el espacio esta en blanco")
Exit Sub
Else
Sheets("cotización").Select
Range("b9").Value = codigo...
Regístrate para leer el documento completo.