alpha

Reactie op bericht van Plongske: Dat lijkt mij ook als de weergave altijd 5 cijfers moeten zijn. 12,345 zie je dan ook als 12,345 en niet als 12,3450 !

Je had je dat lange verhaal kunnen besparen als je mijn vraag beantwoord had, want nu weet ik nog niet wat je wil. Komt het er op neer dat elke waarde in 5 cijfers moet worden weergegeven, ongeacht hoeveel cijfers er (in eerste instantie) voor of na de komma staan?

Zonder het bestand in te zien is onmogelijk te zeggen hoe je dat best kunt aanpakken; of transponeren aan te bevelen is, is dan ook niet op voorhand te zeggen. Maar wel of niet transponeren: dat kopiëren zul je dan toch een aantal malen moeten uitvoeren. Een macro bv. waarmee je met for-nextlussen de namen van de leveranciers en de bladnamen doorloopt, lijkt mij een mogelijkheid.

Onduidelijk is wanneer je welk aantal decimalen wil. Daarom maar deze vraag: hoe wil je dat volgende waarden uiteindelijk worden weergegeven? En uit hoeveel getallen kan de waarde vóór de komma maximaal bestaan? 7,2 --> 7,23 --> 7,234 --> 7,2345 --> 7,23456 --> 17,2 --> 17,23 --> 17,234 --> 17,2345 --> 17,23456 --> 127,1 --> enz. En ook getallen als: 2,40 2,4000 2,4000000 37,1200000 365,36000

Die twee zaken zijn wat tegenstrijdig met elkaar, moet het eerste resultaat nu 07:26:00 zijn of 7:26:00 ? Ik ben uitgegaan van het laatste. En verder: een tijd weergeven met AM en PM er bij, wordt ALLEEN gedaan als voor de tijdweergave een 12-uurssysteem wordt gebruikt. Aan je voorbeeld te zien, is dat niet het geval. Bij een weergave als 17:36:00 PM heeft die PM geen enkel nut, want aan het getal 17 kun je al automatisch zien dat dat een tijd na de middag is.

Als de getallen in kolom A staan beginnend in A1, typ in B1 en kopieer naar beneden: =ALS(A1="";"";LINKS(A1;LENGTE(A1)-2)&":"&RECHTS(A1;2)&":00")

plongske, wat is bij jou in Excel 2007 het resultaat van de formule van jetu ?

@Plongske, jouw formule geeft niet het gewenste antwoord, test het maar eens met de door de vragensteller vermelde gegevens. De reden is dezelfde als die ik in mijn vorig bericht vermeldde, vandaar de door mij in bericht #3 gekozen oplossing.

Bij som.als en ook sommen.als moet het steeds om enkele kolommen gaan, meerdere zoals in jouw geval gaat niet. Wat wel kan is deze matrixformule, die je moet invoeren via Ctrl-Shift-Enter (= de shift- en Ctrl-toets ingedrukt houden terwijl je op Enter drukt). =SOM(ALS(D1:D5="a";A1:C5))

Je moet deze fuctie: =als(C45>=dag(laatste.dag(datum($A$4;$C$4;1);0));"";C45+1) in twee delen splitsen en daarvoor 2 afzonderlijke cellen gebruiken. In de ene cel typ je: =LAATSTE.DAG(DATUM(A4;C4;1);0) en in de tweede (als de eerste in D1 staat): =ALS(DAG(D1)>=C45;"";C45+1) Als je alles in 1 formule plaatst, wordt ook de dag als een datum beschouwd en dat is een ander getal als wat je verwacht.

Excel 2015 bestaat naar mijn weten niet. De laatste versie is Excel 2013 en Excel 2016 zit er aan te komen. Als je een voorbeeldbestand plaatst kunnen we zien hoe je gegevens precies in de sheet staan en valt er wellicht meer te zeggen. Vermeld dan ook wat het verwachte resultaat moet zijn.

De 'beforeclose'-macro heb je niet nodig, je kunt volstaan met deze macro, behorend bij het blad waarin je de code wil gebruiken. Hierbij is ervan uitgegaan dat er in kolom G een getal wordt ingevoerd en dat dat wordt opgeteld bij de overeenkomstige cel in kolom F. Ik ben overigens zelf geen voorstander van het gebruik van zo'n macro. Je kunt na invoer niet meer nagaan wat je hebt ingevoerd en dus ook niet nagaan wat er mogelijk fout is ingevoerd. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G4:G1000")) Is Nothing Then With Target .Offset(, -1).Value = .Offset(, -1).Value + Target.Value .ClearContents End With End If End Sub

De macro is ok, maar je hebt hem niet goed overgenomen. Er zijn een aantal regels waar een punt voor staat en die heb jij weggehaald. Die punten zijn enorm belangrijk. Best om je eens te verdiepen in de elementaire beginselen van vba voordat je het wil gebruiken.

Omdat het niet mogelijk is mijn vorig bericht te wijzigen of verwijderen, een neiuw bericht om een aangepaste code te kunnen plaatsen. Verder nog twee opmerkingen: 1. In het invulblad heb je vanaf rij 9 de kolommen A en B in ALLE rijen (dat zijn meer dan 1 miljoen rijen) groen gemaakt, hierdoor wordt je bestand 40 keer zo groot als wanneer je dat niet had gedaan. Het is niet verstandig van veel meer rijen gebruik te maken dan je nodig hebt. 2. Verder heb je in het invulblad twee rijen geplaatst die identiek zijn aan een andere rij. Voor de macro maakt dat niets uit, maar als je dat niet weet kan het resultaat anders zijn dan je had gedacht. Daar rekening mee houdend, doet de macro wat je wil. Sub kopieer() Dim a As Integer, p As Integer, q As Integer, x As Integer Application.ScreenUpdating = False Sheets("Verveelvoudiging").Cells.ClearContents With Sheets("Invulblad") p = .Range("a1").CurrentRegion.Rows.Count q = WorksheetFunction.Match("", .Range("c1:c" & p), 0) - 1 .Range("c1:p" & q).Copy End With With Sheets("Verveelvoudiging") .Activate With .Range("a1") .PasteSpecial Paste:=xlPasteValues .Select End With x = q Do While x > 1 a = .Range("c" & x).Value If a > 1 Then .Rows(x + 1 & ":" & x + a - 1).Insert .Rows(x & ":" & x + a - 1).FillDown End If x = x - 1 Loop .Columns("a:n").AutoFit End With Application.ScreenUpdating = True End Sub

Sub kopieer() Dim a As Integer, x As Integer, lr As Integer Application.ScreenUpdating = False Sheets("Verveelvoudiging").Cells.ClearContents With Sheets("Invulblad") .Range("a1").CurrentRegion.Offset(, 2).Copy End With With Sheets("Verveelvoudiging") .Activate With .Range("a1") .PasteSpecial Paste:=xlPasteValues .Select End With x = .Range("a1").CurrentRegion.Rows.Count Do While x > 1 a = .Range("c" & x).Value If a > 1 Then .Rows(x + 1 & ":" & x + a - 1).Insert .Rows(x & ":" & x + a - 1).FillDown End If x = x - 1 Loop .Columns("a:n").AutoFit End With Application.ScreenUpdating = True End Sub

Uitgaande van de gegevens in het invulblad zoals die er NU in je bestand uitzien, moet dus elke rij slechts 1 keer gekopieerd worden (met uitzondering van de kolommen A en B , maar een volgende keer zou dat anders kunnen zijn. Is dat juist?

Bijkomende vraag: Is het aantal in kolom C van het blad "Verveelvoudiging" altijd groter dan 0 ?

Als je precies beschrijft wat de macro moet doen, dan zal ik de code herschrijven. Als ik het goed begrijp wil je elke rij van het blad "Verveelvoudiging" naar het blad "Sheet2" kopiëren en wel elke rij zoveel keer als het getal dat in kolom C staat. Laat aub even weten of dat juist is, en indien niet, wat er dan wél moet gebeuren.

Dat is een knappe prestatie dan!

Dat is makkelijker gezegd dan gedaan. Je kunt Excel wel willekeurig 4 getallen laten trekken uit een reeks van 100 (met de functie aselectussen) en dan kijken of de som overeenkomt met jouw gewenste som, maar dan ben je wel even bezig.

Redelijkerwijs zijn er twee mogelijkheden: 1. De celeigenschappen van kolom H staan niet ingesteld op "Algemeen". 2. In jouw bestand komt de naam Sheet1 niet voor (en dan Sheet2 ook niet waarschijnlijk).

Dat lukt nu ook nog hoor, en daar heb je zelfs geen formules voor nodig. De punten en de kleuren in de bladen van de prognostiekers zijn allemaal afkomstig van het blad Deelenemde renners, dus het is DAAR dat je een wijziging moet aanbrengen. Om van jouw voorbeeld uit te gaan: In het blad Deelnemende renners wijzig je in kolom B de naam Contador in die van Porte (en natuurlijk wijzig je ook in kolom A het bijbehorende nummer (niet vergeten!). In de rij van Contador (en later Porte) laat je bij de eerste 12 ritten de punten en kleuren van Contador staan, en vanaf rit 13 vul je de punten en kleuren van Porte in. Als je daarna de macro uitvoert, vinden in alle bladen de juiste aanpassingen plaats. Zo eenvoudig is het.

Alles wat in de bladen van de prognostiekers staat (punten en kleuren), wordt met de macro gekopieerd van het blad Deelenemende renners, daar komen geen formules aan te pas. Telkens als je de macro uitvoert worden alle bladen van de prognostiekers VOLLEDIG vervangen, dus punten + kleuren. Als je op een blad 1 van de namen vervangt en je voert de macro uit, dan worden de punten en kleuren van die renner (net als die van de andere renners) volledig bijgewerkt, vanaf de eerste etappe. Dus ik denk dat er geen probleem is.

Je computer zit nog niet in een netwerk? Want dan bepaalt de netwerkbeheerder of macro's wel of niet uitgevoerd mogen worden. Als dat niet het geval is: start Excel nog eens (dus niet meteen het Giro-bestand) en doe nog eens wat ik in bericht #23 schreef, dus: - Klik op Bestand en kies Opties. - Klik aan de linkerkant op vertrouwenscentrum. - Klik aan de rechterkant op Instellingen voor het vertrouwenscentrum. - Klik aan de linkerkant op Instellingen voor macro's. - Klik aan de rechterkant op Alle macro's inschakelen (ook al wordt dat daar niet aanbevolen, toch aanvinken). - Klik in hetzelfde venster onderaan op Ok (niet vergeten!) en klik in het onderliggende venster ook op Ok. - Klik bovenaan op Bestand - Openen, kies het Girobestand en kijk of dezelfde foutmeldingen nog voorkomen. Als dat dan nog wel het geval is, dan raad ik aan om Excel opnieuw te installeren.

Vreemd, dat iemand een vraag stelt en kennelijk niet in een oplossing geïnteresseerd is. Het zou natuurlijk kunnen dat de vragensteller op andere wijze dan via dit forum een oplossing heeft gevonden, maar dan zou hij dat toch kunnen melden.