Vinícius Furlan_731934

Olá Pessoal, no código abaixo, aponta erro 1004 (Erro de definição de aplicatico ou definição de objeto) na linha em negrito, alguém pode me ajudar? Obrigado! Sub Main() ' ' Main Macro ' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim datasaida As Date Dim datavolta As Date Dim shift As String Dim opname As String Dim cvname As String Dim nome As Integer Dim B As Worksheet Dim C As Worksheet Dim A As Worksheet Dim principal As Worksheet Dim nightshift As String Dim dayshift As String Dim time1 As Date Dim time2 As Date Dim result As Integer Dim linhacerta As Integer Dim colunacerta As Integer Set A = Worksheets("A") Set B = Worksheets("B") Set C = Worksheets("C") Set principal = Worksheets("Register") principal.Activate principal.Select datasaida = principal.Cells(2, 3) datavolta = principal.Cells(4, 3) shift = principal.Cells(6, 3) opname = principal.Cells(8, 3) cvname = principal.Cells(10, 3) mdays = principal.Cells(14, 3) dayshift = principal.Cells(10, 3) nightshift = principal.Cells(12, 3) shift = StrConv(shift, vbProperCase) If shift = "A" Then A.Activate A.Select time1 = Date time2 = datasaida result = DateDiff("d", time1, time2) For x = 2 To result + 5 If datasaida = Cells(x, 2) Then linhacerta = x Exit For End If Next verif = 1 y = 1 Do While verif <> 0 y = y + 1 verif = Cells(linhacerta, y) colunacerta = y Loop If colunacerta < 4 Then Cells(linhacerta, colunacerta) = opname Cells(linhacerta, colunacerta + 1) = dayshift Cells(linhacerta, colunacerta + 2) = nightshift ndays = linhacerta + (mdays - 1) For Z = (linhacerta + 1) To ndays + 1 verif2 = 1 w = 2 Do While verif2 <> 0 verif2 = Cells(Z, w) w = w + 1 Loop Cells(Z, w - 1) = opname Cells(Z, w) = dayshift Cells(Z, w + 1) = nightshift Next End If If colunacerta > 3 Then If MsgBox("There is already an operator registered on any of these days, do you want to continue?", vbYesNo, "Confirm") = vbYes Then Cells(linhacerta, colunacerta) = opname Cells(linhacerta, colunacerta + 1) = dayshift Cells(linhacerta, colunacerta + 2) = nightshift ndays = linhacerta + (mdays - 1) For Z = (linhacerta + 1) To ndays + 1 verif2 = 1 w = 2 Do While verif2 <> 0 verif2 = Cells(Z, w) w = w + 1 Loop Cells(Z, w - 1) = opname Cells(Z, w) = dayshift Cells(Z, w + 1) = nightshift Next End If End If End If Tentei rodar versões anteriores do mesmo arquivo, para ver se o erro deccore de alguma mudança de layout, mas em todas as versões aparece o erro agora.

Bom dia pessoal, estou com uma dificuldade que é... Tentei inserir uma coluna auxiliar em minha planilha, para contar quando o valor da célula ao lado é diferente de vazio, isso é, já está preenchido com alguma informação. Nesta celula a formula inserida é: =SEERRO(PROCV(Consult!A3;'Data Base'!H:L;3;FALSO);"") mas não importa quais condições eu coloque para cont.se ou cont.valores... Ou a coluna indica que nenhuma está preenchida, ou indica que todas estão preenchidas, mesmo as que estão assinaladas como "" Alguém pode me ajudar? Obrigado!!

Segue em anexo a planilha! É relativamente pequena, excluirei assim que possível para desocupar o espaço! Obrigado New Project.rar

Segue em anexo a Planilha! New Project.rar

Não consegui enviar a planilha no post por algum motivo, diz que não tenho permissão para faze-lo. Mas o problema é esse. tenho dois funcionários que estariam de folga no mesmo dia e turno cadastrados no banco de dados. Quando procuro com a função procv pela data da tabela de consulta no banco de dados, ele acha duas vezes o mesmo falo, sobrepondo um ao outro, entre os dias 15 e 19 nesse exemplo. Gostaria que pudesse aparecer os dois nomes, lado a lado, ou concatenados na mesma célula, para ter o controle que naqueles determinados dias, existem dois funcionarios de folga. Obrigado!

Olá pessoal! Sou novo no fórum entrei devido a um problema que estou há dias tentando resolver mas não encontro solução. Acredito que ela passe por algum código em VBA. O problema é que as vezes tenho que pegar com o procv duas células diferentes com o mesmo valor, no caso a data, para uma consulta em outra planilha, mas o procv sobrepoe esses valores. Segue exemplo de imagens. Gostaria que os nomes dos operadores se juntassem em uma células em dias que dois ou mais, tivessem folga no mesmo dia, mas só consigo que um sobreponha o outro. Alguém sabe como resolver esse problema? Obrigado!

Olá pessoal! Sou novo no fórum entrei devido a um problema que estou há dias tentando resolver mas não encontro solução. O problema é que as vezes tenho que pegar com o procv duas células diferentes com o mesmo valor, no caso a data, para uma consulta em outra planilha, mas o procv sobrepoe esses valores. Segue exemplo de imagens. Gostaria que os nomes dos operadores se juntassem em uma células em dias que dois ou mais, tivessem folga no mesmo dia, mas só consigo que um sobreponha o outro. Alguém sabe como resolver esse problema? Obrigado!