Public Sub DeleteDuplicateRows()
'
' This macro deletes duplicate rows in the selection. Duplicates are
' counted in the COLUMN of the active cell.
Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range
On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Col = ActiveCell.Column
If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
N = 0
For r = Rng.Rows.Count To 1 Step -1
V = Rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r
EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Obstoječi makro mi zbriše v stolpcu, ki ga sam označim podvojene zapise in tudi same vrstice.
Imam pa še dodatno željo, ker imam približno 1700 vrstic, ki jih dobim iz programa Inventor(te želje mi Inventor ne zna narediti)
V Excelu imam več stolpcev A, B, C, D, E,...
Pomebna sta prva dva stolpca
A-nazivi sklopov
B-število kosov(sklopov)
Rad bi, če je možno spremeniti obstoječi makro, tako da mi bo poleg zapisov, ki mi jih v vsticah zbriše, sešteje vsote zbrisanih (kosov) vrstic v stolpcu B in zapiše v stolpec C, ki je prazen. Se pravi rezultat je en sam zapis v stolpcu A in vsota vseh brisanih zapisov vključno z obstoječim v stolpcu C .
Obstoječi makro sem dobil slučajno, v firmi od bivšega sodelovca, ki pa sedaj ni dosegljiv.
Upam da se da s tem makrom kaj pomagat. Vsak predlog ali druga pomoč bo dobrodošla.
V vaši bazi pa nisem najdel kakšne boljše pomoči !
LP, Jože
Podvojeni zapisi in vsota povezanih celic v drugem stolpcu
Pozdravljeni!
Pomagajte si z vgrajenimi Excelovimi orodji.
Najprej si izluščite edinstvene zapise, si jih prekopirajte na drug list in ostale Vam bodo podvojene vrstice
Kako?
Uporabite napredni filter Podatki/Filter/Napredni Filter. Ta ukaz omogoča prikaz samo edinstvenih zapisov.
O njegovi uporabi pa malo prebrskajte po pomoči v Excel-u.
Pomagajte si z vgrajenimi Excelovimi orodji.
Najprej si izluščite edinstvene zapise, si jih prekopirajte na drug list in ostale Vam bodo podvojene vrstice
Kako?
Uporabite napredni filter Podatki/Filter/Napredni Filter. Ta ukaz omogoča prikaz samo edinstvenih zapisov.
O njegovi uporabi pa malo prebrskajte po pomoči v Excel-u.
Življenje je enostavno, če poznaš "The Secret".
GoldZ
GoldZ
Re: Podvojeni zapisi in vsota povezanih celic v drugem stolp
Saj bi vam pomagal, pa tegale
nikakor ne razumem. Kako naj vam nekaj zapiše v stolpec C, če pa to vrstico zizbrišete?? in kaj naj vam šteje - število izbrisanih celic ali število kosov ki so zapisani v stolpcu B... Napišite kakšen primer z 10 vrsticami, da bo stvar vsaj jasnajoze3 napisal/-a: Rad bi, če je možno spremeniti obstoječi makro, tako da mi bo poleg zapisov, ki mi jih v vsticah zbriše, sešteje vsote zbrisanih (kosov) vrstic v stolpcu B in zapiše v stolpec C, ki je prazen. Se pravi rezultat je en sam zapis v stolpcu A in vsota vseh brisanih zapisov vključno z obstoječim v stolpcu C .
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
pošiljam bližnjici za ogled primera
http://www.email.si/apps/es_gallery/p.php?id=209437
http://www.email.si/apps/es_gallery/p.php?id=209438
Glavna poanta, je da želim imeti vsote podvojenih zapisov vrednosti ali v stolpcu B, ali C.
Če bodo v C mislim, da bo treba prekopirati tudi tiste vrstice, ki niso duplicirane, tako da bo makro najbrž težje izvedljiv
Primer narejen v stolpcu C !!
LP
Jože
http://www.email.si/apps/es_gallery/p.php?id=209437
http://www.email.si/apps/es_gallery/p.php?id=209438
Glavna poanta, je da želim imeti vsote podvojenih zapisov vrednosti ali v stolpcu B, ali C.
Če bodo v C mislim, da bo treba prekopirati tudi tiste vrstice, ki niso duplicirane, tako da bo makro najbrž težje izvedljiv
Primer narejen v stolpcu C !!
LP
Jože
Pozdravljeni,
Za to ne potrebujete nobenega makra. To vam naredi najpreprostejša vrtilna tabela.
Za to ne potrebujete nobenega makra. To vam naredi najpreprostejša vrtilna tabela.
- Postavite se v vašo tabelo s podatki
- Izberite opcijo Orodja/Poročilo vrtilne tabele in vrtilnega grafikona.
- Opre se nov čarovnik, a vi lahko kar takoj kliknete gumb 'Dokončaj'.
- Odpre se nov list in seznam vseh polj iz bvaše tabele. Z miško odnesite prvi stolpec na polje, kjer piše 'Tule spustite polja vrstice'
- Drugi stolpec pa odnesite na polje, kjer piše Tule spustite podatkovne elemente.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Hvala za odgovor.
Mislim, da se nisva razumela.
Zelim , da mi makro najprej najde podvojene(ali več) pozicije v vrsticah in mi jih nato pobriše. Pusti mi samo eno pozicijo. Vrednost te pozicije, ki je v stolpcu "B", pa mi jih sešteje skupaj z izbrisanimi vrednostmi.
Zgoraj omenjeni makro, mi seveda zbriše podvojene vrstice, sešteje vrednosti( "B") pa ne !!
Dopolniti je potrebno obstoječi makro !!
LP
Mislim, da se nisva razumela.
Zelim , da mi makro najprej najde podvojene(ali več) pozicije v vrsticah in mi jih nato pobriše. Pusti mi samo eno pozicijo. Vrednost te pozicije, ki je v stolpcu "B", pa mi jih sešteje skupaj z izbrisanimi vrednostmi.
Zgoraj omenjeni makro, mi seveda zbriše podvojene vrstice, sešteje vrednosti( "B") pa ne !!
Dopolniti je potrebno obstoječi makro !!
LP