1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Application.EnableEvents = False Dim Waarde As String If Not Intersect(Target, Range("A:A")) Is Nothing Then i = 0 Do i = i + 1 Waarde = Cells(i, 1).Value Waarde = Mid(Waarde, 1, Len(Waarde) - 3) Waarde = Val(Waarde) Cells(i, 1).Value = Waarde Loop Until Cells(i + 1, 1).Value = "" End If Application.EnableEvents = True End Sub |
En dan moet ik dit per cel invoegen?quote:Op vrijdag 3 april 2009 10:14 schreef DaFan het volgende:
Alt-F11, ga naar de Sheet waarin je de lijst plakt en plak dit in het witte gedeelte rechts:
[ code verwijderd ]
Verwijderd gewoonweg de laatste 3 karakters.
Nee. Dit is een code, geen formule!quote:Op vrijdag 3 april 2009 13:31 schreef kanovinnie het volgende:
[..]
En dan moet ik dit per cel invoegen?
Je kan ze importeren in word (samenvoegen) en daar de etiketlay-out e.d bepalen. Je kan ook kolommen aanwijzen.quote:Op vrijdag 3 april 2009 16:27 schreef Tim21 het volgende:
Hier Excel 2007, Nederlands.
Hoe kan ik uit een adressenbestand waarin de gegevens (logischerwijs) horizontaal zijn verwerkt per persoon, adresstickers stickers printen? Niet alle kolommen moeten verwerkt worden (Telefoon ed) en de cellen die nu naast elkaar staan moeten onder elkaar eruit komen.
Iemand?
Klikquote:Op vrijdag 3 april 2009 16:47 schreef Joooo-pi het volgende:
[..]
Je kan ze importeren in word (samenvoegen) en daar de etiketlay-out e.d bepalen. Je kan ook kolommen aanwijzen.
Ik zoek ff een linkje voor je op.
Excel help zegt mij ditquote:
Misschien dat dit werkt?quote:Dezelfde gegevens invoeren in andere werkbladen
Als u al gegevens op een werkblad hebt ingevoerd, kunt u de gegevens snel naar corresponderende cellen op andere bladen kopiëren.
Selecteer het blad dat de gegevens bevat en de bladen waar u de gegevens naartoe wilt kopiëren.
Selecteer de cellen met de gegevens die u wilt kopiëren.
Wijs naar de opdracht Doorvoeren in het menu Bewerken en klik op Naar groep.
Zoveel verstand heb ik er ook niet van, Waarschijnlijk is er een code waarmee je gegevens vanuit blad 1 in blad 2 kan zetten.quote:Op maandag 6 april 2009 08:52 schreef ruudtb205 het volgende:
Bedankt voor het meedenken, maar dat werkt niet. Ik heb het even uitgeprobeerd, maar Naar groep blijft bij mij grijs. Als ik de logica probeer te doorgronden lijkt me ok niet dat dit de oplossing is, want daarmee kopieer je het 1x naar een speciale kolom. Ik wil graag de kolom iedere maand opnieuw (met de nieuwe waarden) naar een volgende kolom hebben, en volgens mij kan dat niet op deze manier.
Ik denk dat je vraag te algemeen is. Het is meer een "project" . Ik zou je aanraden om dat project op te delen in vragen die hier wel te beantwoorden zijn.quote:Op maandag 6 april 2009 08:23 schreef ruudtb205 het volgende:
Beste mensen,
Ik volg al een poos dit forum om een oplossing te vinden voor mijn probleem, maar ik kom er nog niet uit. Vooraf: ik gebruik Excel 2003, nederlandse versie.
Mijn vrouw werkt als gastouder en moet dus rekeningen versturen aan haar vraagouders. Daarvoor heb ik in Excel een formulier gemaakt waar de gegevens van de kinderen instaan en ze de uren per week kan invoeren.( Via een formule worden die uren opgeteld, en wordt er met een uurprijs een bedrag gemaakt, maar dat gebeurt in Word). Via samenvoegen worden deze gegevens in een Worddocument gezet en uitgeprint. Iedere maand worden de voorgaande gegevens overschreven, want de uiteindelijke rekeningen (waar alle gegevens ook in staan) worden ter controle bewaard. Werkt alemaal perfect.
Nu wilde ze alleen ook een jaaroverzicht geven aan de ouders. Daarvoor heb ik op blad 2 van de excelsheet 24 kolommen gemaakt, kolom A heeft als kop Namen (van de kinderen) en dan komen de kolommen januari uren, januari bedrag, februari uren, februari bedrag etc. Na december bedrag staat een kolom totaal uren en totaal bedrag. Die kolommen voeg ik dan weer samen in Word.
Nu kun je wel alles iedere maand kopieren en plakken speciaal doen, maar zo handig is mijn vrouw niet met Excel
Het zou handig zijn als iedere maand de totaaluren van blad 1 naar de juiste kolom van de uren in blad2 overgezet zouden worden (het bedrag dat er bij hoort bereken ik dan weer met een simpele formule). Het schijnt te kunnen met een knop, of bij het wijzigen van het blad, maar ik kom er niet uit. Mag ik gebruik maken van jullie wijsheid om dit op te lossen? Ik weet een heel klein beetje van VB DotNet, maar code zelf schrijven is nog een brug te ver voor me......
Alvast bedankt voor het meedenken!
Je zou een schermafbeelding kunnen maken, met de knop printscreen (naast F12), die plakken in paint.quote:Op maandag 6 april 2009 14:15 schreef ruudtb205 het volgende:
OK, even wat informatie erbij. Ik ben misschien niet helemaal helder in mijn uitleg. Dat ik het snap wil niet zeggen dat het ook duidelijk is
In blad 1 staan de kolomnamen voornaam, achternaam, adres, geboortedatum (+ nog een aantal soortgelijke tekstkolommen die verder alleen belangrijk zijn voor het samenvoegen in Word). Daarachter staan de kolommen week 1, week 2, week 3, week 4 en week 5. Hierin worden de uren per kind per week ingevoerd. Daarna komt een kolom met totaaluren: de som van week 1 t/m 5. Om die laatst kolom gaat het dus.
Alle kinderen hebben een eigen rij op werkblad 1, zo kun je keurig per week per kind invoeren. Als je klaar bent met invoeren heb je dus in de kolom Totaaluren een berekende waarde staan van het aantal uren dat een kind geweest is.
Op blad 2 staan de kolommen Naam kind, gevolgd door uren januari, bedrag januari, uren februari, bedrag februari etc. Na december volgt - zoals gezegd - totaal uren en totaal bedragen.De volgorde van de namen van de kinderen in de rijen is gelijk, m.a.w. als je kopieert en plakt vanuit de kolom totaaluren hoef je niet op een andere volgorde te letten (anders zou het wel eg ingewikkeld worden, denk ik )
Nu wil ik dus graag dat als ik de uren in de weekkolommen invul de uren die in de kolom totaaluren vanzelf in de juiste kolom (dus van de maand waar die uren over gaan) terecht komen. Normaal gesproken worden de uren ingevoerd in dezelfde maand dat ze gedraaid worden (al is dat soms op het nippertje.
Ik hoop dat het zo duidelijker is. Ik zou het voorbeeld wel ergens neer willen zetten, maar ik heb geen flauw idee hoe dat zou moeten op dit forum.
Schakel over naar '07, dan zijn de bestanden sowieso kleinerquote:Op maandag 6 april 2009 17:02 schreef sanger het volgende:
Ik heb een bestand in Excel dat nu 5 MB is. Kan ik dit ook verkleinen? Het is een werkbestand met een groot aantal regeltjes waar een sortering en subtotaal in is gegoten.
Excel '97 of 2003
Kijk deze plaatjes:quote:Op maandag 6 april 2009 14:15 schreef ruudtb205 het volgende:
OK, even wat informatie erbij. Ik ben misschien niet helemaal helder in mijn uitleg. Dat ik het snap wil niet zeggen dat het ook duidelijk is
In blad 1 staan de kolomnamen voornaam, achternaam, adres, geboortedatum (+ nog een aantal soortgelijke tekstkolommen die verder alleen belangrijk zijn voor het samenvoegen in Word). Daarachter staan de kolommen week 1, week 2, week 3, week 4 en week 5. Hierin worden de uren per kind per week ingevoerd. Daarna komt een kolom met totaaluren: de som van week 1 t/m 5. Om die laatst kolom gaat het dus.
Alle kinderen hebben een eigen rij op werkblad 1, zo kun je keurig per week per kind invoeren. Als je klaar bent met invoeren heb je dus in de kolom Totaaluren een berekende waarde staan van het aantal uren dat een kind geweest is.
Op blad 2 staan de kolommen Naam kind, gevolgd door uren januari, bedrag januari, uren februari, bedrag februari etc. Na december volgt - zoals gezegd - totaal uren en totaal bedragen.De volgorde van de namen van de kinderen in de rijen is gelijk, m.a.w. als je kopieert en plakt vanuit de kolom totaaluren hoef je niet op een andere volgorde te letten (anders zou het wel eg ingewikkeld worden, denk ik )
Nu wil ik dus graag dat als ik de uren in de weekkolommen invul de uren die in de kolom totaaluren vanzelf in de juiste kolom (dus van de maand waar die uren over gaan) terecht komen. Normaal gesproken worden de uren ingevoerd in dezelfde maand dat ze gedraaid worden (al is dat soms op het nippertje.
Ik hoop dat het zo duidelijker is. Ik zou het voorbeeld wel ergens neer willen zetten, maar ik heb geen flauw idee hoe dat zou moeten op dit forum.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | col = 0 i = 1 Do i = i + 1 If Worksheets(2).Cells(1, i).Value = Worksheets(1).Range("E1").Value Then col = i Loop Until Worksheets(2).Cells(1, i).Value = "" If col = 0 Or col > 13 Then MsgBox "Maand niet gevonden!" Exit Sub End If Range("N3:N31").Select Selection.Copy Sheets(2).Select Worksheets(2).Cells(2, col).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets(1).Select Range("B3:M31").Clear Range("A1").Select End Sub |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |