Ir ao conteúdo
  • Cadastre-se

hudsonsaldanha

Membros Juniores
  • Total de itens

    2
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Ainda estou com problemas, Eu recebo dados de uma plataforma automaticamente pro excel, então preciso formar um grafico com os dados que recebo. Parecido com esse. porém, no meu caso seria assim: O que eu estou tentando fazer e, toda vez que alterar um valor de ("A3:Q3") a celula "A3" recebe a hora atual "Now", e fazer com que os valores de ("A4:Q4") sejam igual a ("A3:Q3")... e assim formando a base de dados com ate 100 linhas por Ex. Assim criei a variavel linha... Eu tentei gravar uma macro copiando e colando, deu certo porém o foco da minha tela acompanha o que esta sendo copiado e colado, e entao na da pra mim ver o grafico. Se poderem me ajudar fico muito agradecido! Private Sub Worksheet_Change(ByVal Target As Range) 'A minha intenção e que toda vez que alguma das celulas ("a3:q3") for alterada a hora seja inserida na celula "A3" 'E toda vez que um valor das celulas ("a3:q3") for alterada chame a Inserçãodedados If Intersect(Target, Me.Range("A3:Q3")) Is Nothing Then Exit Sub Application.EnableEvents = False Call nsersaodados On Error GoTo Finalize Planilha3.Range("A3").Value = Now End If Finalize: Application.EnableEvents = True End Sub Sub insersaodados() If Planilha3.Range("A3:Q3").Select <> Planilha3.Range("A4:Q4") Then 'cod inserção de dados de 100 linhas, assim que completar 100 linhas ele inicia novamente linha = Range("A3").End(xlDown).Row + 1 Planilha3.Range("A" & linha & ":Q" & linha).Value = Planilha3.Range("A3,Q3").Value End If End Sub adicionado 4 minutos depois Se poder entrar em contato, hudsonsaldanha@gmail.com
  2. Galera onde esta o erro desse cod.? Sub insersaodados() If Planilha3.Range("A3").Value <> Planilha3.Range("A4").Value Then 'cod inserção de dados linha = Range("A3").End(xlDown).Row + 1 Planilha3.Range("A" & linha : "Q" & linha).Value = Planilha3.Range("A3:Q3").Value Application.OnTime Now + TimeValue("00:00:01"), "insersaodados" End If End Sub

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

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!