golire automata date

verbavolant
Mesaje: 40
Membru din: Dum Aug 27, 2017 4:37 pm

golire automata date

Mesaj de verbavolant » Dum Sep 09, 2018 7:51 am

Buna ziua,
ma poate ajuta cineva cu golirea automata a datelor din celulele inverzite(D13:H43, J13:M43, Q13:R16) in sheet-urile din dreapta sheet-ului CENTRALIZATOR? Mentionez ca vor fi multe sheeturi si vreau sa se stearga datele din toate la actionarea unui singur buton.
Multumesc!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

IPP
Moderator
Moderator
Mesaje: 3769
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: golire automata date

Mesaj de IPP » Lun Sep 10, 2018 8:19 am

Buna ziua

atasat aveti spre testare o propunere folosind macro.
Obiectiv: stergerea continulului unor domenii de celule din foaia a patra pana la sfarsit.

am folosit urmatorul cod:

Cod: Selectaţi tot

Sub delMyRange()

'IPP - 10.09.2018

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim i As Integer
Dim myRange As Range

For i = 4 To Sheets.Count
 Sheets(i).Select
 Set myRange = Application.Union(Range("D13:H43"), Range("J13:M43"), Range("Q13:R16"))

 myRange.ClearContents
Next i

Set myRange = Nothing

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False

End Sub
Atentionari:
-codul se bazeaza pe faptul ca in toate foile incepand cu a patra spre dreapta doriti aceasta stergere. Daca cineva, fie si din gresala muta foi (schimba ordinea foilor in fisier) sau adauga la un moment dat foi cu un alt continut, stergerea poate fi gresita/nedorita.
-dat fiind faptul ca unele luni nu au 31 de zile, e posibil sa ajungeti sa stergeti mai multa informatie decat ati fi vrut.

Pentru testare: deschideti fisierul atasat, activati macro/continutul si rulati codul.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

verbavolant
Mesaje: 40
Membru din: Dum Aug 27, 2017 4:37 pm

Re: golire automata date

Mesaj de verbavolant » Lun Sep 10, 2018 11:46 pm

Multumesc frumos,e ceea ce doream!

Scrie răspuns

Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”