
19/02/2011, 16:37
|
| | Fecha de Ingreso: febrero-2011
Mensajes: 1
Antigüedad: 14 años, 1 mes Puntos: 0 | |
Respuesta: Crear Documento en Excel desde VB6.0 alguien k me ayude con este codigo
Dim b As Integer
Dim quedan As Integer
Dim a As Integer
Dim compra As Variant
Dim ganancia As Currency
Dim i As Integer
Dim venta As Integer
Dim precioRevista As Currency
precioRevista = 20
For i = 2 To 31
Cells(i, 3).Value = Rnd
If Cells(i, 3).Value <= 0.5 Then
Cells(i, 4).Value = 3
venta = 3
quedan = existentes - venta
Cells(2, 5).Value = quedan
If quedan >= 0 Then
compra = "No"
Cells(2, 6).Value = compra
Else
compra = "yes"
Cells(2, 6).Value = compra
End If
Else |