Podrían ayudarme con esta macro..copiar..
hola esta macro...q es sencilla me copia..de una hoja a otra hoja en otro libro..
pero lo que necesito..es q me ayuden a modificarla ya q al momento q copia
la fila completa..necesito q primero lea el código para realizar el pegado..
si es código existe q salga un msgbox"dato ingresado.."por lo tanto ejecuta esta macro..
gracias de antemano..
claro si modifican esta macro a su manera..no habría problema total necesito q ejecute lo q necesito.millllllllgracias nuevamente
Sub copiando()
Application.ScreenUpdating = False
cop = ActiveCell.Value
Rows(ActiveCell.Row).Select
Selection.copy
Windows("ACTUALIZANDO_DATOS.xls").Activate
Range("A2").Select ' Do While Not IsEmpty(ActiveCell) ''que vaya bajando una fila ActiveCell.Offset(1, 0).Select
Loop 'ActiveSheet.Paste
ActiveCell.Offset(0, 0).Select
ActiveWindow.ScrollColumn = 1
Windows("CUADRO GENERAL GRUPO SAGA 2012.xls").Activate
Application.CutCopyMode = False
ActiveCell.Offset(0, 0).Select
ActiveWindow.ScrollColumn = 1 ' End Sub ' '
1 respuesta
¿Cuál columna del la fila es la que quieres validar?
Lo que tienes que poner es por ejemplo:
Dim Res as Variant
Cells(lin, col).Select 'lin y col tienen que ser reemplazadas por el numero de linea y por el número de columna donde se encuentra el código.
valcodigo = ActiveCell
Windows("CUADRO GENERAL GRUPO SAGA 2012.xls").Activate
Res = Application.VLookup(valcodigo, Range(Cells(lin, col), Cells(ultimalin, col)), 1, False) 'igualmente tienes que reemplazar lin y col por los números donde se va a buscar, ultimalin es la ultima de tu hoja.
If IsError(Res) = False Then
' El código si lo encontró
' Instrucciones de que si lo encontró
Else
'El código no fue encontrado
End If
