............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Podrían Traducirme esta linea?

Ver el tema anterior Ver el tema siguiente Ir abajo

Podrían Traducirme esta linea?

Mensaje por Deivid el Vie Nov 27, 2009 11:39 pm

Hola amigos, Hace UNOs Dias copie esta macro de algun compañero del foro y la parte que he marcado en rojo no termino de entenderla. Serían tan amables de traducírmela? Un saludo a todo el mundo. La verdad es que se están portando muy bien conmigo, en especial Mr.Galileo. Muchas gracias.
Set WS = Sheets(1)
Set MyRng = WS.Range("N3:BQ3")
    LastRow = WS.Range("N" & Rows.Count).End(xlUp).Row
    For Each cell In MyRng
    
        If cell.Value = Date Then
            Range(cell, Cells(LastRow, cell.Column)).Interior.ColorIndex = 3            ' red
        End If
        
    Next cell

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Re: Podrían Traducirme esta linea?

Mensaje por Alejandro62 el Sáb Nov 28, 2009 2:19 am

Hola Deivid,
Si la celda en turno evaluada contiene Date Entonces
Desde esta misma celda y hacia arriba hasta el inicio de la columna pinta el rango de color rojo, es decir:

Si la celda evaluada en turno es R3 y esta contiene Date entonces desde aqui hasta R1 pintara de color rojo.

En este caso seria:
Range(R3, Cells(1, 18))
En Donde Cell = R3 (porque es la celda evaluada en turno)
LastRow = 1 (asi lo defines mas arriba)
Cell.Column = columna 18 que le corresponde a la columna R

Saludos.

Alejandro62

Masculino Cantidad de envíos : 37
Edad : 54
Ciudad - Pais : Mexico, Estado de Mexico
Version de Excel : Excel 2010
Fecha de inscripción : 21/11/2009

Volver arriba Ir abajo

Re: Podrían Traducirme esta linea?

Mensaje por GalileoGali el Sáb Nov 28, 2009 9:17 am

Cuando Alejandro se refiere a "celda en turno evaluada" se refiere las celdas de MyRng que son recorridas una a una por el Loop definido con el For Each

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Podrían Traducirme esta linea?

Mensaje por federico ramirez marron el Sáb Nov 28, 2009 4:42 pm

si, son recorridas dependiendo de la cuenta (count). de abajo hacia arriba
cabe mencionar que count y countA, es muy distinto es lo mismo que las funciones contar y contara, solo que la sintaxis la tienes que estudiar tu.

y buscarle su aplicabilidad en base al resultado que deseas tener
Saludos!!!

federico ramirez marron

Masculino Cantidad de envíos : 95
Edad : 43
Ciudad - Pais : acapulco, gro mexico
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Podrían Traducirme esta linea?

Mensaje por Deivid el Sáb Nov 28, 2009 8:03 pm

Peri si MyRng esta definido como N3:BQ3, LastRow no puede ser 1, no?
porque     LastRow = WS.Range("N" & Rows.Count).End(xlUp).Row con esto no estoy inicializando la variable a la última fila de N?

Deivid

Cantidad de envíos : 32
Fecha de inscripción : 20/02/2008

Volver arriba Ir abajo

Respuesta

Mensaje por Alejandro62 el Dom Nov 29, 2009 4:07 pm

LastRow = WS.Range("N" & Rows.Count).End(xlUp).Row

Si puede ser 1, dependiendo de tus datos. Ejemplo:

Si el indicador de celda esta en N20 y en la celda N6 tienes el texto "Alejandro" y entre N20 y N7 hay celdas en blanco entonces LastRow sera = 6
Si el indicador de celda esta en N20 y en la celda N1 tienes el texto "Federico" y entre N20 y N2 hay celdas en blanco entonces LastRow sera = 1

Esta instruccion tiene el mismo efecto que pulsar manualmente la tecla FIN y despues flecha arriba.

Sin embargo en el codigo que nos ocupa si es 1.
Cambia esa linea por esta y veras que es el mismo resultado
Range(cell, Cells(1, cell.Column)).Interior.ColorIndex = 3



Saludos.

Alejandro62

Masculino Cantidad de envíos : 37
Edad : 54
Ciudad - Pais : Mexico, Estado de Mexico
Version de Excel : Excel 2010
Fecha de inscripción : 21/11/2009

Volver arriba Ir abajo

Re: Podrían Traducirme esta linea?

Mensaje por Contenido patrocinado Hoy a las 11:25 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.