Seleccionar rango y pasar datos a una variable
Publicado por jose (2 intervenciones) el 19/11/2019 17:09:31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub contarSI()
Dim miRango As Range
Dim contar As Double
Dim sumar As Double
Dim celda As Variant
Set miRango = Application.InputBox("Rango", Type:=8)
contar = 0sumar = 0For Each celda In miRango
If celda.Value > 0 Then
contar = contar + 1
sumar = sumar + celda.Value
End If
Next celda
ActiveCell.End(xlDown).Offset(1, 0).Value = sumar
ActiveCell.End(xlDown).Offset(1, 0).Value = contar
End Sub
Ese es el código de la macro que estoy programando para contar y sumar. El problema es que "miRango" contiene mas de 50.000 filas y no lo quiero seleccionar con el mouse.
La pregunta es como puedo asignar un rango de manera automática a una variable de manera que no tome el titulo y baje hasta la ultima celda con datos.
Programador principiante!
Valora esta pregunta
0