Rellenar Rango

04/12/2006 - 15:26 por fernanda.peruana | Informe spam

Hola a todos los foristas,una vez más entrando a este maravilloso
foro, en espera me puedan auxliar con un pequeño código que consiste
en:

Tengo el siguiente rango:

ColumnaA Columna B Columna C
5 500
6 1500 100
7 600
8 1500 200
9 600
10 2800 300

Si el valor de la columna A es mayor que cero y en su correspondiente
celda del lacolumna C es igual a cero, entonces que los espacios en
blanco los rellene con la palabra "Baja", quedando de la siguiente
manera: (Tomando en cuenta, que el rango de A, siempre es
variable,ahorita son 6 filas, en otras ocasiones son 100, en otras son
5, en otras son 200, etc)

ColumnaA Columna B Columna C
5 500 Baja
6 1500 100
7 600 Baja
8 1500 200
9 600 Baja
10 2800 300

Agradecería mucho me pudieran ayudar.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 J.P.

04/12/2006 - 16:16 | Informe spam

Buen Día

Revisa esta macro creo que es lo que buscas, si no me cuentas

Sub baja()
Dim cel As Range
For Each cel In Range("A:A")
If cel > 0 And cel.Offset(0, 2) = 0 Then
cel.Offset(0, 2) = "Baja"
cel.Offset(0, 2).HorizontalAlignment = xlCenter
End If
Next
End Sub

ha escrito:

Hola a todos los foristas,una vez más entrando a este maravilloso
foro, en espera me puedan auxliar con un pequeño código que consiste
en:

Tengo el siguiente rango:

ColumnaA Columna B Columna C
5 500
6 1500 100
7 600
8 1500 200
9 600
10 2800 300

Si el valor de la columna A es mayor que cero y en su correspondiente
celda del lacolumna C es igual a cero, entonces que los espacios en
blanco los rellene con la palabra "Baja", quedando de la siguiente
manera: (Tomando en cuenta, que el rango de A, siempre es
variable,ahorita son 6 filas, en otras ocasiones son 100, en otras son
5, en otras son 200, etc)

ColumnaA Columna B Columna C
5 500 Baja
6 1500 100
7 600 Baja
8 1500 200
9 600 Baja
10 2800 300

Agradecería mucho me pudieran ayudar.

Responder a este mensaje

#2 fernanda.peruana

04/12/2006 - 16:24 | Informe spam

Muchiiiiiiiiiiiiiiiiisimas gracias JP,me ha servido de maravilla.

Gracias

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida