[es] - Zabrana brisanja reda total

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Zabrana brisanja reda total

^{29.07.2010. u 14:08 - pre 167 meseci}

Imam tabelu sa nekoliko redova, napravo sam dva makroa jedan za dodavanje novog reda sa formatiranim ćelijama a drugi za brisanje. E sad problem mi je što kod dodavanja reda dodajem uvek novi iznad totala i to nekako funcioniše ali kod brisanja reda ako nije selektovan red koji hocu da obrišem on obriše bilo koji koji je selektovan ali ajde nekako to mogu i da rešim sa nekom napomenom da pre brisanja selektuju red koji hoće da brišu. ali ono što me zanima jeste kako da kada dođe do reda u kome se nalazi total zabranim brisanje tog reda koji nije uvek u istom redu ali ima sadržaj u ćeliji "SVEGA" ili "TOTAL" u B, G ili bilo kojoj koloni. Bilo bi dobro da jo[ i dodam msgbox tipa "OAVJ RED SE NE MOZE OBRISATI" ali svakako mi je vaznije da stvarno i ne moze.

www.igre-konzole.rs
www.tehnologin.rs

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: Zabrana brisanja reda total

^{29.07.2010. u 17:46 - pre 167 meseci}

Malo je nejasno sve to bez primera (bolje da si okacio taj cod kojim brises redove). Baci pogled na ovu temu:http://www.elitesecurity.org/t386414-0#2481133
Tu je JPeca dao mali kurs brisanja redova, zavisno od nekog uslova.
Ako je kod tebe to jednostavno - "neki opseg ...ClearContents" (samo nagadjam), onda dodaj jedan IF da sprecis brisanje tog reda - npr.11, ako je npr. u "C11" - total, odnosno "Svega". Nesto kao (sve naprimer) :
If Range("C11") <> "Svega" Then (.....neki opseg). Clear / ClearContents...
Pogledaj ipak gornju temu, zaista mnogo govori o brisanju redova. Ako ne pomogne okaci tvoj primer. Pozdrav

Odgovor na temu

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Re: Zabrana brisanja reda total

^{30.07.2010. u 00:41 - pre 167 meseci}

Evo zakačio sam primer pa ako neko bude mogao da pomogne neka bude što jasniji pošto nisam baš vešt sa VBA.

Osim ovog problema imam pitanje i za redni broj pošto koristim funkciju =IF(B13="";"";1) za prvi redni broj a posle za svaki sledeć =IF(B14="";"";A13+1), pa me zanima da li postoji neko jednostavnije ili naprednije rešenje za redni broj da u formi ne koristim kao osnovu dva reda nego samo jedan a da mi makro dodaje sledeći ili kod brisanja ako neko obriše red iz sredine da se ažurira.

www.igre-konzole.rs
www.tehnologin.rs

Prikačeni fajlovi

Zabrana brisanja reda macro.xlsm - 26.1k

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: Zabrana brisanja reda total

^{01.08.2010. u 12:57 - pre 167 meseci}

Kao sto rekoh u prvom odgovoru, samo je trebalo dodati jedan IF u codu, pre brisanja. Preradio sam malo tvoj primer (kod mene je Excel-2003), i trebalo bi da ti zavrsi posao. U polju "SVEGA" sam pobrisao spejsove ispred "S". Sto se tice rednog broja, malo je nezgodno u tvom slucaju, zbog one donje tabele. Ja sam ti promenio funkciju u "A" koloni, pa vidi da li ti je tako bolje. Ako nije, ti vrati tvoju funkciju. Pozdrav

Prikačeni fajlovi

Zabrana brisanja2.xls - 30.5k

Odgovor na temu

todra
Todorov Ratko
Kragujevac

Član broj: 46809
Poruke: 203
*.dynamic.isp.telekom.rs.

+4 Profil

Re: Zabrana brisanja reda total

^{01.08.2010. u 18:03 - pre 167 meseci}

Za redni broj ovo je super. Prilagodi.

Primer: u A1 unesi

=SUBTOTAL(3;$B$1:B1)

i razvuci u ostale ćelije kolone A

Sve najbolje.
Ratko.

Odgovor na temu

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Re: Zabrana brisanja reda total

^{02.08.2010. u 00:05 - pre 166 meseci}

Hvala puno probao sam ja sa nekim IF ali nije ni približno uspelo. Samo nisam shvatio koji deo koda mu je zabranio brisanje.
If Range("B15").Value = "SVEGA" Then MsgBox "OVAJ RED SE NE MOZE OBRISATI !", vbInformation: Exit Sub

I još samo jedno pitanjce ovde si postavio Range("B15") a jel može da Range bude u bilo kojoj B ćeliji mislim da ukoliko dodam još neku kolonu iznad tabele...

_{[Ovu poruku je menjao savetnik.org dana 02.08.2010. u 01:19 GMT+1]}

_{[Ovu poruku je menjao savetnik.org dana 02.08.2010. u 01:23 GMT+1]}

www.igre-konzole.rs
www.tehnologin.rs

Odgovor na temu

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Re: Zabrana brisanja reda total

^{02.08.2010. u 00:11 - pre 166 meseci}

E Ratko izvini ali nisam baš razumeo kako da primenim ovo u mojoj tabeli

www.igre-konzole.rs
www.tehnologin.rs

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: Zabrana brisanja reda total

^{02.08.2010. u 01:38 - pre 166 meseci}

Pa taj red koji si citirao je zabrana brisanja. ---If Range("B15").Value = "SVEGA" Then MsgBox "OVAJ RED SE NE MOZE OBRISATI !", vbInformation: Exit Sub---
U prevodu - Ako je u B15 "SVEGA" sledi poruka o zabrani i obustava procedure (Exit Sub). Mozes ti bilo gde da stavis "SVEGA", i u kodu da promenis referencu (naprimer - umesto "If Range("B15")...", stavi "If Range("B199")...". Samo da ti u "B199" bude SVEGA, i bez spejsova. Dodavanjem redova (tvoje dugme - NOVI RED) ti remetis adresu celije gde je "SVEGA". Tako omogucavas brisanje redova, sve do trenutka kad "SVEGA" ponovo bude u "B15" ili recimo u "B199". Takva ti je struktura tabele koju si postavio. Ja bih ipak razmislio o brisanju opsega celija metodom ClearContents, umesto sto brises seo red. Naprimer - umesto tvog coda
Rows("15:15").Select
Selection.Delete Shift:=xlUp 'brisanje celog 15.reda
treba probati sa
Range("B15:L15").Select
Selection.ClearContents 'brisanje podataka u 15.redu (od B-l)
Time cuvas strukturu redova, sa svim funkcijama i ne brines o dodavanju novog reda pre brisanja. Treba, doduse, posle ClearContents izvrsiti sortiranje cele tabele po nekom kriterijumu ("DATA-SORT...") da bi se sve skockalo, ali sve to moze kao i tvoj makro da se snimi (Record-om) i po potrebi preradi. Pozdrav.

Odgovor na temu

todra
Todorov Ratko
Kragujevac

Član broj: 46809
Poruke: 203
*.dynamic.isp.telekom.rs.

+4 Profil

Re: Zabrana brisanja reda total

^{07.08.2010. u 18:09 - pre 166 meseci}

Dodao sam formulu za redni broj.

Pozdrav!

Prikačeni fajlovi

Zabrana brisanja2-1.zip - 10.51k

Odgovor na temu

savetnik.org
Nikola Rajković
Log In Advertising
Beograd

Član broj: 252712
Poruke: 47
*.dynamic.isp.telekom.rs.

Sajt: www.igre-konzole.rs

+2 Profil

Re: Zabrana brisanja reda total

^{09.08.2010. u 01:10 - pre 166 meseci}

E to mi je falilo hvala puno!

www.igre-konzole.rs
www.tehnologin.rs

Odgovor na temu