Preciso organizar os dados que estão em ordem cronológica para um relatório que está em data. A Macro deve primeiro iterar pela coluna CRM, depois pela coluna DATA e organizar os registros de mesma data na mesma linha.
Tentei a seguinte Macro, mas a condição If Str(Datarel.Value) = Str(Databd.Value) Then
parece não funcionar. Obrigado!
Sub macro()
Dim i, j, k
Set Id = Range("B1")
Set Datarel = Range("B3")
Set Idbd = Range("H2")
Set Databd = Range("I2")
Set Horabd = Range("J2")
For i = 1 To 1
For j = 1 To 31
For k = 1 To 12
Datarel.Select
If Str(Id.Value) = Str(Idbd.Value) Then
If Str(Datarel.Value) = Str(Databd.Value) Then
If Str(Datarel.Offset(0, 1).Value) = "" Then
Datarel.Offset(0, 1).Value = Horabd.Value
ElseIf Str(Datarel.Offset(0, 3).Value) = "" Then
Datarel.Offset(0, 3).Value = Horabd.Value
ElseIf Str(Datarel.Offset(0, 4).Value) = "" Then
Datarel.Offset(0, 4).Value = Horabd.Value
ElseIf Str(Datarel.Offset(0, 5).Value) = "" Then
Datarel.Offset(0, 5).Value = Horabd.Value
End If
End If
End If
Set Idbd = Idbd.Offset(1, 0)
Set Databd = Databd.Offset(1, 0)
Set Horabd = Horabd.Offset(1, 0)
Range("G1") = Range("G1") + 1
Next k
Set Datarel = Datarel.Offset(1, 0)
Set Idbd = Range("H2")
Set Databd = Range("I2")
Set Horabd = Range("J2")
Next j
Set Id = Id.Offset(34, 0)
Next i
End Sub