Macros en excel
Publicado por toledo (1 intervención) el 23/05/2008 03:37:29
COMO HACER QUE LA BÚSQUEDA SE ACTUALICE AL EJECUTAR LA MACRO, YA QUE COPIA DE UNA BASE DE DATOS LA CLAVE MARCADO EN AMARILLO PERO MANTIENE ESA CLAVE EN LA EJECUCIONES POSTERIORES Y NO ACTUALIZA LA CLAVE SIGUIENTE DE LA BASE DE DATOS ("IH19-060-010"). A CONTINUACIÓN MUESTRO MI MACRO. POR SU COLABORACIÓN LAS MAS CODIFICADAS GRACIAS.
Sub Macro8()
'
' Macro8 Macro
' Macro grabada el 22/05/2008 por ACENER1
'
' Acceso directo: CTRL+a
'
Selection.Copy
Cells.Find(What:="IH19-060-010", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, 5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, -7).Range("A1").Select
End Sub
Sub Macro8()
'
' Macro8 Macro
' Macro grabada el 22/05/2008 por ACENER1
'
' Acceso directo: CTRL+a
'
Selection.Copy
Cells.Find(What:="IH19-060-010", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, 5).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, -7).Range("A1").Select
End Sub
Valora esta pregunta
0