Paulo, listindex retorna um numero, referente a posição do do Dado Selecionado na Combo. Esse numero por default inicia em 0 (o primeiro registro no c...

Aparentemente, pelo descrito, nada divergente; somente vendo seu modelo e que poderá ter um retorno/resposta mais completa.

Ajala, o loop é determinado pela linha --> Do while i<n, a variável Lin é utilizada apenas para não sobrescrever os registros existentes; confor...

Não entendi a duvida/necessidade Pode postar um modelo/exemplo??

Experimente Sub Expandir() Dim WSSaida As Worksheet, wSS As Worksheet Dim FinalRow As Long, Lin As Long Dim d As Date, i As Integer, n As Integer, v ...

Segue modelo que procura apenas na coluna E; veja se consegue adaptar Sub UsoFind() Dim Procurar As String Dim localizado, EndPrimeiroItem Application...

Talvez assim: =SE(MÊS(HOJE())-MÊS(H3)<=1;"Em Dia";SE(MÊS(HOJE())-MÊS(H3)>2;"Atrasado";"Alerta"))

Experimente Sub testesoma() Dim soma As Integer 'Esta variável deverá somar o valor se a a barra `x` atender à condição. Dim x As Integer 'variav...

Veja se atende

Eu, particularmente, não entendi? Qual o calculo/valor manual? O que determina juros diários ou mensal? Em seu modelo somente é considerado o valor A...

Ou ainda "montar" a função Máximo e chamar nos label essa função Seria algo +/- assim, crie no modulo do formulario a função abaixo: Private...

edufranca, o vba e a função mod no vba, tem certa restrição;para números muito grande irá "falhar". Não sou o mais indicado para isso, mas ...

Experimente assim: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wsHist As Worksheet, Rng As Range Set wsHis...

Experimente assim: Sub atitudes() Dim nCol As Integer Sheets("consulta").Activate Sheets("consulta").Range("B14...

Creio que o arquivo postado pelo Aron já está modificado, pois não visualizei nenhum dos eventos citados no post inicial. Obs.: Postagem tambem no For...