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"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 vanzelfin 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 vanzelfin 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 |
Maar dan vrget ik dus iedere week de helft.quote:Op maandag 6 april 2009 21:43 schreef Deetch het volgende:
tja daar kun je excel ook voor gebruiken. Ik zou gewoon pen en papier doen trouwens
Op zich geen slecht idee. Misschien gewoon op mijn laptop verder bewerken.quote:Op maandag 6 april 2009 17:13 schreef qu63 het volgende:
[..]
Schakel over naar '07, dan zijn de bestanden sowieso kleiner
Misschien dat het wel werkt (technisch gezien) maar praktisch is dat weer omslachtig (helaas).quote:Geen idee of het helpt om inverschillende tabbladen te werken eigenlijk..
Hoe je de data op blad 5 krijgt=quote:Op maandag 6 april 2009 21:34 schreef PPL het volgende:
Ik ben een standaard boodschappenlijstje aan het (proberen te) maken.
Op tabblad 1 tot en met 4 benoem ik de winkels.
Per winkel vul ik op het sheet in welke artikelen ik daar koop.
Daar wil ik dan op invullen hoeveel ik komende week van dat artikel nodig heb.
Op tabblad 5 wil ik dan een lijstje met wat ik moet kopen.
Gesorteerd per winkel en vervolgens categorie.
Dit zodat ik per winkel niet hoef te kris-krassen en niets vergeet en weer terug moet naar de vorige winkel.
Mijn gedachte is een macro en zoekende op actieve cellen met waarde groter dan 0 (want waarde 0 hoef ik niet te kopen) en dan tenslotte op tabblad 5 een sorteerfunctie.
Hoe kan ik dit het beste aanpakken.
Dit moet volgens mij wel al bestaan en ik heb geen zin en gen tijd om het wiel uit te vinden eerlijk gezegd.
Merci.
@Joooo-pi : Bedankt, dat ziet er uit als een heel goed begin. Ik ga eens even uitproberen of het precies doet wat ik wil. Als ik de code zo bekijk komt het in ieder geval een heel eind in de richting!quote:
Macro opnemen....quote:Op dinsdag 7 april 2009 10:23 schreef McGilles het volgende:
Ik zou graag een knop/hyperlink willen maken waarmee ik automatisch het geopende excel bestand als een bijlage in een mail krijg.
Natuurlijk kan ik via, 'bestand' --> 'verzenden naar' --> 'email adres (als bijlage)' dit voor elkaar krijgen, maar die optie wil ik dus graag in een knop/hyperlink.
Iemand hier zo snel de oplossing?
Graag ook gelijk een standaardemailadres ingevuld als het mogelijk is.
1 2 3 4 5 | Application.Dialogs(xlDialogSendMail).Show End Sub |
1 2 3 4 5 6 | - Oranjetopic - 122 - Tong80topic - 252 - DIG - iPhonetopic - 344 - UVT - Awakenings - 233 - Technotopic - 15 |
1 2 3 4 5 6 | Fok - VBL - Oranjetopic - 122 Fok - VBL- Tong80topic - 252 Fok - DIG - iPhonetopic - 344 Fok - UVT - Awakenings - 233 Fok - UVT - Technotopic - 15 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | Dim ws As Worksheet j = 0 l = 1 For Each ws In Worksheets If ws.Name <> "Overzicht" Then i = 1 k = 0 Do i = i + 1 If ws.Cells(i, 2).Value > 0 Then If k = 0 Then Sheets("Overzicht").Range("A" & l).Value = ws.Name k = 1 End If Boodschap = ws.Cells(i, 1).Value Hoeveelheid = ws.Cells(i, 2).Value j = j + 1 l = l + 1 Sheets("Overzicht").Range("B" & j).Value = Boodschap Sheets("Overzicht").Range("C" & j).Value = Hoeveelheid End If Loop Until ws.Cells(i + 1, 1).Value = "" End If Next End Sub |
Als je een macro opneemt krijg je dit:quote:Op dinsdag 7 april 2009 10:23 schreef McGilles het volgende:
Ik zou graag een knop/hyperlink willen maken waarmee ik automatisch het geopende excel bestand als een bijlage in een mail krijg.
Natuurlijk kan ik via, 'bestand' --> 'verzenden naar' --> 'email adres (als bijlage)' dit voor elkaar krijgen, maar die optie wil ik dus graag in een knop/hyperlink.
Iemand hier zo snel de oplossing?
Graag ook gelijk een standaardemailadres ingevuld als het mogelijk is.
1 2 3 4 5 6 7 8 9 | ' ' Macro2 Macro ' De macro is opgenomen op 7-4-2009 door Joooo-pi ' ' ActiveWorkbook.Save Application.Dialogs(xlDialogSendMail).Show End Sub |
2008quote:1000
1050
1100
1150
1200
1250
1300
Zoals je kan zien staan hierboven veel dubbele getallen. Is het mogelijk om via een formule een lijst te maken met alle unieke getallen o.b.v. deze twee lijsten?quote:1000
1050
1100
1150
1160
1170
1180
1190
1200
1250
1300
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | Dim OutApp As Object Dim OutMail As Object Dim address As String ActiveWorkbook.Save address = Range("A1") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(olMailItem) On Error Resume Next With OutMail .to = address .Subject = "Mailtje" .Body = ActiveWorkbook.FullName Set myAttachments = OutMail.Attachments myAttachments.Add ActiveWorkbook.FullName .Send End With On Error GoTo 0 MsgBox "Email sent to " & address Set OutMail = Nothing Set OutApp = Nothing End Sub |
quote:Op dinsdag 7 april 2009 11:20 schreef DaFan het volgende:
PPL ik heb een opzetje gemaakt.
Sheetnamen zijn winkelname (in mijn geval AH en Aldi gedaan). Daar staat gewoon een lijst met links producten in kolom A (met header!) en in kolom B de hoeveelheden (met header). Idem voor de sheet Aldi.
Ik heb op de eerste sheet een knop gezet maar die kan je ook verplaatsen, en deze macro erin geplaatst:
[ code verwijderd ]
Ik krijg nu op de laatste sheet (die "Overzicht" heet) een lijstje met in de linkerkolom de naam van de winkel, en in de rechterkolom een lijstje met de producten en hoeveelheden.
Als je het gemaild wil hebben moet je je mailadres maar even pmen oid.
Geeft nietquote:Op dinsdag 7 april 2009 12:25 schreef Joooo-pi het volgende:
DaFan! Wij komen wel met dezelfde antwoorden zo nu en dan![]()
Edit: Ik zie dat je wel veel eerder was, maar ik had je post over het hoofd gezien.![]()
Valt mee hoor. Ik zou eerst ook niet verder aan een antwoord werken. Ik wilde alleen even proberen of het toevoegen van ".attachment = ActiveWorkbook.Fullname" in de post waar ik naar verwees, genoeg zou zijn. Het werkte net niet, maar na het raadplegen van de help van Outlook, was ik er snel uit.quote:Op dinsdag 7 april 2009 15:15 schreef DaFan het volgende:
[..]
Geeft niet
Jij hebt meer tijd om een compleet antwoord te geven lijkt het
Het gemiddelde neem ik aan? anders een grafiek gebruiken.quote:Op woensdag 8 april 2009 09:00 schreef Cuegirllie het volgende:
Ik heb een klein vraagje over extrapolatie in excel.
Ik heb over 10 weken cijfers
1: 10.000
2: 9500
3: 8500
4: 8000
5: 9800
6: 9300
7: 8300
8: 8800
9: 9600
10: 8500
Hoe kan ik in excel bepalen wat de verwachte cijfers zullen zijn voor de aankomende tien weken?
(heb Excel 2003 in Nederlands)
Met de functie FORECAST.quote:Op woensdag 8 april 2009 09:00 schreef Cuegirllie het volgende:
Ik heb een klein vraagje over extrapolatie in excel.
Ik heb over 10 weken cijfers
1: 10.000
2: 9500
3: 8500
4: 8000
5: 9800
6: 9300
7: 8300
8: 8800
9: 9600
10: 8500
Hoe kan ik in excel bepalen wat de verwachte cijfers zullen zijn voor de aankomende tien weken?
(heb Excel 2003 in Nederlands)
Of de komende 2/3 weken mag ook.quote:Op woensdag 8 april 2009 09:10 schreef DaFan het volgende:
Met de functie FORECAST.
10 weken is niet echt een goede basis voor nog eens 10 weken forecasting.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |