Use a sintaxe do Union, que deve ser algo assim: Union(Addr, Addr2, Addr3, Addr4, Addr5).Select Ou assim: Union(Range(Addr), Range(Addr2), Range(Ad...

kafofo, Quando vc disse que tinha uma planilha compartilhada, eu entendi que ela estava "habilitada pra o uso compartilhado", mas, pelo que...

Bom, acredito que o problema para salvar é porque os 2 estão tentando salvar ao mesmo tempo. Você pode tentar colocar uma macro que salva automaticam...

O ideal é vc colocar um exemplo da planilha, ou então, especificar onde estarão esses dados e se vc quer que eles fiquem no mesmo lugar (que foi o que...

Bem, não veio o anexo, e o post está na board errada. Enquanto a moderação não transfere, segue um link: viewtopic.php?f=10&t=10166 Aproveite e ...

escuderia, para manter o histórico, vc vai ter que ter uma linha para cada caso, por isso, estou sugerindo que vc utilize uma tabela, como no anexo. ...

Bom, testei sua planilha, e percebi que ela não leva em conta se o pessoal está "SIM" ou "NÃO" na tabela abaixo. Eu preencho manua...

tente .Cells(Linha, 2) = TextBox1.Value .Cells(Linha, 2).NumberFormat = "#,##0"

Amorim, Na verdade, vc tem a impressão que a planilha não está calculando. Porém, ao escalar alguém, vc vai ver que ela se atualiza, mostrando o próx...

edilsonjc, tente: Sub teste() Dim Altera As String Dim Particula_atona(3) As String Dim Particula(3) As String Dim i ...

Amorim, Já fiz essas escalas de serviço antes. O maior problema é que vc precisa manter um histórico de quem foi escalado (ou seja, não pode manter s...

Não sei se existe uma forma mais fácil, mas, segue minha sugestão: Sub teste() Dim Nome As String Dim Particula_atona(3) As String D...

silva, Use: =SEERRO(PROC(2;1/(Plan1!A$2:A$28=A2);Plan1!D$2:D$28);"") E arraste. Tirado desse tópico: viewtopic.php?t=9965&p=52411 ...

cara, faz uma planilha de exemplo, compacta e anexa aqui.

Experimente: Sub ImportarArquivosExcel() Dim Pasta As String Dim Arquivo As String Dim UL As Integer 'Abre uma caixa de diálogo para selecionar a pa...