Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: NaNo N´RoSeS en 9 Junio 2005, 16:12 pm



Título: Macro en Vb
Publicado por: NaNo N´RoSeS en 9 Junio 2005, 16:12 pm
 Tengo un Problema,
resukta que yo pego una pagina web en un excel
y yo necesito que un rango que va desde A7:CR7 se me pegue en otro excel aparte (eso ya lo tengo solucionado), el problema es que en el rango mencionado necesito que la celdad C7 se busque en el otro excel en la columna E (de la E1:E65536), y si encuentra ese valor me pegue en este excel el rango ya mencionado (A7:CR7) desde la columna I pero en la fila en que encontro la celda C7.
Este es el codigo que me hace al grabar la marco :

Código:
Sub Busqueda()
'
' Busqueda Macro
' Macro grabada el 7/6/05 por nano
'
' Acceso directo: CTRL+b
'
Range("B7").Select
Selection.Copy
Windows("Maestro.xls").Activate
Columns("E:E").Select
[b]Selection.Find(What:="94.271.000-3"[/b], After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Windows("Only.xls").Activate
Range("A7:CR7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Maestro.xls").Activate
Range("I112").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Por lo tanto esta linea Selection.Find(What:="94.271.000-3 es la que deberia dejarla como variable para que me la buscara en el Excel Final en la columna E y que me pegue con pegado especial en la columa I pero en la misma fila , me entienden.
En resumen q me busque el C7 (en el primer excel) vaya al otro excel  y me busque el mismo C7 si lo encunetra me pegue con un pegado especial en la columna I y enla misma fila.
Gracias y saludos


Título: Re: Macro en Vb
Publicado por: NaNo N´RoSeS en 15 Junio 2005, 00:50 am
Nadie cacha como hacerlo