Error para buscar datos en todas las hojas
Publicado por Luis Cortez (1 intervención) el 05/10/2018 23:26:15
Este es el código que tenemos pero si busco un dato en una hoja donde no esté el dato me marca error en esa parte del código
Este es el código completo
y en lo siguiente es donde marca el error al buscar un dato si no estamos en la hoja donde se encuentra
Hoja4.Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, searchformat:=False).Activate
Este es el código completo
1
2
3
4
5
6
7
8
9
Dim ID As String
ID = TextBox1.Value
Hoja4.Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, searchformat:=False).Activate
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
y en lo siguiente es donde marca el error al buscar un dato si no estamos en la hoja donde se encuentra
Hoja4.Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, searchformat:=False).Activate
Valora esta pregunta


0