Macro para hallar el máximo valor de una columna y sumarle 1
Tengo unas macros que ingresan valores y necesito hallar el valor MAX en una columna, luego de hallarlo sumarle 1, y pegar COMO VALOR el resultado al costado de la celda que sea visible.
Ejemplo:
- A B
1 100 1 Al ingresar un valor en A1 Debe de ingresar en B1, 1 cuando la columna A tenga valores
2 Fila 2 no tiene datos, no debe de ejecutarse nada.
3 300 2 En otro momento vuelvo a ingresar datos y en B2 debe considerar el MAX de la columna B y sumar 1. Para este ejemplo el valor MAX es 1 y le sumo 1, me da como resultado 2.
2 Respuestas
Si quieres que sea en automático cuando pones el dato en la columna A, entonces pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
num = WorksheetFunction.Max(Columns("B")) + 1
Target.Offset(0, 1) = num
End If
End Sub.
.
