............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Traer datos de otra hoja

Ver el tema anterior Ver el tema siguiente Ir abajo

Traer datos de otra hoja

Mensaje por neskat el Jue Oct 24, 2013 10:17 am

Hola comunidad:

Les cuento, tengo dos archivos en excel , uno llamado sueldos y otro llamado traernuevos.xlsm, el archivo sueldos tiene un boton que llama a una macro llamada traernuevos() que esta en el archivo traernuevos.xlsm, la macro busca columnas entre dos palabras y las pega en una columna seleccionada de sueldos, el problema es que esta linea Columns("INI:FIN").Select , no me selecciona las dos columnas , sino que me toma la columna INI y la FIN y las pega.

Les adjunto codigo completo por si me pueden ayudar


Sub traernuevos()
nombre = Range("A1").Value
Windows(nombre).Activate
Sheets("Hoja1").Select
Dim R, INI, E, FIN As Long
Set V = Cells.Find("aaa")
If Not V Is Nothing Then
R = V.Row
INI = V.Column
Else
MsgBox "Texto aaa No encontrado": Exit Sub
End If
Set W = Cells.Find("bbb")
If Not W Is Nothing Then
E = W.Row
FIN = W.Column
Else
MsgBox "Texto bbb No encontrado": Exit Sub
End If
INI = INI + 1
FIN = FIN - 1
Columns("INI:FIN").Select
Selection.Copy
Windows("sueldos.xlsx").Activate
Selection.Insert Shift:=xlToRight
Range("L8").Select
End Sub

neskat

Masculino Cantidad de envíos : 10
Edad : 34
Ciudad - Pais : Chile
Version de Excel : 2010
Fecha de inscripción : 25/09/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.