Olá,

 

Alguém sabe como localizar texto em toda a planilha do Excel 2000?
Manualmente no software Excel 2000 ou programaticamente?

 

É que até agora usando a ferramenta localizar do menu editar só consegui localizar texto e valores apenas na aba aberta correntemente.

Já olhei no help e nada encontrei ainda!

 

Grato,

Este exemplo é para uma planilha de 2 colunas, você poderá incrementar para mais colunas.

 

Referenciar no projeto Microsoft Excel x.x Object Library

 

Option Explicit
  Dim Origem   As String
  Dim Linha    As String
  Dim Texto1   As String
  Dim Texto2   As String
  Dim Celula1  As String
  Dim Celula2  As String
  Dim ObjExcel As Object
Private Sub Cmd_Localizar_Click()
  On Error GoTo Erro
  CommonDialog1.Filter = "Arquivos Exel (*.xls)|*.xls"
  CommonDialog1.FilterIndex = 1
  CommonDialog1.ShowOpen
  Origem = CommonDialog1.FileName
  Set ObjExcel = CreateObject("Excel.Application")
  ObjExcel.Workbooks.Open FileName:=Origem
  ObjExcel.Sheets(1).Select
  Celula1 = "A1"
  Celula2 = "B1"
  Texto1 = "Brasil"
  Texto2 = "China"
  Do While True
    Texto1 = ""
    Texto2 = ""
    ObjExcel.Range(Celula1).Select
    Texto1 = ObjExcel.ActiveCell.Value
    ObjExcel.Range(Celula2).Select
    Texto2 = ObjExcel.ActiveCell.Value
    If Len(Texto1) = 0 Then               ' verifica se é o fim da planilha
      Exit Do
    End If
    If Texto1 = "Brasil" Or Texto2 = "Brasil" Then
      MsgBox "Texto 1 localizado na célula: " & Celula1, vbOKOnly, "Atenção"
    End If
    If Texto2 = "China" Or Texto2 = "Brasil" Then
      MsgBox "Texto 2 localizado na célula: " & Celula2, vbOKOnly, "Atenção"
    End If
    Celula1 = "A" & CStr(CDbl(Mid(Celula1, 2, 3)) + 1) ' vai para a linha seguinte
    Celula2 = "B" & CStr(CDbl(Mid(Celula2, 2, 3)) + 1)
  Loop
  ObjExcel.Application.Quit
  Set ObjExcel = Nothing
  Exit Sub
Erro:
  Screen.MousePointer = vbDefault
  MsgBox "Ocorreu o erro nº " & Err.Number & vbCr & vbCr & Err.Description, vbOKOnly, "Atenção"
  Err.Clear
End Sub

Jayme

ok, valeu