[ jaskojsako @ 30.10.2021. 12:03 ] @
Pozdrav
imam pitanje u vezi kopiranje opsega,ovaj kod mi odradi kopiranje Range to je ok,u prilogu kod


Range("B24:AA24").Copy

Range("B" & Rows.Count).End(xlUp).Offset(1).Select

ActiveSheet.Paste

Application.CutCopyMode = False
Range("B22").Select



Trebao bi ako moze dopuna koda da kad kopira Range da izbriše i podatke u Range koji kopira,da bude kopiran opseg ali prazan.
Sad mi kopira Range ali s podacima,sto ne odgovara.
Hvala
[ Ivek33 @ 01.11.2021. 08:24 ] @
Na internetu ima dosta primjera za brisanje podataka u određenom Range (opsegu)

Međutim iz tvog zadnjeg dijela pitanja meni nije jasno, želiš li ti obrisati podatke iz izvora kopiranja nakon kopiranja ili kopirati određeni range pa onda brisati na destinaciji (što mi je nelogično)

Za slučaj da želiš obrisati kopirane podatke probaj pozvati jedan od makroa nakon kopiranja podataka

Code:

Sub Macro1() 'ako su podaci u nekom rasponu ćelija
    Range("A5:X50").Select
    Selection.ClearContents 'briše sve podatke u range
End Sub

--------------------- ili ------------------------------------------

Sub Macro2() 'ako su podaci u stvarnoj tablici imenovanoj Table1 na Sheet2
    With Sheet2.ListObjects("Table1")
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.ClearContents 'briše podatke ali ne i redove
            '.DataBodyRange.Delete 'briše podatke ali i redove
        End If
    End With
End Sub