Necesito a Hector... AUXILIO!

02/02/2004 - 22:20 por Petra | Informe spam
Hola Hector...

El 29 de enero le respondiste algo a Luis Vargas sobre
cómo validar info de 2 columnas. Yo he estado necesitando
algo similar pero entre 2 columnas de 2 hojas del mismo
libro. Ya intenté las 2 formulas que le sugeriste a Luis y
me da como resultado "sin cobrar" en todas las filas, aun
teniendo un dato que deberia salir "cobrado", asi tengo
las formulas:

1) ="Cobrado "&CONTAR.SI(A8;Mtto.BANCOLOMBIA!A:A)&" VECES."
2) =SI(CONTAR.SI(A8;Mtto.BANCOLOMBIA!A:A)>0;"Cobrado";"Sin
cobrar")

Otra cosa... es posible crear una macro para que antes de
cerrar el Libro elimine las filas que tienen como
resultado "Cobrado"???????????

Gracias de antemano!!!
 

Leer las respuestas

#1 Héctor Miguel
03/02/2004 - 03:29 | Informe spam
hola, Petra !

... sobre ... validar ... 2 columnas ... algo similar pero entre ... 2 hojas del mismo libro [...]
... me da como resultado "sin cobrar" en todas las filas, aun teniendo un dato que deberia salir "cobrado" [...]
1) ="Cobrado "&CONTAR.SI(A8;Mtto.BANCOLOMBIA!A:A)&" VECES."
2) =SI(CONTAR.SI(A8;Mtto.BANCOLOMBIA!A:A)>0;"Cobrado";"Sin cobrar")


__________
con respecto de las formulas, el argumento 'rango_a_buscar_donde' es primero en las funciones Sumar.Si, Contar.Si ...
1) ="Cobrado "&Contar.Si(Mtto.BANCOLOMBIA!A:A;A8)&" VECES."
2) =Si(Contar.Si(Mtto.BANCOLOMBIA!A:A;A8)>0;"Cobrado";"Sin cobrar")

... posible ... macro ... que antes de cerrar el Libro elimine las filas que tienen como resultado "Cobrado" [...]


_________
[para 'estos casos', es mejor hacer un 'recorrido a la inversa' -de abajo hacia arriba-]
suponiendo que usas la formula de la opcion 2 en la columna 'C' de la 'Hoja1'...
[si usas la opcion 1, sera necesario un[a 'especie' de] 'filtro' para 'verificar' que esta 'cobrado'] ;)
en el modulo de codigo del libro [ThisWorkbook'] ==Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fila As Long
With Worksheets("Hoja1")
For Fila = .Range("c65536").End(xlUp).Row To 1 Step -1
If .Range("c" & Fila) = "Cobrado" Then .Range("c" & Fila).EntireRow.Delete
Next
End With
Me.Save
End Sub

saludos,
hector.

p.d. 'aprovechando' :)) tengo que 'sugerirte' lo siguiente... :(
[creo que] no es 'buena idea' pedir 'que responda' [solamente] algun grupo o persona 'en particular' :((
[con seguridad] 'alguien mas' podria tener la respuesta ANTES que 'el interpelado'... 'pero'... ¿responderia???
[inclusive, 'el interpelado' pudiera no 'estar disponible' en ese momento y A TI pudiera 'urgirte' una solucion] :\\

Preguntas similares