alpha

De waarden in kolom C die geel gekleurd zijn en die niet gekleurd zijn?

Welke waarden in de sheet moeten nu eigenlijk aangepast worden, er staan er zo veel ?

Die technische uitleg is wel aardig, maar brengt mij (en ik vrees ook andere lezers) niet verder bij het beantwoorden van de vraag. Reageer op de vragen en antwoorden a.u.b. ! Plongske vroeg wat er mis is met de celeigenschappen instellen op 0,0000 . Jij antwoordde: "daar zet excel dan een 0 bij en dat zal ik zien als 12,345" . Dat is niet juist, als de celeigenschappen staan ingesteld op 4 decimalen, dan blijft dat in Excel 12,345 . dze vraag blijft dan ook waj je precies wenst. Zoals ik het nu begrijp moet er als resultaat altijd een waarde komen die uit 5 cijfers bestaat. Dat houdt dan in dat als de oorspronkelijke waarde minder dan 5 cijfers bevat, dat er dan nullen moeten worden toegevoegd. Is dat een juiste veronderstelling?

Dat laatste is niet juist Plongske. Zoals de vragensteller al aangaf, wordt daarmee de nauwkeurigheid van een waarde aangegeven.

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).