Este fórum está sendo desativado

[Purre]

Boa noite, podem me ajudar?

Eu estava estudando um pouco e cheguei no exemplo anexado, é possível resolver com MACRO? Com VBA ainda não consegui, mas acredito que seja possível.

Alguém consegue me auxiliar?
Basicamente, tenho clientes que recebem a cada x horas, mudando dependendo do cliente, mas preciso balancear para dividir durante o dia e não sobrecarregar determinado horário.

[osvaldomp]

Olá.

Eu suponho que a tabela da direita existente na sua planilha seja o resultado desejado. É isso?

Se sim, para permitir o entendimento do que você deseja, seria oportuno que você explicasse na própria planilha a razão pela qual você colocou cada valor em cada célula de cada Cliente.

[Purre]

Boa tarde!

Isso mesmo, da direita é o resultado pretendido! Perdão por não esclarecer.
Em relação aos números, são apenas p validar se terá entrega naquele horário ou não.


Anexei outra pra ficar mais claro..

[osvaldomp]

Segue um palpite/chute pois as suas explicações pouco ajudaram.
Veja se aproveita.

Código: Selecionar todos

Sub MáxDuasEntregas()
 Dim k As Long, m As Long, arr
  If Application.CountIf([D13:H13], 3) = 0 And Application.CountIf([D13:H13], 0) = 0 Then Exit Sub
  For m = 4 To 8
   If Cells(13, m) = 3 Or Cells(13, m) = 0 Then
    For k = 10 To 12
     arr = Cells(k, 4).Resize(, 6).Value
     If Cells(k, 9) = 0 Then
      Cells(k, 4).Resize(, 5).Cut Cells(k, 5):  Cells(k, 4) = 0
     ElseIf Cells(k, 4) = 0 Then
      Cells(k, 5).Resize(, 5).Cut Cells(k, 4): Cells(k, 9) = 0
     End If
     If Application.CountIf([D13:H13], 3) = 0 And Application.CountIf([D13:H13], 0) = 0 Then Exit Sub
     Cells(k, 4).Resize(, 6).Value = arr
    Next k
   End If
  Next m
End Sub