Rossz napom van. Valaki az előbb azt kérte (nem itt), hogy az egyik lapról a másik lap utolsó adata alá szeretné bemásolni az első lap értékeit és formátumát.

CsRob1 is értéket és formátumot említett, de nem volt szó a másolás helyéről.

 

Sub Bevisz()
Dim usor As Integer

Sheets("Kezdő_lap").Select

 

'Ehelyett fixen megadhatod a másolandó területet

'Pl. Range("A3:F50").Copy
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Másik_lap").Select

'Ehelyett konkrét helyet is meg lehet adni,

'pl. Range("B5").Select
usor = Range("A1").End(xlDown).Row + 1
Range("A" & usor).Select

 

Selection.PasteSpecial Paste:=xlPasteFormats

Selection.PasteSpecial Paste:=xlPasteValues
End Sub