Contar sombreado

23/11/2006 - 06:58 por Fabian | Informe spam

Hola a todos, estoy trabado con una tontera, hace mucho que no escribo nada.
Un salvavidas please!
Sub ContarColores()
Dim T As Range
Dim U As Range
For Each T In Range("a5:a1194")
contador = 0
For Each U In Range("a & T.Row:r & T.Row") aqui error 1004
If U.Interior.ColorIndex = 15 Then
contador = contador + 1
End If
Next U
Hoja1.Range(s & T.Row) = contador
Next T
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

23/11/2006 - 08:09 | Informe spam

hola, Fabian !

... estoy trabado con una tontera [...]

no requieres del 'doble bucle' y NO encontraras un rango en: "a & T.Row:r & T.Row" :))

ve cual de las siguientes alternativas se ajusta mejor a tus necesidades... -> http://tinyurl.com/y58ab5

saludos,
hector.

__ el codigo expusto __

Sub ContarColores()
Dim T As Range
Dim U As Range
For Each T In Range("a5:a1194")
contador = 0
For Each U In Range("a & T.Row:r & T.Row") aqui error 1004
If U.Interior.ColorIndex = 15 Then
contador = contador + 1
End If
Next U
Hoja1.Range(s & T.Row) = contador
Next T
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida