[es] - Kopiranje raspona i brisanje

jaskojsako
BIH

Član broj: 141632
Poruke: 224
2a02:27b0:5501:3fa0:2cd9:af8..

+4 Profil

^{30.10.2021. u 12:03 - pre 30 meseci}

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

Jasmin

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Kopiranje raspona i brisanje

^{01.11.2021. u 08:24 - pre 29 meseci}

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

Odgovor na temu