Seleccionar ubicación de acuerdo a resultado xltoright
cordial saludo...
resulta que estoy copiando datos a 3 columnas diferentes, cada vez que lo hago necesito obviamente hacerlo en columnas diferentes ej:
si la primera vez lo copie en la columna a,b,c en las siguientes serán d,e,d eso ya lo pude hacer asi:
Hoja2.Select
Range("B2").Select
Range("B2").End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sucede que necesito ubicarme ahora en la parte de arriba de esas 3 columnas combinarlar y poner la fecha, sin embargo no se como ubicarme arriba..
gracias.
1 Respuesta
Te dejo la línea que tenés que incluir antes del pegado, para saber cuál es la 1er col de pegado:
Range("B2").End(xlToRight).Offset(0, 1).Select
col = ActiveCell.Column
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'A continuación del pegado podes combinar las 3 celdas con esto y colocar la fecha:
Range(Cells(1, col), Cells(1, col + 2)).Select
Selection.Merge
Selection.value = Date()
