copian el siguiente cogido en el botón de buscar
Private Sub CommandButton1_Click()
Sheets("Renta 110").Select TextBox1 = "110"
Sheets("AspectosdeterminacionCREE 140").Select TextBox1 = "AspectosdeterminacionCREE 140"
Sheets("140 cree").Select TextBox1 = "140 cree"
Sheets("310").Select TextBox1 = "310"
Sheets("315").Select TextBox1 = "315"
Sheets("350-2014").Select TextBox1 = "350-2014"
Sheets("360").Select TextBox1 = "360"
Sheets("Formulario360").Select TextBox1 = "Formulario360"
Sheets("360 otro").Select TextBox1 = "360 otro"
Sheets("410").Select TextBox1 = "410"
Sheets("430").Select TextBox1 = "430"
Sheets("490").Select TextBox1 = "490"
Sheets("1302").Select TextBox1 = "1302"
Sheets("1381 soportes").Select TextBox1 = "1381 soportes"
Sheets("Solicitud acredit 1381").Select TextBox1 = "Solicitud acredit 1381"
Sheets("1732").Select TextBox1 = "1732"
Sheets("210").Select TextBox1 = "210"
Sheets("220").Select TextBox1 = "220"
Sheets("300").Select TextBox1 = "300"
Sheets("300-Anexos").Select TextBox1 = "300-Anexos"
Sheets("Formulario350").Select TextBox1 = "Formulario350"
Sheets("300-1").Select TextBox1 = "300-1"
End
End Sub
nota : para poder buscar deben escribir el nombre completo con mayúsculas o espacios como esta entre las comillas


No hay comentarios:
Publicar un comentario