Sub CopiarPlanilha()Sheets("OS").SelectSheets("OS").Copy After:=Sheets(1)If Sheets("OS").Range("B10").Value <> "" ThenActiveSheet.Name = Sheets(...

Acredito que o @EdsonBR saiba. Vamos aguardar.

Acredito que o @EdsonBR saiba. Vamos aguardar.

@pcmoraes

@oseasribeiro

Private Sub CommandButton1_Click()Dim a As LongDim i As LongDim ulinhax As LongDim sprocurar As StringDim eprocurado As DoubleDim counter As LongDim u...

Percorra os registros do RecordSet preenchendo a matriz. Private Sub UserForm_Initialize()Me.ListBox1.ColumnCount = 12Dim conexao As New ADO...

@vxavier

Variáveis públicas devem ser declaradas em um módulo que servirá somente para declarações de variáveis. Variáveis públicas podem ser acessadas em qu...

@payzzanno

A tabela é mais prática, basta apertar TAB para adicionar linha na tabela.

Esse padrão de cores depende da versão do Office. No meu também está com essa cor. Acredito que é Office 2016. Não conheço propriedade que possa...

@payzzanno  Soma-com-resultado-na-ultima-linha.xlsx