Jump to content
Fórum Script Brasil

drreis

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Neutro

About drreis

  1. deu certo. obrigado.
  2. 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(selecao
  3. 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.
  4. Bom dia! mais a coluna C que é dinâmica.
  5. Boa noite!! A seleção é dinâmica, por isso tentei usar cells
  6. 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
  7. com a formula FILTRO eu consegui. obg.
  8. 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
  9. 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 'A
  10. 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
  11. 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.
  12. 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??
×
×
  • Create New...