diogocs32, Bom dia. Não entendi, poste um exemplo da sua tabela.

diogocs32, Boa noite. Fiz um exemplo, veja se lhe atende.

Segue planilha, agora acho que entendi. Veja se é isto.

Bom dia. laisg, Não sei se entendi bem, mas veja se é assim que deseja. Segue anexo.

Bom dia. wagner, Muito obrigado pela resposta. Então, eu estou fazendo desta forma que você mencionou porém, quando eu coloco algum dado com aspas ...

Bom dia. ericksant, Veja se lhe atende: Option Explicit Private Sub btImporta_Click() Application.ScreenUpdating = False 'Definição das va...

Agora que entendi, havia interpretado de forma incorreta o que você questionou, o wagner respondeu melhor. rs

pires, No caso você terá que alterar o código UltLinha = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row ' Aqui ele conta o...

Bom dia. gmendrib, No caso você deve incluir esta rotina no "Worksheet_SelectionChange" da planilha que desejar. Segue print do exemplo pa...

Bom dia. pires, Segue a alteração que fiz no seu código bem como planilha anexa, veja se lhe atende: UltLinha = Sheets("Plan1")....

Boa tarde edu, Tenta assim: Dim j As Long Dim soma As Long soma = 0 For j = 1 To Me.lstLista.ListCount - 1 soma = soma + CLng(Me....

Cisneiro, Boa tarde! Segue um exemplo, veja se atende: Atribua o código ao evento de "Click" do seu botão. Sub testShellEXE() Dim di...

Kako, Boa tarde. Disponibilize a sua planilha ou algum exemplo parecido para que possamos te ajudar melhor com seu problema.

wagner, boa tarde! Fantástico!! Consegui adaptar ao meu código perfeitamente. Ainda me abriu os olhos para outras ideais. Muito obrigado, me ajud...