"...ela só pesquisa na aba especifica..."
Não entendi a demanda.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 1537 ocorrências
- Qua Mai 03, 2023 6:54 am
- Fórum: VBA Básico
- Tópico: abrir abas especificas com combobox
- Respostas: 6
- Exibições: 10899
- Qua Mai 03, 2023 6:50 am
- Fórum: VBA Básico
- Tópico: abrir abas especificas com combobox
- Respostas: 6
- Exibições: 10899
Re: abrir abas especificas com combobox
"...aparecessem só as abas classe..." frmCadastro, uma possibilidade; altere as rotinas conforme abaixo Private Sub UserForm_Initialize() Dim I As Integer For I = 1 To Sheets.Count If Sheets(I).Name Like "CLASSE*" Then Me.ComboBox1.AddItem Sheets(I).Name End If Next I End Sub e ...
- Qui Abr 20, 2023 1:52 pm
- Fórum: VBA Básico
- Tópico: Remover item de do listiview aoExportar para outro listiview
- Respostas: 5
- Exibições: 4332
Re: Remover item de do listiview aoExportar para outro listiview
"...o item e os subitens não..." Talvez assim: Private Sub btnTransCautelar_Click() 'Exporta linhas do ListDisponivel para listCautelar e exclui Linhha do ListDisponivel If listDisponivel.SelectedItem.Checked Then Dim x, y, z As Integer Dim Li As Object Dim sItem As Long Dim colunas As Int...
- Qua Abr 19, 2023 4:00 pm
- Fórum: VBA Básico
- Tópico: Remover item de do listiview aoExportar para outro listiview
- Respostas: 5
- Exibições: 4332
Re: Remover item de do listiview aoExportar para outro listiview
Pergunta,
pode ser alterado status do item ao migrar de listview.
Caso negativo, pode ser utilizado uma nova coluna "provisoria"
pode ser alterado status do item ao migrar de listview.
Caso negativo, pode ser utilizado uma nova coluna "provisoria"
- Sex Abr 14, 2023 8:15 am
- Fórum: VBA Básico
- Tópico: Comparar valores entre duas colunas e listar
- Respostas: 1
- Exibições: 3824
Re: Comparar valores entre duas colunas e listar
Experimente: Sub teste() 'Definir as planilhas Dim conferencia As Worksheet Dim observacoes As Worksheet Set conferencia = ThisWorkbook.Worksheets("Conferencia") Set observacoes = ThisWorkbook.Worksheets("OBSERVAÇÕES") 'Definir as variáveis Dim ultimaLinhaConferencia As Long Dim ...
- Ter Abr 11, 2023 10:03 am
- Fórum: VBA Básico
- Tópico: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]
- Respostas: 5
- Exibições: 5065
Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO
experimente alterar no botão "CADASTRAR", como abaixo: Private Sub CommandButton1_Click() ' ATIVA A PLANILHA Sheets("Planilha1").Activate ' localiza o local para armazenar o nome Range("A1000000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ' verifi...
- Sáb Abr 08, 2023 9:27 am
- Fórum: VBA Básico
- Tópico: Dificuldade de Carragar dados de uma ListView
- Respostas: 2
- Exibições: 3784
Re: Dificuldade de Carragar dados de uma ListView
Falta incluir referencia a biblioteca MSCOMCTL.ocx
- Sáb Abr 01, 2023 10:05 am
- Fórum: VBA Básico
- Tópico: Fechando calendário
- Respostas: 1
- Exibições: 3821
Re: Fechando calendário
O Formulário em questão possui o evento necessário para a sauda sen selecionar data; e um duplo click em qualquer area do mesmo sem numero. Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.Hide End Sub Caso deseje utilizar um botão especifico pode "chamar" o evento D...
- Sex Mar 10, 2023 5:28 pm
- Fórum: VBA Básico
- Tópico: Ativar botão ALTERAR em userforms
- Respostas: 2
- Exibições: 3818
Re: Ativar botão ALTERAR em userforms
Pela definição de variáveis, o PROCESSO e um numero inteiro (integer); porem mesmo estando visualmente como numero no excel, internamente pode ser considerado um texto. Então experimente utilizar a pesquisa com Processo como texto. Caso não consiga , disponha um modelo com poucos dados (ficticios) m...
- Seg Fev 27, 2023 3:32 pm
- Fórum: VBA Básico
- Tópico: Pesquisa valor de combobox em uma só linha da planilha
- Respostas: 11
- Exibições: 6878
Re: Pesquisa valor de combobox em uma só linha da planilha
Talvez assim: Sub GuardarLitros() Dim Ctrl As Control Dim c As Integer, x As Integer Dim strText As String 'Determina a coluna a ser utilizada c = WorksheetFunction.Match(Me.ComboBoxMES.List(ComboBoxMES.ListIndex, 2), Sheets("GASOLEO").Range("A1:M1"), 0) 'Loop pelos controles do ...