Bom dia!!

Você leu minha postagem anterior?

Pois foi isso que eu sugerir...

Att

Bom dia!! Considerando possibilidades, é possível criar uma conexão com/via (dados externos e outros arquivos xl*). Você pode via VBA, PowerTable, ODBC e ConxDadosExternos ou até acessar outro tipo de banco como sqlight, postgre etc. A proposito se é que eu entendi... você já tentou usar conexão com...

Bom dia!!

'Windows("240218 ESTOQUE COMPLETO.TXT").Activate

NomeDaVariavel.Activate

Boa tarde!! Use nossa base de dados, pois há respostar similar a sua dúvida! Sub AleVBA_6344() 'Este arquivo deve ficar fora do diretório \TESTE\ Application.ScreenUpdating = False Dim wkbDest As Workbook Dim wkbSource As Workbook Set wkbDest = ThisWorkbook Dim lr As Long lr = Range("A1").SpecialCel...

Bom dia!!

Use nossa base de dados.
search.php?keywords=cadastro+userform&t ... =Pesquisar

Att

Boa tarde!!

Teste o arquivo
Fonte:http://www.ozgrid.com/Excel/run-macro-on-time.htm

Att

Bom dia!!

Leia:
https://answers.microsoft.com/pt-br/off ... 7351e09d9f
https://social.technet.microsoft.com/Fo ... m=officept

Att

Boa tarde!!

Eu sugiro usar a pesquisa do fórum!!

Temos algo já explicado e feito que tem semelhança com sua dúvida.

Há opções com os suplementos (power table etc)

Att

Bom dia!! Uma possível solução seria... Private driver As WebDriver Sub AleVBA_6277() Dim tb1 As WebElement Dim tb2 As WebElement Dim times As Range Dim pontos As Range Set driver = New ChromeDriver 'Acessa o site driver.Get "https://globoesporte.globo.com/futebol/brasileirao-serie-a/" Set times = R...

Boa tarde!!

Segue em anexo.


Att

Bom dia!!

Se você verificou meu post anterior, eu disse favor adaptar!!

Preencha suas guias com dados, pois o código verifica o total de linhas de cada um das guias que precisa ser copiadas. Eu volto a dizer, favor adaptar!!!!!!!!!

Att

Bom dia!!

Veja.

Att

Bom dia!! Segue um esboço para teste! Agora é só implementar conforme sua necessidade. Public Sub AleVBA_6187() 'https://gurudoexcel.com/forum/viewtopic.php?f=12&t=6187 'Copia baseado em data de várias guias para uma guia resumo Dim Ws As Worksheet, LR1 As Long, LR2 As Long Dim lr As Long Dim dDate1...

Bom dia!! 'Para mais veja.. 'https://www.thespreadsheetguru.com/blog/vba-guide-sending-excel-attachments-through-outlook 'https://www.rondebruin.nl/win/s1/outlook/mail.htm Sub ENVIAR() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.Cr...

Boa tarde!! Talvez algo como a propriedade EnableCancelKey , deve te ajudar! Private Sub test() 'https://msdn.microsoft.com/en-us/library/aa214566(office.11).aspx On Error GoTo handleCancel Application.EnableCancelKey = xlErrorHandler MsgBox "This may take a long time: press ESC to cancel" For x = 1...

Boa tarde! Segue... Sub teste_guru() Dim lr As Long Dim sNomeAbreviado As String Dim wb As Workbook lr = Cells(Rows.Count, "A").End(xlUp).Row With Worksheets("ES0659") .Range("AD:AD").Delete [AD3].Value = "InsForm" .AutoFilterMode = False .Range("AD4").Formula = "=INT((TODAY()-S4)/7)" 'Qual é a colu...

Bom dia!! Caso você deseja digitar o nome do arquivo em uma InputBox, siga a ideia que eu utilizei no código para filtrar ( sNomeAbreviado = InputBox("Selecione o Nome Abreviado") ) Sub AleVBA_6158() 'https://gurudoexcel.com/forum/viewtopic.php?f=12&t=6158 Dim lr As Long Dim sNomeAbreviado As String...

Bom dia!!

Eu não sei se consegui entender, mas olhe o anexo e tente adaptar!

Att

Bom dia!! Talvez isso ajude a ter uma ideia... Sub AleVBA_6158() Dim lr As Long Dim sNomeAbreviado As String lr = Cells(Rows.Count, "A").End(xlUp).Row With Worksheets("Planilha1") [K1].Value = "InsForm" .AutoFilterMode = False .Range("K2").Formula = "=INT((TODAY()-I2)/7)" .Range("K2").AutoFill Desti...

Bom dia!!

Eu não tive o erro!
Procurei com o nome exato, parcial, incorreto, case-sensitive e não case-sensitive...

Att