Podvojeni zapisi in vsota povezanih celic v drugem stolpcu

[joze3]

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

[joze3]

Ali mi res nobeden ne zna pomagati ! Vesel bom vsakršne informacije.
LP

[GoldZ]

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.

[admin]

Saj bi vam pomagal, pa tegale

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 .

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 jasna

[joze3]

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

[admin]

Pozdravljeni,

Za to ne potrebujete nobenega makra. To vam naredi najpreprostejša vrtilna tabela.

1. Postavite se v vašo tabelo s podatki
2. Izberite opcijo Orodja/Poročilo vrtilne tabele in vrtilnega grafikona.
3. Opre se nov čarovnik, a vi lahko kar takoj kliknete gumb 'Dokončaj'.
4. 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'
5. Drugi stolpec pa odnesite na polje, kjer piše Tule spustite podatkovne elemente.

Dobili boste natanko takšno tabelo, kot jo želite.

[joze3]

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

[admin]

Dopolniti je potrebno obstoječi makro !!

Zakaj?? Rešitev sem vam podal in ta zagotovo deluje ter reši vaš problem.

Meni ni nič potrebno, rešitev potrebujete vi in z ukazovanjem na tem forumu ne boste dosegli prav ničesar... Prej nasprotno .