Boa tarde!! Tente algo desse tipo. Sub teste() Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp)....

Bom dia!! Enquanto isso....

Bom dia!! Use o Gravador de Macros Att

Pelo que entendi, a questão é que você quer salvar uma cópia do arquivo mas manter o original aberto, se for isto o comando SaveAs salva o arquivo ori...

Não entendi o que deseja "colocar em variavel", contudo a montagem da instrução sql segue; basicamente; a premissa de montagem de uma string...

Bom... Eu acho que com o Excel puro não vai ser possível exportar em .TXT separados por pipe [ | ]. Então nesse caso o que eu faria. Eu Salvaria do ...

Se entendi, é só utilizar a instrução abaixo : Range("B3").FormulaR1C1 = Range("B3").Value []s

Se for somente a questão para trocar a imagem, vejano tópico abaixo um modelo que temos duas opções, só que clicando na imagem. viewtopic.php?f=10&am...

Bom dia!! Compara múltiplas colunas de duas guias e cola as diferenças em outra guia. Option Explicit Sub Comparar() 'Compara a Plan2(DIG) com a Pla...

Então não foi da forma que entendi, veja se agora acertamos : Private Sub Worksheet_Change(ByVal Target As Range) Dim sLin As Long Appli...

Pelo que entendi, se definiu o Range inicial para Digitação C30 e o que irá receber a Soma C11, então temos de trabalhar com os intervalos : Range(&qu...

Boa tarde!! Seria algo próximo disso? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C30:C200&quo...

Aqui no forum já teve um modelo de agenda do DANIEL PAIVA, ela não utiliza macros, só formulas, veja se consegue adaptar a sua necessidade. Agenda Se...

Bom dia!! Há algumas postagens no fórum use a pesquisa.

Bom dia!! Seria isso? Sub IMPORTA_BASES() ' ' IMPORTA_BASES Macro ' ' ===== AleVBA ===== Dim strName As String strName = ThisWorkbook.Path &...