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?