Procurar palavra em uma coluna com VBA

Question

Boa noite a todos...

Preciso checar se uma palavra est&aacute; presente em uma coluna. Para isso, estou tentando utilizar o While, mas est&aacute; dando um erro e n&atilde;o consigo resolver. Tenho pouca no&ccedil;&atilde;o de VBA, por isso, venho mais uma vez, pedir a ajuda da comunidade. Em anexo a planilha exemplo.

Gratid&atilde;o

Answer

[QUOTE=Playboy, post: 8491639, member: 669]
Preciso checar se uma palavra est&aacute; presente em uma coluna.[/QUOTE]

Sub ProcuraProduto()
If Application.CountIf(Range(Lista_Produtos), Range(Produto).Value) Then
  MsgBox produto encontrado
Else: MsgBox produto n&atilde;o encontrado
End If
End Sub

Answer

[QUOTE=GuimeM, post: 8491651, member: 1263505]Sub ProcuraProduto()
If Application.CountIf(Range(Lista_Produtos), Range(Produto).Value) Then
  MsgBox produto encontrado
Else: MsgBox produto n&atilde;o encontrado
End If
End Sub
[/QUOTE]

[USER=1263505]@GuimeM[/USER], boa noite. Dessa forma n&atilde;o me atende. Veja bem, Fiz uma planilha que se assemelha bem &agrave;s minhas necessidades. Pensei que, com sua explica&ccedil;&atilde;o eu daria conta, mas minha necessidade, vai al&eacute;m do meu conhecimento de VBA. Preciso listar os alunos de uma determinada turma. O retorno deve atender a 4 crit&eacute;rios. Ano, Semestre, Turno e Turma.

Mas, tem alguns problemas.. em anexo a planilha com as necessidades e os problemas detectados por mim... agrade&ccedil;o muito se puder ajudar...

Gratid&atilde;o

Answer

[QUOTE=Playboy, post: 8492407, member: 669][USER=1263505]Dessa forma n&atilde;o me atende.
[COLOR=#ff0000]Sim, atende ao que voc&ecirc; pediu![/COLOR]

Veja bem, ... Pensei que, com sua explica&ccedil;&atilde;o eu daria conta, ...
[COLOR=#ff0000]Veja bem, essa manobra que voc&ecirc; tentou s&oacute; d&aacute; certo em alguns raros casos de usu&aacute;rios.[/COLOR]
[/USER][/QUOTE][USER=1263505]

O retorno deve atender a 4 crit&eacute;rios. Ano, Semestre, Turno e Turma.
Veja se este c&oacute;digo atende.
Sub ListarAlunos()
Application.ScreenUpdating = False
[J5:O13] = 
With Sheets(Planilha2)
  On Error Resume Next
  .ShowAllData
  On Error GoTo 0
   With .Range(B3:G & .Cells(Rows.Count, 2).End(xlUp).Row)
    .AutoFilter 3, [F2]
    .AutoFilter 4, [C2]
    .AutoFilter 5, [I2]
    .AutoFilter 6, [L2]
   End With
  If .AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Count > 1 Then
   .Range(B4:G & .Cells(Rows.Count, 2).End(xlUp).Row).Copy [J5]
  Else: MsgBox CRIT&Eacute;RIOS N&Atilde;O ENCONTRADOS
  End If
  .ShowAllData
End With
End Sub

Aproveite para colocar Turma em B2 no lugar de Curso.[/user]

Answer

[QUOTE=GuimeM, post: 8493073, member: 1263505][USER=1263505]

O retorno deve atender a 4 crit&eacute;rios. Ano, Semestre, Turno e Turma.
Veja se este c&oacute;digo atende.
Sub ListarAlunos()
Application.ScreenUpdating = False
[J5:O13] = 
With Sheets(Planilha2)
  On Error Resume Next
  .ShowAllData
  On Error GoTo 0
   With .Range(B3:G & .Cells(Rows.Count, 2).End(xlUp).Row)
    .AutoFilter 3, [F2]
    .AutoFilter 4, [C2]
    .AutoFilter 5, [I2]
    .AutoFilter 6, [L2]
   End With
  If .AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Count > 1 Then
   .Range(B4:G & .Cells(Rows.Count, 2).End(xlUp).Row).Copy [J5]
  Else: MsgBox CRIT&Eacute;RIOS N&Atilde;O ENCONTRADOS
  End If
  .ShowAllData
End With
End Sub

Aproveite para colocar Turma em B2 no lugar de Curso.[/user][/QUOTE]

Boa noite [USER=1263505]@GuimeM[/USER], primeiramente, gostaria de agradecer muito, mas muito mesmo por retirar um um pouco do seu precioso tempo para ajudar... gratid&atilde;o por isso.  
O c&oacute;digo postado por voc&ecirc; me atende, mas eu n&atilde;o preciso que liste todas as informa&ccedil;&otilde;es, eu preciso que liste apenas o c&oacute;digo do aluno e o nome, as demais informa&ccedil;&otilde;es n&atilde;o h&aacute; necessidade de listar, s&atilde;o apenas filtro mesmo.
Tem um pequeno problema, o local onde &eacute; listado o nome dos alunos (na planilha1), possui uma formata&ccedil;&atilde;o de cor, negrito, centraliza&ccedil;&atilde;o... quando &eacute; listado os alunos, essa formata&ccedil;&atilde;o se perde, preciso que mantenha.

Outra coisas, na minha planilha, o c&oacute;digo est&aacute; na primeira coluna, o nome na coluna 10, por exemplo, eu gostaria de saber como pegar colunas alternadas do banco de dados que n&atilde;o est&atilde;o em sequ&ecirc;ncia, Qual seria a mudan&ccedil;a no c&oacute;digo?. Vou colocar a planilha em anexo para melhor entendimento.

Agrade&ccedil;o muito, mais uma vez, que Deus ilumine e aben&ccedil;oe sua vida... muita paz e luz em seu caminho

Answer

Veja se este atende.

Sub ListarAlunos()
Dim UL As Long
  Application.ScreenUpdating = False
  [J5:O13] = 
  With Sheets(Planilha2)
    On Error Resume Next
    .ShowAllData
    On Error GoTo 0
    UL = .Cells(Rows.Count, 2).End(xlUp).Row
     With .Range(B3:J & UL)
      .AutoFilter 6, [turno]
      .AutoFilter 7, [C2]
      .AutoFilter 8, [I2]
      .AutoFilter 9, [L2]
     End With
    If .AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Count > 1 Then
     .Range(B4:B & UL).Copy
     [J5].PasteSpecial xlValues
     .Range(F4:F & UL).Copy
     [K5].PasteSpecial xlValues
     [L5].Resize(Application.CountA([K5:K13])) = [O2]
    Else: MsgBox CRIT&Eacute;RIOS N&Atilde;O ENCONTRADOS
    End If
    .ShowAllData
  End With
[J5].Activate
End Sub

Answer

Bom dia [USER=1263505]@GuimeM[/USER]. Perfeito... perfeito... voc&ecirc; &eacute; o cara... muito obrigado, sem palavras para agradecer... exatamento o que eu esperava e precisava...

Gratid&atilde;o... muita paz, prote&ccedil;&atilde;o e luz em seu caminho

Answer

[USER=669]@Playboy[/USER] , ficamos contentes por ter encontrado uma solu&ccedil;&atilde;o.

Paz e sa&uacute;de a voc&ecirc; tamb&eacute;m.

Ferramentas

Mover Tópico