Foros del Web » Soporte técnico » Ofimática »

Ayuda con Macro Simple en Excel

Estas en el tema de Ayuda con Macro Simple en Excel en el foro de Ofimática en Foros del Web. hola a todos, este seria mi primer macro en excel y necesito ayuda si es posible para lo siguiente: necesito un codigo el cual busque ...
  #1 (permalink)  
Antiguo 15/01/2009, 16:58
 
Fecha de Ingreso: enero-2009
Mensajes: 2
Antigüedad: 15 años, 3 meses
Puntos: 0
Ayuda con Macro Simple en Excel

hola a todos, este seria mi primer macro en excel y necesito ayuda si es posible para lo siguiente:

necesito un codigo el cual busque en todas las celdas un valor determinado, por ejemplo que en cada celda que encuentre el valor "F", pinte de rojo esa celda o le asigne un valor a otra, etc.

he pensado que para buscar en todas las celdas habrá que hacer dos ciclos "for" y poner un "if" , pero la nomenclatura no me la sé ....

de antemano, gracias
  #2 (permalink)  
Antiguo 15/01/2009, 20:36
Avatar de caesar.l  
Fecha de Ingreso: febrero-2007
Ubicación: Aguascalientes, México
Mensajes: 1.439
Antigüedad: 17 años, 2 meses
Puntos: 91
Respuesta: Ayuda con Macro Simple en Excel

¿Has probado la grabadora de macros? Ella te puede ayudar a ver la nomenclatura y funciones; en el archivo de ayuda tambien bien la forma de escribir los ciclos for e if

Si ya revisaste eso y no corre tu macro, ¿puedes poner en que parte del código tienes duda?

Saludos
__________________
Yo solo sé, que no sé nada...
  #3 (permalink)  
Antiguo 16/01/2009, 06:48
 
Fecha de Ingreso: enero-2009
Mensajes: 2
Antigüedad: 15 años, 3 meses
Puntos: 0
Respuesta: Ayuda con Macro Simple en Excel

El codigo siguiente en teoría deberia buscar en cada celda el texto "F", y si lo encuentra, rellenar el fondo de esta rojo. Pero me da errores de compilacion...

Código:
Sub asistencia()
For i = 1 To 500
    For j = 1 To 500
    If Cells(i, j).Value = "F" Then
        Cells(i, j).Color = Red
    End If
    Next j
Next i
End Sub
  #4 (permalink)  
Antiguo 16/01/2009, 09:36
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 4 meses
Puntos: 144
Respuesta: Ayuda con Macro Simple en Excel

Prueba esto (los cambios están en rojo):
Código:
Sub asistencia()
For i = 1 To 500
    For j = 1 To 256
    If Cells(i, j) = "F" Then
        Cells(i, j).Interior.ColorIndex = 3
    End If
    Next j
Next i
End Sub
En versiones anteriores a excel 2007, el número máximo de columnas es 256. Si tienes excel 2007, puedes poner 500.

Salu2
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:49.