agregar columna con titulos

[campi]

Hola ,

Quiero hacer una macro para solucionar el siguiente problema.

Tengo un archivo con varios datos en 3 columnas name, amount y quality. Quiero poner una 4a columna con el numero de cuenta. Adjunto el archivo. la idea es agregar la columna D con una macro.

muchas gracias.

Account # : 6BQ10987

name amount quality 6BQ10987

lorena 1234 good 6BQ10987

patricio 9876 normal 6BQ10987

camilo 7654 bad 6BQ10987

Account # : 6BQ10787

name amount quality 6BQ10787

andrea 765 good 6BQ10787

javier 9879 normal 6BQ10787

francisco 34567 bad 6BQ10787

Account # : 6BQ15678

name amount quality 6BQ15678

loreto 4536 good 6BQ15678

pilar 9876 normal 6BQ15678

isabel 56778 bad 6BQ15678

Libro1.xls

Libro1.xls

[Invitado Cacho R]

Con la columna D totalmente "limpia" incorpora en la celda D5 lo siguiente:

=SI(ESBLANCO(B5); ""; SI(ESTEXTO(B5); ""; SI(D4=""; C3; D4)))

y cópiala hacia abajo.

¿Te puede servir?

Saludos, Cacho R.

[tese1969]

Otra opción podría ser:

Sub incluir_cuenta()

Application.ScreenUpdating = False

For Each celda In Range("a3: a" & Range("a65000").End(xlUp).Row)
celda.Activate
    If celda Like "Account*" Then
    numcuenta = celda.EntireRow.Columns("c").Value
    ActiveCell.Offset(1, 0).Activate

    Do While ActiveCell <> ""
    ActiveCell.EntireRow.Columns("d") = numcuenta
    ActiveCell.Offset(1, 0).Activate
    Loop

    End If

Next celda

Application.ScreenUpdating = True

End Sub
[/code]

Por si te sirve.....

Un saludo a los 2,

Tese

[campi]

Un millon de gracias por las soluciones. Voy a probarlas.

Saludos,

Campi