drreis
-
Total de itens
13 -
Registro em
-
Última visita
Posts postados por drreis
-
-
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 NextultimaLin = 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 Subminha 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 = fmStyleDropDownListUnidade 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.
-
Em 01/11/2020 em 08:46, Alyson Ronnan Martins disse:
Bom dia @drreis.
Você pode usar a propriedade controls do seu formulário.
Eu fiz um formulário com 7 campos de texto e um botão para retornar o valores dos sete botões de modo dinâmico.
Segue abaixo o código:
Private Sub CommandButton1_Click() Dim i As Long Dim msg As String For i = 1 To 7 Step 1 msg = msg & Chr(13) & UserForm1.Controls("TextBox" & i).Value Next i MsgBox msg End Sub
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??
Selecionar várias células (cells)
em VBA
Postado
deu certo.
obrigado.