Ir para conteúdo
Fórum Script Brasil

Leonardofa

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Leonardofa

Leonardofa's Achievements

0

Reputação

  1. Pessoal, estou tentando preencher formulários na internet mas estou enfrentando problemas. Não estou conseguindo dar o loop e copiar a célula que eu quero. Vocês podem me ajudar? Tenho uma planilha com alguns dados e quero apenas preencher em uma página na web. Segue o código que estou tentando: Private Sub FillForm() Dim a As Integer Dim b As Integer Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://signup.live.com/" Do DoEvents Loop Until IE.ReadyState = 3 Do DoEvents Loop Until IE.ReadyState = 4 a = 3 Cells(a, 1).Copy SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" Cells(a, 2).Copy SendKeys "{tab}" SendKeys "(^v)" Cells(a, 3).Copy SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" Cells(a, 4).Copy SendKeys "(^v)" SendKeys "{tab}" Cells(a, 5).Copy SendKeys "(^v)" SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" SendKeys "{tab}" Cells(a, 6).Copy SendKeys "(^v)" SendKeys "{tab}" End Sub
  2. Olá, sempre programei em C, e estou me aventurando no vba esses dias para algumas complicações no trabalho. acredito que o algoritmo esta certo, mas não consigo encontrar o erro de programação. Preciso repetir um número 27 vezes, e em seguida, quero que meu programa pule para o próximo número da lista, tendo esta lista, 200 números. Segue o código: Sub PassaData() ' ' Matriz Passa a Data ' ' Dim X As Integer X = 1 Linha = 1 Do While X < 201 Do While Linha < 28 Sheets("Plan3").Cells(Linha, 2) = Sheets("Plan1").Cells(X, 2) Linha = Linha + 1 Loop X = X + 1 Linha = 1 Loop End Sub Estou recebendo um erro de subescrito fora do intervalo '9' As vezes o programa roda, mas a tarefa não é executada! alguém pode me ajudar? Obrigado!
×
×
  • Criar Novo...