Recorrer celdas en excel

[engonga]

Hola estoy haciendo una aplicación en excel, lo que hago es recorrer toda una fila y si su balor es superior a 0 me suma un contador + 1

lo que passa es que lo necesito para 400 filas,

el codigo es este

Código PHP:

  Private Sub CommandButton1_Click()
    Dim contador As Integer
    Dim contador_fila
    Dim fila As Integer
    Dim columna As Integer
    Dim i As Integer
 
    
contador = 0
 
    If Me.Cells(5, 1).Value > 0 Theøn
            For fila = 5 To 5
             For columna = 3 To 14
                Me.Cells(fila, columna).Select
                If Me.Cells(fila, columna).Value > 0 Then
                  contador = contador + 1
                End If
                Next columna
            Next fila
        Me.Cells(5, 15) = contador
    Else
        Me.Cells(5, 15) = ""
    End If
End sub 
   

Lo que he provado es copiar el codigo if 3 veces i canviando el nombre de la variable contador por contador1 contador2 contador 3 y poniendo su resultado en la fila 5, 6 i 7 en la columna 15 respectivamente. Pero creo que puede hacerse automatico no?

alguien me puede ayudar?

[judoka]

prueba con esta macro. Esta recorre de la fila 5 hasta la 405 y de las columnas 3 a la 14 y en la columna 15 de cada fila pone la cantidad de valores mayores que cero

Sub macrocontador()
Dim contador As Double
Dim i As Double
Dim j As Double

For i = 5 To 405
contador = 0
For j = 3 To 14
If Cells(i, j).Value > 0 Then
contador = contador + 1
End If
Next j
Cells(i, 15).Value = contador
Next i
End Sub

[lasr]

Iniciado por judoka

prueba con esta macro. Esta recorre de la fila 5 hasta la 405 y de las columnas 3 a la 14 y en la columna 15 de cada fila pone la cantidad de valores mayores que cero

Sub macrocontador()
Dim contador As Double
Dim i As Double
Dim j As Double

For i = 5 To 405
contador = 0
For j = 3 To 14
If Cells(i, j).Value > 0 Then
contador = contador + 1
End If
Next j
Cells(i, 15).Value = contador
Next i
End Sub

Estimados todos : para el casi mismo codigo anterior, pero que busca, por ejempplo por DNI, si concide , buscar en otra columna que sean la misma facrura y si es asi, poner una marca a otra columna. La idea seria hacer un compensador en excel....o no pude...
Slds

[David]

Bienvenido al foro, lasr.

Este tema es del año 2005. Te invito a que abras un nuevo tema para explicarnos la duda que tienes, así podremos ayudarte mejor.

Saludos.