Buscar contenido de archivo y copiarlo en otra hoja
Publicado por Toni A (1 intervención) el 18/12/2019 11:32:40
Buenas tardes , os queria hacer una consulta ya que estoy un poco estancado con un tema , se trata de cargar un archivo txt y buscar en el , la parte del txt ya la consegui , y consegui que me encuentre las coincidencias , pero no logro que , una vez encontrada la coincidencia me la escriba.
De todos modos me gustaria saber si existe también alguna función para que haga todo el escaneo de una vez y no tener que volver a darle al boton buscar para encontrar la siguiente coincidencia , os adjunto el codigo:
muchisimas gracias de antemano
De todos modos me gustaria saber si existe también alguna función para que haga todo el escaneo de una vez y no tener que volver a darle al boton buscar para encontrar la siguiente coincidencia , os adjunto el codigo:
1
2
3
4
Private Sub abc_cnh()
Combo1 = UCase(abc)
abc = Combo1End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'::Private Sub CommandButton1_Click()
Sheets("Hoja2").Cells.Clear
'Si existe algún error se brinca a la etiqueta FinOn Error GoTo Fin
'Para tener este código, se puede utilizar la grabadora de macrosCells.Find(What:=cmbLista, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
cmbLista.SetFocus 'Sale del procedimiento sin necesidad de llegar a la etiqueta FinExit Sub
Fin: 'Si el dato escrito no está en la lista arroja el siguiente errorMsgBox "El dato '" & cmbLista & "' no se encuentra en esta hoja", vbInformation, "Excel e Info"
cmbLista = ""
cmbLista.SetFocusEnd Sub
'::Private Sub UserForm_Activate()
'Asignamos como fuente la lista previamente creadaMe.cmbLista.RowSource = "números"
'Le damos el foto al ComboBox cmbLista.SetFocusEnd Sub
muchisimas gracias de antemano
Valora esta pregunta
0