Este fórum está sendo desativado

[quelerme]

Bom dia.

Sou novato no fórum com uma dúvida se é possivel ter tal resultado.

Trabalho com solicitações de faturamento (SF) e todo dia vem uma planilha com várias SFs para liberação. Como somos 5 pessoas, a divisão é feita por cores. Queria saber se é possível colocar o nome da pessoa responsável por aquela cor ao lado da SF?

Qual extensão é permitida anexar imagem?





muito obrigado pela ajuda.

[quelerme]

consegui anexar um exemplo pelo WORD.

[DeyseHingst]

Oi quelerme.
É possível e bem simples. Mas precisamos que você anexe a sua planilha de Excel. Assim será mais fácil alguém ajudar.

[quelerme]

Oi quelerme.
É possível e bem simples. Mas precisamos que você anexe a sua planilha de Excel. Assim será mais fácil alguém ajudar.

Segue a planilha Deyse.
Muito obrigado.

[osvaldomp]

Você quer colocar na coluna A os nomes correspondente às cores da coluna B, é isso ?

E os nomes correspondentes às cores da coluna C, você quer colocar em qual coluna ?

Ou você que colocar sempre na coluna A os nomes correspondentes às cores da última coluna preenchida ?

Explique.

[quelerme]

Você quer colocar na coluna A os nomes correspondente às cores da coluna B, é isso ?

E os nomes correspondentes às cores da coluna C, você quer colocar em qual coluna ?

Ou você que colocar sempre na coluna A os nomes correspondentes às cores da última coluna preenchida ?

Explique.

Osvaldo, eu quero colocar somente na coluna A os nomes responsaveis pelas solicitações de faturamento por cor.
ex: Fábio é da cor laranja, preencher na coluna A o nome dele até as celulas laranjas da coluna B.

[osvaldomp]

Experimente o código abaixo.

Não é preciso que você coloque os números das cores em A8:A12.

Código: Selecionar todos

Sub InsereNomeConfCor()
 Dim LR As Long,  v As Range
  LR = Cells(Rows.Count, 2).End(3).Row
  Range("A8", [A8].End(4)) = ""
   For Each v In Cells(8, 2).Resize(5)
    v.Offset(, -1).Value = v.Interior.ColorIndex
   Next v
   For k = 13 To LR
    Cells(k, 1) = Evaluate("INDEX(B8:B12,MATCH(" & Cells(k, 2).Interior.ColorIndex & ",A8:A12,0))")
   Next k
End Sub

[quelerme]

Experimente o código abaixo.

Não é preciso que você coloque os números das cores em A8:A12.

Código: Selecionar todos

Sub InsereNomeConfCor()
 Dim LR As Long,  v As Range
  LR = Cells(Rows.Count, 2).End(3).Row
  Range("A8", [A8].End(4)) = ""
   For Each v In Cells(8, 2).Resize(5)
    v.Offset(, -1).Value = v.Interior.ColorIndex
   Next v
   For k = 13 To LR
    Cells(k, 1) = Evaluate("INDEX(B8:B12,MATCH(" & Cells(k, 2).Interior.ColorIndex & ",A8:A12,0))")
   Next k
End Sub

Osvaldo, perfeito!

Muito obrigado.