Buscar Palabra y copiarla en otra columna
Publicado por javier (25 intervenciones) el 30/08/2016 18:50:27
Bunos dias esperando se encuentren bien
solicito de su ayuda
necesito buscar una palabra y su ultimo codigo cuando lo encuentre pegarlo en otra columna
ejemplo :
buscar en columna A
"codigo CDT 345 ( el num siempre varia ) cuando encuentre el dato pegar "CDT 345" en columna B
En mi poca experiencia hice una pequeña macro que funciona bien "en este caso ".
pero cuando en mi archivo no esta la palabra CDT o quiero buscar en lugar de CDT otras por ejemplo
MST 125, TDR 896 me manda un error...
Envio codigo y Archivo
Mil gracias por su ayuda ...
solicito de su ayuda
necesito buscar una palabra y su ultimo codigo cuando lo encuentre pegarlo en otra columna
ejemplo :
buscar en columna A
"codigo CDT 345 ( el num siempre varia ) cuando encuentre el dato pegar "CDT 345" en columna B
En mi poca experiencia hice una pequeña macro que funciona bien "en este caso ".
pero cuando en mi archivo no esta la palabra CDT o quiero buscar en lugar de CDT otras por ejemplo
MST 125, TDR 896 me manda un error...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub copiar()
Dim x As String
Dim found As Boolean
Range("A:A").Select
Selection.Replace What:="* CDTS", Replacement:="CDTS", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:="CDTS *", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Copy
Range("G1").Select
ActiveSheet.PasteEnd Sub
Envio codigo y Archivo
Mil gracias por su ayuda ...
- Libromartes.zip(14,2 KB)
Valora esta pregunta
0
