SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Wkafka en Martes 8 de Julio de 2003, 18:07

Título: Re: Autollenado en Excel
Publicado por: Wkafka en Martes 8 de Julio de 2003, 18:07

Hola.
Soy un principiante en Visual Basic y agradezco si alguien puede ayudarme:
Tengo 2 columnas de datos en excel y quiero hacer un programa que cree una tercera columna y la rellene con la multiplicacion de la columna 1 y 2.
Con la instruccion autofill puedo rellenarla en un rango dado, pero como el numero de filas puede cambiar, necesito un algoritmo que rellene la columna 3 hasta que encuentre una casilla vacia en la columna 1.
Mil gracias.

Título: Re: Autollenado en Excel
Publicado por: J.M.Movilla en Martes 8 de Julio de 2003, 23:16

A ver si te va esto...

Private Sub Command1_Click()
    Dim ApExcel As Variant
    Dim Fila As Integer
   
    Set ApExcel = CreateObject("Excel.application")
    With ApExcel
        .workbooks.Add
        Fila = 1              ' Pon aquí la primera fila que contenga datos
        Do
        If IsNull(cells(Fila,1)) then exit Do
        .cells(Fila, 3).formula =  .cells(Fila, 1) *  .cells(Fila, 2)

        Fila = Fila + 1
        Loop
        .Visible = True
    End With
    Set ApExcel = Nothing
End Sub

Probablemente tengas que hacer alguna corrección, porque lo estoy escribiendo en vivo... directamente en esta ventana del foro...

Saludos y suerte

Título: Autollenado en Excel
Publicado por: Wkafka en Lunes 14 de Julio de 2003, 23:27

Hola JJ.
Mil gracias por responder.
Efectivamente me funcionó con unos pequeños cambios.
Finalmente quedó asi:

Private Sub Command1_Click()

Dim Fila As Integer


Fila = 2 ' Pon aquí la primera fila que contenga datos
Do
If IsEmpty(Cells(Fila, 1)) Then Exit Do
ActiveSheet.Cells(Fila, 3).Formula = ActiveSheet.Cells(Fila, 1) * ActiveSheet.Cells(Fila, 2)
Fila = Fila + 1
Loop


End Sub