Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Dunguinha
Posts
#72516
Boa noite.
Na pasta de trabalho em anexo preciso que a palavra digitada na TextBox1 seja encontrada na planilha e a todas as linhas que contém a palavra seja selecionada.
Não precisa deletar, só selecionar.
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#72519
Código: Selecionar todos
Private Sub CommandButton1_Click()
 Dim c As Range, cR As String
  For Each c In Range("D3:D" & Cells(Rows.Count, 4).End(3).Row)
   If c.Value = TextBox1.Value Then
    cR = cR & c.Address & ","
   End If
  Next c
  If cR <> "" Then
   Range(Left(cR, Len(cR) - 1)).EntireRow.Select
  Else: [A1].Activate: MsgBox "NOME NÃO ENCOTRADO"
  End If
End Sub
Dunguinha agradeceu por isso
Por Dunguinha
Posts
#72532
Ao adaptar o código para meu projeto deu erro.
Teria que selecionar várias linhas com a palavra buscada, pelo menos até linha 500
Pelo que percebi só vai até a linha 40 ou 43 e depois dá erro.
Exemplo em anexo.
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#72535
Dunguinha escreveu: 11 Dez 2022 às 08:50 Teria que selecionar várias linhas com a palavra buscada, pelo menos até linha 500
Antes você postou um exemplo contendo 11 linhas com dados e só agora vem dizer que vai processar 500 linhas. :shock:
Habitue-se a passar as informações precisas logo na primeira postagem.
Código: Selecionar todos
Private Sub CommandButton1_Click()
 Dim c As Range, cR As Range
  For Each c In Range("D3:D" & Cells(Rows.Count, 4).End(3).Row)
   If c.Value = TextBox1.Value Then
    If Not cR Is Nothing Then
     Set cR = Union(cR, c.EntireRow)
    Else: Set cR = c.EntireRow
    End If
   End If
  Next c
  If Not cR Is Nothing Then
   cR.Select
  Else: [A1].Activate: MsgBox "NOME NÃO ENCONTRADO"
  End If
End Sub
Por Dunguinha
Posts
#72536
Desculpe Osvaldo, você tem razão. O projeto será para filtrar chaves de acessos de arquivos xml importados para o excel. Fiz muitos testes mas com xml de poucos itens. Agora apareceu essa necessidade. Obrigado pelo seu empenho mais uma vez.
osvaldomp agradeceu por isso

=SE(MÊS(A1)&lt;7;&quot;1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um &quot;[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord