@lezao  13-mais-sorteados.xlsx

Fiz um vídeo com vários exemplos que funcionam. No vídeo é usado Update no SQL, em vez de usar o Select. Se te interessar fazer o Update no SQL, a...

@e_straub

Sub Macro1()Dim ws As WorksheetFor Each ws In ThisWorkbook.SheetsApplication.PrintCommunication = FalseWith ActiveSheet.PageSetup.PrintTitleRows = ""....

O resultado final do vídeo acima é mostrado na imagem abaixo. Se te enteressar, assista ao vídeo: listbox.png

@gvidal12 dim i as integerfor i = 1 to 8if i = 1 or i = 3 or i = 8 thenend ifnext i

Coloquei no evento Selection Change. Testei e funcionou ao mudar de célula.  teste-sim-nao.xlsm

O Canal EVBA no Youtube possui mais de 600 vídeos. Private Sub bot_Confirmar_Detalhamento_Click()linha_base = ActiveCell.Row 'acha o número da linha...

If cdate(caixa_dtfimproc) < cdate(caixa_dtiniproc) Then