drreis

deu certo. obrigado.

boa tarde!! Eu montei um exemplo utilizando a função Endereço, porém não consegui selecionar somente as colunas A e D Sub Macro1() endereco1 = Cells(1, 1).Address(RelativeTo = True, ColumnAbsolute = True) endereco2 = Cells(8, 1).Address(RelativeTo = True, ColumnAbsolute = True) endereco3 = Cells(1, 4).Address(RelativeTo = True, ColumnAbsolute = True) endereco4 = Cells(8, 4).Address(RelativeTo = True, ColumnAbsolute = True) selecao1 = endereco1 & ":" & endereco2 selecao2 = endereco3 & ":" & endereco4 Range(selecao1, selecao2).Select 'nesse forma de seleção dá certo, porém na forma acima selecionas as colunas A, B, C e D Range("A1:A8,D1:D8").Select End Sub

Obrigado pela ajuda, mais talvez não tenha ficado claro, a coluna C é dinâmica, no loop ela no 1º loop ela é a C, dps a E e assim por diante.

Bom dia! mais a coluna C que é dinâmica.

Boa noite!! A seleção é dinâmica, por isso tentei usar cells

Pessoal, eu estou tentando selecionar 2 colunas, coluna A e C através do cells, porém quando eu coloco o código abaixo também seleciona a coluna B range(Cells(1, 1), Cells(4, 3)).Select alguém poderia me ajudar A C B 1 teste teste2 2 1 a 3 2 b 4 3 c

com a formula FILTRO eu consegui. obg.

Pessoal, eu estou criando um caixa de combinação (Controle activeX) e gostaria que listasse somente as empresas que estão com o status ativo, tentei um código que uso em formulários, porém não deu muito certo, alguém poderia me ajudar!! EMPRESA STATUS A Ativo B Ativo C Ativo D Oculto F Oculto G Ativo

bom dia!! Alyson, acho que não consegui explicar meu problema, mais tentando aqui eu já consegui, segue o código abaixo. private Sub UserForm_Initialize() Dim ultimaLin As Long, area As New Collection Dim Value As Variant, temp() As Variant On Error Resume Next ultimaLin = Sheets("Planilha1").Range("A" & Rows.Count).End(xlUp).Row temp = Sheets("Planilha1").Range("A2:A" & ultimaLin).Value i = 2 For Each Value In temp If Len(Value) > 0 And Range("B" & i) = "Obra" Then area.Add Value, CStr(Value) i = i + 1 Next Value For Each Value In area 'Adicionando item ao ComboBox ComboBox1.AddItem Value Next Value Set area = Nothing End Sub minha dúvida fica em relação a classificação do combobox!!

pessoal estou criando uma combobox que deverá ser exibida no formulário somente se o status estiver como "em obra", conforme exemplo abaixo. gostaria que mostrasse no formulário somente as unidades 100, 200 e 500, desconsiderando a 500 porque está com o Status de concluída, normalmente eu utilizo o código abaixo ultimalinhatipovenda = Sheets("Painel").Range("F6").End(xlDown).Row Caixacombinacao_tipovenda.RowSource = "Painel!F7:F" & ultimalinhatipovenda Caixacombinacao_tipovenda.Style = fmStyleDropDownList Unidade Status 100 Em Obra 200 Em Obra 300 Concluída 500 Em Obra

Estou criando um campo com uma caixa de texto (Controle ActiveX) e gostaria que esse campo tivesse o formato de data, eu coloquei para gravar a informação na célula A1, porém o valor que grava como texto e não em formato de data.

Deu certo, muito obrigado!!

pessoal, sou iniciante em VBA e tenho uma dúvida em relação a formulários, tenho 6 textbox com os nomes txtvalorsinal1 até o txtvalorsinal6, gostaria de fazer um For (i) para rodar uma rotina para trazer os valores de cada textbox nas linhas. criei uma variável com o nome: parcela = "txtvalorsinal" & i, dentro do txtvalorsinal1 tem o valor de 100,00, porém o retorno da variaval não tras os 100 e sim "txtvalorsinal1", como eu faço pra trazer o valor??