Añadir una serie de datos a una columna
Hola chicos,
Antes de nada daros las gracias por leerlo porque no se si lo que esto pidiendo es magia.
Tengo esta columna A
756
756
756
881
881
881
881
111
111
223
223
223
223
Me gustaría poner en la columna B
1
2
3
1
2
3
4
1
2
1
2
3
4
Es decir, añadir una serie cada vez que empiece un nuevo numero en la columna A.
Como he dicho, gracias a todos por leerlo porque quizás sea imposible o casi.
Antes de nada daros las gracias por leerlo porque no se si lo que esto pidiendo es magia.
Tengo esta columna A
756
756
756
881
881
881
881
111
111
223
223
223
223
Me gustaría poner en la columna B
1
2
3
1
2
3
4
1
2
1
2
3
4
Es decir, añadir una serie cada vez que empiece un nuevo numero en la columna A.
Como he dicho, gracias a todos por leerlo porque quizás sea imposible o casi.
1 Respuesta
Respuesta de calvuch
1
En el evento Worsheet Change de la hoja utiliza este macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim anterior As Variant
Dim c As Long
If Target.Column <> 1 Then Exit Sub
If Target.Row = 1 Then Cells(Target.Row, 2) = 1
On Error Resume Next
If Target.Value = Cells(Target.Row - 1, 1) Then
Cells(Target.Row, 2) = Cells(Target.Row - 1, 2) + 1
Else
Cells(Target.Row, 2) = 1
End If
End Sub
Luego ponte a ingresar números en columna A
Private Sub Worksheet_Change(ByVal Target As Range)
Dim anterior As Variant
Dim c As Long
If Target.Column <> 1 Then Exit Sub
If Target.Row = 1 Then Cells(Target.Row, 2) = 1
On Error Resume Next
If Target.Value = Cells(Target.Row - 1, 1) Then
Cells(Target.Row, 2) = Cells(Target.Row - 1, 2) + 1
Else
Cells(Target.Row, 2) = 1
End If
End Sub
Luego ponte a ingresar números en columna A
Ups!. Lo olvide
Elimina estas lineas
Dim anterior As Variant
Dim c As Long
Elimina estas lineas
Dim anterior As Variant
Dim c As Long
