Excel - Seleccionar rango y pasar datos a una variable

 
Vista:
sin imagen de perfil
Val: 3
Ha aumentado su posición en 10 puestos en Excel (en relación al último mes)
Gráfica de Excel

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 = 0
sumar = 0
 
For 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Seleccionar rango y pasar datos a una variable

Publicado por JuanC (1237 intervenciones) el 19/11/2019 18:28:53
una posibilidad entre varias...

1
2
Dim rng As Range
Set rng = Hoja1.Range(Hoja1.Range("A2"), Hoja1.Range("A2").End(xlDown))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 3
Ha aumentado su posición en 10 puestos en Excel (en relación al último mes)
Gráfica de Excel

Seleccionar rango y pasar datos a una variable

Publicado por jose (2 intervenciones) el 19/11/2019 19:24:59
Excelent.

Ahora como podría usar esa misma selección de filas en las columnas subsiguientes.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar