Ir para conteúdo
Fórum Script Brasil

EAM2021

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

Sobre EAM2021

Últimos Visitantes

456 visualizações

EAM2021's Achievements

0

Reputação

  1. Boa tarde, pessoal! Quando eu altero o arquivo "bin" de um projeto VBA, pode causar este erro (foto em anexo)? Já fiz a compilação no projeto e não detectou-se erros nos códigos. Alguém sabe me dizer o que pode estar causando esse erro? Grata pela atenção.
  2. Olá! Não sei o que estou fazendo de errado no código de formatação automática das células ao gerar a impressão. Meu código está assim: Sub formatacao() On error resume next Planilha23.Activate Dim uLinha As Integer Dim rgBordas As Worksheet uLinha = Cells(Rows.Count, "A").End(xlUp).Row With Range("A2:F2") .Font.Name = "Segoe UI" .Font.Size = 11 .Font.Color = vbBlack End With With Range("A2:F" & uLinha) .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True End With Set rgBordas = Range(Cells(iRow, 1), Cells(iRow, 6)) With rgBordas("A2:F" & uLinha) .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).ColorIndex = 1 .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).ColorIndex = 1 End With Range("A2:A" & uLinha).NumberFormat = "@" Range("D2:D" & uLinha).NumberFormat = "@" End Sub Alguém saberia me dizer onde está o erro? Pois já tentei gravar a macro direto no excel, mas mesmo assim, não funcionou. Grata.
  3. Muito obrigada mesmo Alyson, pela ajuda!
  4. Bom dia! Obgda por responder. Eu tentei anexar, mas não achei o local. Mas meu e-mail é xxxxxxx Posso te enviar o modelo por lá. Cordialmente,
  5. Boa noite, Sou iniciante em VBA, e estou com dificuldades em criar uma estrutura que aceite várias condições (Option Button), para um filtro, como segue abaixo: Sub ConsultaDados(ByVal formulario As UserForm) 'declaração do objeto ws para a aba Dados Dim ws As Worksheet: Set ws = Planilha24 'identificação da posição da coluna que deseja filtrar Dim colunaFiltro As Byte: colunaFiltro = Application.WorksheetFunction.Match(formulario.ComboBoxCampos.Text, ws.Range("A3:D3"), 0) 'variável de controle para o for Dim i As Integer 'definição do valor a ser filtrado Dim valorFiltro As String: valorFiltro = UCase(formulario.TextBoxFiltro.Text) 'definição da seção selecionada '............... AQUI QUE NÃO ESTOU CONSEGUINDO AJUSTAR PARA ACEITAR MAIS OPTION BUTTON/CONDIÇÕES ................ Dim secao As String: secao = IIf(formulario.OptionButton1.Value = -1, formulario.OptionButton1.Caption, _ formulario.OptionButton2.Caption) '............................... FIM DO PROCEDIMENTO ...................................... 'AQUI COMEÇA O PROCEDIMENTO PARA FILTRAR OS DADOS DA LISTBOX VIA TEXTBOX DE ACORDO COM O OPTION BUTTON SELECIONADO... 'limpeza da listagem formulario.ListBoxLista.Clear 'estrutura de repetição que irá varrer toda a tabela em busca dos valores For i = 4 To ws.Range("A1048576").End(xlUp).Row 'se a célula da coluna pesquisada tiver alguma coisa relacionada com o campo de pesquisa e for igual a seção escolhida, então, preencher com o conteúdo informado. If ws.Cells(i, colunaFiltro) Like "*" & valorFiltro & "*" And ws.Cells(i, 4) = secao Then With formulario.ListBoxLista .AddItem .List(.ListCount - 1, 0) = ws.Cells(i, 1) .List(.ListCount - 1, 1) = ws.Cells(i, 2) .List(.ListCount - 1, 2) = ws.Cells(i, 3) .List(.ListCount - 1, 3) = ws.Cells(i, 4) End With End If Next i End Sub Tentei pelo If then Else e Select Case, mas sempre acusam erros que não consigo solucionar. Já existe um código que consolida os botões com a ListBox... A minha dificuldade está em ajustar o código do filtro, para aceitar varias condições/botões de opção. Já que estão apenas as opções 1 e 2. Não sei se deu para entender... Cordialmente, Elane
×
×
  • Criar Novo...