Pesquisar na Comunidade

Olá Pessoal ! Vejam se conseguem me ajudar... Fiz uma planilha geradora de etiquetas e fiz uma macro simples de impressão das etiquetas numa determinada impressora, e está funcionando ! Porém, são muitas etiquetas para impressão e para que eu não tivesse que ficar digitando uma por uma para imprimir, eu queria ver a possibilidade de uma impressão em série, onde eu colocaria o intervalo de etiquetas puxando do banco de dados e a impressora imprimisse uma seguida da outra.. Agradeço desde já !

Olá galera, gostaria da ajuda de vocês. Preciso preencher duas tabelas iguais a que está no print a seguir, o problema é que gostaria de fazer isso com a ajuda do VBA, no caso eu tenho na planilha "Teste" uma lista de 70000 palavras e preciso que a partir de uma tabela que está preenchida o código verifique quais palavras ocorrem na lista independente de serem maiusculas ou minusculas, converta tudo para minuscula e cole a palavra na outra tabela vazia de modo que vá preenchendo a tabela vazia e eliminando as palavras lá da lista. Poderiam me ajudar? (A tabela a seguir começa na coluna A e vai até a coluna F) Essa é a tabela de testes

Olá, Gostaria de inserir uma linha a baixo do registro escolhido na combobox no meu formulário. exemplo: combobox 01 - escolhi esse aqui .... então o programa vai identificar ele na planilha de lançamento. 02 03 ... Depois e vai ver o de baixo que é diferente e vai inserir em cima do 02 uma linha para colocar a nova informação do 01. então fica assim na planilha somente. 01 01 - novo registro 02 03 Vou deixar o modelo do código: Sub opçoes1() Application.EnableEvents = False Application.ScreenUpdating = False Dim a As Long For a = 5 To 1048000 If Filial1 = Cells(a, 1) Then ' se Filial1 for igual célula na coluna 1 na linha variavel então If Filial1 <> Cells((a) + 1, 1) Then Plan1.Cells(a, 1).Select 'Seleciona a célula da plan1 na coluna 1 na linha variavel Plan3.Activate 'Ativar a célula da plan3 Plan3.Range("j1:O1").Select 'Selecionar e Carregar células da plan3 Selection.Copy 'Cópiar seleção Plan1.Activate 'Ativa plan1 Plan1.Select 'seleciona plan1 Plan1.Rows((a) + 1).Select 'selecina a variavel atual e cola abaixo 'Insere uma seleção na linha inferior Selection.Insert Shift:=xlDown 'Call Salve1 ActiveCell.Value = filial.Value 'O valor da célula ativada e igual ao valor de filial 'Call Vazio Dim Data As Date Data = Ldata1.Caption Dim ano As Double ano = Lano1.Caption ActiveCell.Offset(0, 1).Value = Filial1 ActiveCell.Offset(0, 2).Value = bancoconta ActiveCell.Offset(0, 3).Value = agenciabanco ActiveCell.Offset(0, 4).Value = ccbancoA ActiveCell.Offset(0, 5).Value = cpbancoA ActiveCell.Offset(0, 6).Value = Ldata1 ActiveCell.Offset(0, 7).Value = lblHora1 End If End If Next Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

Prezados, boa noite estou "montando" um código para entrar em um site da empresa onde trabalho, depois ele clica em um hiperlink , depois preenche alguns dados e por fim ele copia estes dados para do excel porém já tentei de diversas forma seja com códigos, sendkeys e etc e tal, mas não consigo copiar os benditos dados para o EXCEl Application.ScreenUpdating = False Dim IE As Object Dim W As Worksheet Dim x As Variant Dim A as Worksheet Set IE = CreateObject("InternetExplorer.application") Set W = Sheets("Plan3") Set A = Sheets("Plan1") With IE .Visible = True .Navigate ("colocar o site") 'aqui eu defino o site While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar .Document.getElementById("Login1_UserName").Focus 'focaliza aonde coloco meu login .Document.getElementById("Login1_UserName").Value = "digitar login" 'aqui eu coloco meu login .Document.getElementById("Login1_Password").Focus ' focalizo onde colocarei a senha .Document.getElementById("Login1_Password").Value = "digitar senha" 'aqui coloco a senha .Document.all("Login1_LoginButton").Click 'clico no boão para logar While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar 'espera carregar .Document.all("ctl00_ContentPlaceHolder1_ctl02_HyperLink17").Click 'acessa uma opção na página para eu buscar os filtros While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera mais um pouquinho .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Focus 'focaliza aonde vou colocar a empresa procurada .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Value = W.Range("E1").Value 'seleciono uma empresa a procurar de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espesra mais um tico .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Focus 'focaliza aonde vou colocar uma data inicial .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Value = W.Range("N5").Text 'aqui é colocado a data inicial de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espero... .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Focus 'focaliza aonde vou colocar uma data final .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Value = W.Range("P5").Text 'aqui é colocado a data final de acordo com uma célula na planilha .Document.all("ctl00_ContentPlaceHolder1_btnBuscaPorPeriodo").Click 'clico para filtrar agora eu precisaria copiar uma tabela que tem o ID "ctl00_ContentPlaceHolder1_UPNotas" e colar na célula A1 da Plan 1 (colar em A.range("a1") como fazer para copiar e colar esta tabela ?? Poor favoor, me ajudeeeeem...