Interessante, trabalho na área de projetos de Engenharia Elétrica também. Crie um formulário com os controles: Label1 até Label6 CommandButton1 TextB...

Sub Selecionar() Dim lRowLast As Long lRowLast = WorksheetFunction.Max( _ RowLast(Columns("B")), _ RowLast(Col...

Olá, Fiz um Suplemento que facilita bastante ações de enviar Planilhas ou Pastas de Trabalho por e-mail, o link é: Estou estranhando ela estar fora d...

Já que o texto é concatenado, significa que você quer exportar as células de apenas uma coluna, certo? Considere que essa coluna seja a A: Sub Exemplo...

Private Sub ComboBox1_Change() Dim i As Integer 'Limpa Caixa de Seleção ComboBox2: ComboBox2.Clear For i = 1 To Range(&...

Num formulário, crie um botão de comando chamado CommandButton1 e cole o código abaixo: Private Sub CommandButton1_Click() Dim sArquivo Dim s...

Esse formulário está muito bem feito. Conserte apenas umas tabulações extras que estão percorrendo células das colunas AE e AF. --- Cole o código aba...

Vale lembrar que você pode alterar a ordem em que os controles do formulários obtém o foco ao se pressionar Enter ou Tab. Você pode alterar a propried...

Em primeiro lugar, troque: If txtref.Text = "" Then MsgBox "Digite uma refêrencia valida" txtref.Set...

Eu também não entendi até agora o que o OP quer, mas segue mais um exemplo para se colar num formulário: Dim clc As Collection Private Sub UserForm_I...

Por que você não oculta a Aplicação Excel mesmo então? Uma vez que um formulário está em execução, não é possível usar a Aplicação pai desse formulári...

Sub OcultarJanelas() Dim wnd As Window For Each wnd In Windows wnd.Visible = False Next wnd End Sub Sub ReexibirJanelas() ...

Os itens estão dispostos num formato de tabela? Se sim, você pode criar uma rotina na Pasta de Trabalho mãe que faz um laço em todas as Pastas de Trab...

Você executa alguma consulta SQL para inserir os dados na tabela dinâmica? Se sim, use uma consulta como: SELECT Código & ' - ' & 'Descrição' ...