Sobre sumas.
Hola Amigo.
Mi problema es el siguiente. Tengo una hoja de cálculo con diferentes códigos. Yo lo único que quiero es que me sume los códigos que sean iguales y me lo ponga en la casilla indicada. Por ejemplo, tengo el código "AA1" en diferentes casillas repartidas por toda la hoja. Quiero que me diga cuantos "AA1" tengo y si meto más "AA1" o quito que me lo tenga en cuenta en la casilla de resultado de suma. Te agradecería enormemente una solución.
Muchas Gracias.
Mi problema es el siguiente. Tengo una hoja de cálculo con diferentes códigos. Yo lo único que quiero es que me sume los códigos que sean iguales y me lo ponga en la casilla indicada. Por ejemplo, tengo el código "AA1" en diferentes casillas repartidas por toda la hoja. Quiero que me diga cuantos "AA1" tengo y si meto más "AA1" o quito que me lo tenga en cuenta en la casilla de resultado de suma. Te agradecería enormemente una solución.
Muchas Gracias.
1 Respuesta
Respuesta de gualo
1
Quieres que la búsqueda se haga en toda la hoja o sólo en un rango, por ejemplo puedes hacer una macro:
Sub BUSCAR()
COL = ActiveCell.Column
FIL = ActiveCell.Row
Range("A1").Select
CELDAS = ""
For RENGLON = 1 To 65536
For COLUMNA = A To Z
If ActiveCell.Value = AA1 Then
If CELDAS = "" Then
CELDAS = COLUMNA & RENGLON
Else
CELDAS = CELDAS & ", " & COLUMNA & RENGLON
End If
End If
ActiveCell.Offset(0, 1).Select
Next COLUMNA
For COLUMNA = AA To IV
If ActiveCell.Value = AA1 Then
If CELDAS = "" Then
CELDAS = COLUMNA & RENGLON
Else
CELDAS = CELDAS & ", " & COLUMNA & RENGLON
End If
End If
ActiveCell.Offset(0, 1).Select
Next COLUMNA
Range("A" & Trim(RENGLON + 1)).Select
Next RENGLON
Application.Goto Reference:="R" & FIL & "C" & COL
ActiveCell.Value = CELDAS
End Sub
Sin embargo, antes de que corras la macro, te advierto que tardará mucho ocupando a tu sistema por abarcar toda la hoja.
Sub BUSCAR()
COL = ActiveCell.Column
FIL = ActiveCell.Row
Range("A1").Select
CELDAS = ""
For RENGLON = 1 To 65536
For COLUMNA = A To Z
If ActiveCell.Value = AA1 Then
If CELDAS = "" Then
CELDAS = COLUMNA & RENGLON
Else
CELDAS = CELDAS & ", " & COLUMNA & RENGLON
End If
End If
ActiveCell.Offset(0, 1).Select
Next COLUMNA
For COLUMNA = AA To IV
If ActiveCell.Value = AA1 Then
If CELDAS = "" Then
CELDAS = COLUMNA & RENGLON
Else
CELDAS = CELDAS & ", " & COLUMNA & RENGLON
End If
End If
ActiveCell.Offset(0, 1).Select
Next COLUMNA
Range("A" & Trim(RENGLON + 1)).Select
Next RENGLON
Application.Goto Reference:="R" & FIL & "C" & COL
ActiveCell.Value = CELDAS
End Sub
Sin embargo, antes de que corras la macro, te advierto que tardará mucho ocupando a tu sistema por abarcar toda la hoja.
Y en caso de que ya te satisfaga, te pido que finalices la pregunta.
