Hbergon

@Midori Pode usar esses valores para coluna A. São códigos que montam um link específico pra acessar as páginas. 30757592 6614752 22883906 29180869 32084458 31383272 30685957 35791668 38416203 12035569 31225174 36079020 17448839 31339268 34131549 14532896 36759370 37122382 34050768 23925835 34483402 6888229 37051050 38779888 37060863 30428369 7980595 29317094 30955919 33565041 36885911 35310282 31381584 29162641 37709862

Sub busca_id() Dim Linha As Integer For Linha = 2 To 501 Valor = Cells(Linha, "A") 'Range("B2:B501").ClearContents Set ie = CreateObject("internetexplorer.application") ie.navigate "https://na.finalfantasyxiv.com/lodestone/character/" & Valor & "/class_job/" 'ie.Visible = True Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop Cells(Linha, 2) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(0).innertext, "-", "0")) Cells(Linha, 3) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(1).innertext, "-", "0")) Cells(Linha, 4) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(2).innertext, "-", "0")) Cells(Linha, 5) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(3).innertext, "-", "0")) Cells(Linha, 6) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(4).innertext, "-", "0")) Cells(Linha, 7) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(5).innertext, "-", "0")) Cells(Linha, 8) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(6).innertext, "-", "0")) Cells(Linha, 9) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(7).innertext, "-", "0")) Cells(Linha, 10) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(8).innertext, "-", "0")) Cells(Linha, 11) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(9).innertext, "-", "0")) Cells(Linha, 12) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(10).innertext, "-", "0")) Cells(Linha, 13) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(11).innertext, "-", "0")) Cells(Linha, 14) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(12).innertext, "-", "0")) Cells(Linha, 15) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(13).innertext, "-", "0")) Cells(Linha, 16) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(14).innertext, "-", "0")) Cells(Linha, 17) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(15).innertext, "-", "0")) Cells(Linha, 18) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(16).innertext, "-", "0")) Cells(Linha, 19) = CInt(Replace(ie.document.getElementsByClassName("character__job__level")(17).innertext, "-", "0")) ie.Quit Next End Sub Esse é o código que estou trabalhando. Ele tem retornado o erro 91 algumas vezes, mas ao depurar e clicar em continuar ele funciona normalmente até o próximo erro. Alguém saberia me informar uma solução que evitasse desse erro acontecer?

Então, dessa forma aí dá certo, mas o que eu queria mesmo era usar dentro do VBA pra fazer parte de uma função. Eu posso usar esse método e colocar no VBA pra acessar o link dessa célula, mas não sei como.

Bom dia a todos! Estou criando uma função no VBA (tentando) pra buscar algumas informações com base em um link específico que altera conforme cada célula. Gostaria de saber se é possível fazer isso. Por exemplo, eu coloco um valor na célula A2 (Ex: 28416507) e quero que o VBA acesse através do internet explorer o site www.xxxxxxxx.com/28416507, ou seja, www.xxxx.com/(A2). Não consegui fazer uma função que funcionasse dessa forma. Alguém saberia me dizer se é possível?

Boa tarde! Estou tentando realiza a impressão de uma área com células pintadas e com bordas, entretanto, mesmo colocando 0 para as margens, ele ainda imprime as margens como exposto abaixo: Planilha: Impressão: Gostaria de saber como remover essas bordas brancas da direita e debaixo, exibindo as marcações de borda preta. Obrigado

Boa tarde! Estou utilizando o seguinte código para registrar gastos e ele vai registrando na linha abaixo do último registro. Eu gostaria que os registros ficassem organizados do mais recente para o mais antigo na minha planilha. Eu pensei em por algum código, previamente, que iria deslocar os dados registrados para baixo antes de registrar o novo dado. Alguém saberia me dizer como? Eu sei que a minha solução é um pouco arcaica então, aceito sugestões de outras formas de conseguir isso. Private Sub CommandButtonSalvar_Click() Dim Lin As Integer Lin = ThisWorkbook.Sheets("Plan1").Range("C3").Value + 5 If TxtValor.Value = Empty Then MsgBox ("Valor não inserido!") Else ThisWorkbook.Sheets("Plan1").Cells(Lin, 2).Value = TxtData ThisWorkbook.Sheets("Plan1").Cells(Lin, 3).Value = TxtTipo ThisWorkbook.Sheets("Plan1").Cells(Lin, 4).Value = TxtValor ThisWorkbook.Sheets("Plan1").Cells(Lin, 5).Value = ComboBox_conta End If End Sub ps: Eu tentei usar filtro, mas não deu muito certo porque os dados da data não vão em formato data quando registram...

Olá a todos. Eu gostaria de saber se há como desenvolver uma macro a qual copia a planilha para o final das abas de planilhas. A situação é o seguinte: criei 4 modelos de planilhas as quais partindo delas, terei 4 macros que criam uma cópia de cada uma (deixei a macro em um botão na barra de ferramentas). O desenvolvimento da macro foi feito por meio de gravação resultando na fórmula "Sheets("DOM").Copy Before:=Sheets(149)" , ou seja, copia o conteúdo somente para após a aba que ficou como referência quando fiz a macro. Li sobre o comando "Copy" e vi que eu tinha apenas a alternativa Before ou After. Desse modo, imagino que não tenha uma solução, a menos que haja um código para jogar sempre para o final. Estou aberto a sugestões. Obrigado. Obs: Junto a isso, gostaria de saber também se é possível ocultar, de alguma forma, essas abas que a macro usa como referência e ela continuar funcionando.