[EXCEL] knippen,plakken

[Verwijderd]

Ik heb een zeer uitgebreide sheet met daarin het volgende probleem. Ik wil vanuit een kolom die bestaat uit meerdere waardes en sommen onder elkaar alleen de sommen naar een andere kolom kopieren (met dus het behoud van het bereik van die som,maar dan toegepast op een andere kolom.) Dit bereik is niet in alle gevallen gelijk.

Het volgende dus:
Originele kolom
5
5
5
=SOM(A1:A3)
6
6
=SOM(A5:A6)

Dan wil ik in kolom C kunnen plakken:
*leeg
*leeg
*leeg
=SOM(C1:C3)
*leeg
*leeg
=SOM(C5:C6)

Kolom B mag niet veranderen, dus doorslepen gaat waarschijnlijk niet werken. Ook komt het voor dat in kolom C al getallen staan, waarbij ik dan wil dat die waardes niet veranderen, maar wel dus de somfunctie uit kolom A erin komt. Ik heb al uitgebreid gezocht in de excel help, gevochten met plakken speciaal en met 'alleen zichtbare cellen' maar tot nu toe wil het niet lukken...

Ik hoop dat dit duidelijk is (sorry voor de misschien wat chaotische opmaak) en ik hoop dat iemand me kan helpen... alvast bedankt!

*edit: onderwerp is niet duidelijk, dit kwam door per ongeluk op enter drukken, sorry, ik kan het niet meer aanpassen...

[ Voor 5% gewijzigd door Verwijderd op 17-07-2007 10:17 ]

[Bolukan]

Ik ken geen kopieer of plak functie die dit mogelijk maakt. Het is wel mogelijk door een slimme selectie met filter alleen de formules te kopieren (bijvoorbeeld in extra kolom een 1 zetten in elke rij met som-functie, daarop filteren en dan kopieren), maar dan is het niet mogelijk deze verspreid in kolom C te kopieren.

Met een macro is het natuurlijk wel mogelijk (kijken of formula begint met =SUM en dan kopieren naar de kolommen naar rechts).

[Rfce]

ik zou dit met een vb stukje oplossen:
alt+F11 -> maak nieuwe module aan met onderstaand stukje code:

code:

Option Explicit
Function CheckOpFormule(cel As Range) As Boolean
    CheckOpFormule = cel.HasFormula
End Function

In excel kun je dan een nieuwe kolom opvoeren met onderstaande formule als inhoud:
als origineel =SOM(A5:A6) is (uitgaand dat ik zit op regel 6)

code:

=ALS(CheckOpFormule(E6);SOM(C5:C6);"")

Kortom hij checkt dus of op regel 6 kolom E een formule staat, zo ja voert hij de nieuwe som uit en anders laat hij de cell leeg.

[Bolukan]

Of zo

Visual Basic:

Option Explicit
Public Sub KopieerFormule()
Dim MyCell As Range
 ' Geselecteerde cellen worden bekeken
 For Each MyCell In Selection.Cells
    If MyCell.HasFormula Then
       ' 2 kolommen naar rechts copieren
       MyCell.Copy MyCell.Offset(0, 2) 
    End If
 Next MyCell
End Sub

Edit:

Visual Basic:

    If MyCell.HasFormula Then

kun je ook vervangen met

Visual Basic:

    If Mid(MyCell.Formula, 1, 4) = "=SUM" Then

[ Voor 19% gewijzigd door Bolukan op 17-07-2007 17:09 ]

[Verwijderd]

TNX voor alle reacties, het is op mijn werk en heb hier geen VB, maar ga vanavond ff kijken wat ik er thuis mee kan.

[F_J_K]

Dit is geen VB maar VBA, een standaard onderdeel van Office. Druk in Excel maar eens op Alt-F11 om te zien of het er is

[Rfce]

Dat is inderdaad ook de bedoeling, dat je het daar ingeeft (alt+f11), middels een module bijv.