Új hozzászólás Aktív témák

• #35880 Delila_1 veterán föccer #35879

  Új Válasz 2017-08-02 09:14:15 #35880

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #35879 üzenetére

  Rossz hírem van. A másolandó tartománynak először a formátumát másolom a másik lapra, hogy azonosak legyenek a cellaegyesítések. Ennek ellenére az azonos formátumú másolandó területet nem képes az Excel beilleszteni. A lenti makróban kihagyhatod a csillagokkal jelzett sort, mert ott megbukik. Meg kell szüntetned az egyesítéseket, akkor jó lesz.

  Sub Masolas()
Dim sor As Long
If Sheets(2).Range("A5") = "" Then
sor = 5
Else
sor = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 2
End If

Sheets(1).Range("AD18:AD21").Copy
Sheets(2).Range("A" & sor).PasteSpecial xlPasteFormats '***
Sheets(2).Range("A" & sor).PasteSpecial xlPasteValues
End Sub

Új hozzászólás Aktív témák