Ir ao conteúdo
  • Cadastre-se

Vinícius Furlan_731934

Membro Júnior
 Perfil  Explorar Conteúdo

  • Posts

    7

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

posts postados por Vinícius Furlan_731934

    [ERRO 1004 - VBA] Excel 2013

    em Microsoft Office e similares

    Postado

    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.

    [DUVIDA Formula - CONT.SE / CONT.VALORES

    em Microsoft Office e similares

    Postado

    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!!

    [Excel - VBA] Sobreposição de Valores

    em Programação - outros

    Postado

    Seja bem vindo a bordo,

     

    Se puder compartilhar sua planilha ou um exemplo proximo, fica mais fácil entender esse senário e contribuirá p/ breve retorno para solução do seu problema.   

     

    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!

    [Excel - VBA] Sobreposição de Valores

    em Programação - outros

    Postado

    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!

     

    post-773337-0-95386700-1436455576_thumb.

    post-773337-0-01405500-1436455579_thumb.

    [EXCEL 2013 - Sobreposição de Células]

    em Microsoft Office e similares

    Postado

    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!

     

     

    post-773337-0-05813200-1436454861_thumb.

    post-773337-0-16708500-1436454863_thumb.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!