Private Sub Worksheet_Change(ByVal Target As Range) 'Dim intervalo As Range 'Set intevalo = Plan1.Range("B19:B22") If Not Interse...

Tem como classificar do maior para o menor de O5 até O14? Porém como faço pra inverter? Preciso que o maior valor fique em cima e o menor valor em ba...

Para juntar: SUB TESTE ( ) CALL FILTRO CALL MAIORMENOR END SUB

https://www.youtube.com/watch?v=bMC3sMe35Ww http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27363...

Option Explicit Sub TESTE() Dim I, J As Integer Dim MAIOR, MENOR As Double For I = 5 To 13 For J = I + 1 To 14 If Plan1.Range("O" &am...

Option Explicit Sub teste() Dim i As Integer Dim j As Integer Dim linha As Integer Dim achou As Boolean Plan1.Rang...

Option Explicit Sub teste() Dim ano As Integer Dim mes As Integer ano = 2018 mes = 2 Dim soma As Double soma = 0 D...

Sub Scroll_Rows() Dim i As Long Dim soma As Double For i = Sheets("Plan1").Cells(Rows.Count, "A").End(x...

Option Explicit Sub teste() Dim ano As Integer ano = 2018 Dim soma As Double soma = 0 Dim sh As Worksheet Dim linha...

Para fazer isso, é preciso que todas as strings tenham um delimitador claro. Usei o underline como delimitador. Além disso, é necessário que todas as...

Vídeos relacionados: https://www.youtube.com/results?search_query=vba+alterar+cadastro Com todo o respeito, creio que será difícil al...

Conheço um código que realmente não fica perfeito no lado esquerdo. Infelizmente, acho que não dá para ajustá-lo: Private Sub UserForm_Initialize() ...

Private Sub ComboBox1_Change() Call pesquisanome TextBox1.SetFocus Dim DLin As Long DLin = Range("C1").End(xlDown).Row Dim ...

Você se esqueceu de dizer ADM 1234, mas eu já havia decorado.