Um amigo meu escreveu um código VBA pra mim, em que todos os valores digitados da coluna "B" até a coluna "H" (B:H) sejam ordenados na coluna "N" na ordem que foram digitados nas colunas "B:H" independente do valor.
Porém eu não sei fazer isso e preciso aplicar esse código em outra planilha, como fazer?
Sei que vai ter que ser feitas algumas alterações, como alterar as células em que ele atua já que as tabelas são diferentes.
Codigo:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long
If Target.Cells.Count = 1 Then
If Target.Column > 1 And Target.Column < 9 Then
j = Target.Column
t = Plan1.Cells(Cells.Rows.Count, 14).End(xlUp).Row + 1
If Len(Trim(Target.Value)) > 0 Then
Plan1.Cells(t, 14).Value = Target.Value
Plan1.Cells(t, 15).Value = Plan1.Cells(1, j)
Plan1.Cells(t, 16).Value = Target.Row
End If
End If
End If
End Sub
Postado : 23/11/2016 9:00 pm