golire automata date
-
- Mesaje: 44
- Membru din: Dum Aug 27, 2017 4:37 pm
golire automata date
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!
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.
Re: golire automata date
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:
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.
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
-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.
-
- Mesaje: 44
- Membru din: Dum Aug 27, 2017 4:37 pm
Re: golire automata date
Multumesc frumos,e ceea ce doream!