Moet er voor elke cel een nieuw formulier komen of wil je een formulier waar je waarden in kan invullen die vervolgens in cel P8 tm p80 komt?quote:Op woensdag 13 januari 2010 08:48 schreef gurdi het volgende:
hallo,
Ik wil in excel een formulier invoegen en verwijzen naar vakje p7.
zo gezegt zo gedaan.
nu wil ik ook p8 t/m p80 doen kan ik dit snel doen zonder 1 voor 1 hoeven toe te verwijzen?
vriendelijke groet G
oh, ok.quote:Op woensdag 13 januari 2010 13:53 schreef DaFan het volgende:
Sorry jooo-pi, ik bedoelde QU63
Kleine letters aubquote:
Heb je een topic start ban ofzo? Weer teveel gebaggerd zeker?quote:
Om de wiki bij te werken!quote:Op woensdag 13 januari 2010 14:04 schreef Deetch het volgende:
[..]
Heb je een topic start ban ofzo? Weer teveel gebaggerd zeker?
ok!quote:Op woensdag 13 januari 2010 14:38 schreef DaFan het volgende:
[..]
Om de wiki bij te werken!
Ik was niet de laatste poster in het oude topic.
jooo-pi; kan jij in je laatste post nog even de link naar #18 zetten?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 'stel in te vullen cel is B3, E4 en F8, als cel leeg is dan gaat je code naar de handle foutmelding: verderop If Range("B3").value = "" then GoTo foutmelding If Range("E4").value = "" then GoTo foutmelding If Range("F8").value = "" then GoTo foutmelding 'hier komt je printcode 'hier komt je printcode 'hier komt je printcode 'hier komt je printcode 'na het printen wil je geen foutmelding dus laat je de code naar de handle einde: springen GoTo einde foutmelding: Msgbox "Je hebt een veld niet ingevuld, dumbass" einde: end sub |
Je kan een macro maken die altijd draait vóór een printopdracht. Met de boolean cancel kun je em dan ook nog afbreken.quote:Op woensdag 13 januari 2010 15:30 schreef sanger het volgende:
Excel 2007, NL.
Tot nog toe hebben jullie me altijd perfect geholpen waarvan nog steeds dank
Nog een vraagje:
Ik heb een (eigenlijk) tekstdocument welke ik in Excel heb gemaakt. Sommige delen van de tekst worden door verwijzigingen automatisch gevuld. De bron staat in tabblad "invoer", het document in tabblad "modelovereenkomst".
Nu wil ik eigenlijk ook inbouwen dat het document pas geprint kan worden als alle verplichte velden in tabblad "invoer" gevuld zijn. Kan dit?
1 2 3 | if Range("A1").value = "" then cancel = true End Sub |
Dat is nog veel handiger.quote:Op woensdag 13 januari 2010 16:01 schreef Joooo-pi het volgende:
[..]
Je kan een macro maken die altijd draait vóór een printopdracht. Met de boolean cancel kun je em dan ook nog afbreken.
Voorbeeld:
[ code verwijderd ]
Wist ik ook niet, maar even gekeken in de scripteditor bij de events van ThisWorkbook.quote:
Het is inderdaad zo dat in de genoemde cellen een waarde moet komen te staan dmv een formule.quote:Op woensdag 13 januari 2010 08:35 schreef DaFan het volgende:
Jakees heeft gelijk, waarschijnlijk geeft een van de twee cellen al een error. Anders wordt een lege cel gewoon als 0 behandeld, en heeft de formule van joooo-pi dus geen nut.
Mirelia: Waarom gebruik je SUM(G1+F1). Dat is overbodige tekens gebruiken. "G1+F1" volstaat, óf SUM(G1;F1), maar das alleen handig als je een langere range hebt.
Maar is het nu gelukt met de drie antwoorden die zijn gegeven in het vorige topic?quote:Op woensdag 13 januari 2010 19:23 schreef mirelia het volgende:
[..]
Het is inderdaad zo dat in de genoemde cellen een waarde moet komen te staan dmv een formule.
Maar aangezien die waarden er nog niet staan zijn die cellen wel leeg nu.
Het gaat om een bestand om meterstanden bij te houden, 2 meters en die worden in deze formule bij elkaar opgeteld.
er zijn vertaalsites. Bijvoorbeeldquote:Op woensdag 13 januari 2010 19:47 schreef mirelia het volgende:
Ik ben er nog mee bezig.
Ik heb even geen nederlandse office tot mijn beschikking en werk nu even met Office 2010 UK
Dus ik moet de termen nog even vertalen of is het heel simpel?
Als = IF?
OF = OR?
isfout = iswrong?.
leeg = empty?
nog geen waarde of 0 = no value or 0?
Als ik dit heb uitgezocht laat ik het gelijk weten.
heb even geen Excel tot mijn beschikking hier, maar ga het morgen proberenquote:Op woensdag 13 januari 2010 16:01 schreef Joooo-pi het volgende:
[..]
Je kan een macro maken die altijd draait vóór een printopdracht. Met de boolean cancel kun je em dan ook nog afbreken.
Voorbeeld:
[ code verwijderd ]
Bij mij werkt het in ieder geval. Zet em wel in het ThisWorkbook gedeelte. Succes!quote:Op woensdag 13 januari 2010 20:30 schreef sanger het volgende:
[..]
heb even geen Excel tot mijn beschikking hier, maar ga het morgen proberen
Super bedanktquote:Op woensdag 13 januari 2010 19:48 schreef jakees het volgende:
[..]
er zijn vertaalsites. Bijvoorbeeld
http://www.applewood.nl/forms/3000/FRM-004/index.asp
Ik heb het als volgt vertaald:quote:Op woensdag 13 januari 2010 19:42 schreef jakees het volgende:
[..]
Maar is het nu gelukt met de drie antwoorden die zijn gegeven in het vorige topic?
1) =als(isfout(som(g10+I10));"nog geen waarde of 0";G10+I10)
OF
2) ALS(EN(ISGETAL(G10);ISGETAL(G11));G10+G11;"nog geen waarde ingevuld").
OF
3) ALS(OF(G10="";G11="");"leeg";G10+G11)
volgens mij moet optie 2 je wel helpen.
Voor als je een volgende keer nog iets in het Nederlands (of Engels) voorgeschoteld krijgt, bij de meeste oplossingen zijn de excelfuncties in hoofdletters gegeven (zoals in het voorbeeld wat jakees maakte), dat scheelt voor een volgende keer wat zoekwerkquote:Op woensdag 13 januari 2010 19:47 schreef mirelia het volgende:
Ik ben er nog mee bezig.
Ik heb even geen nederlandse office tot mijn beschikking en werk nu even met Office 2010 UK
Dus ik moet de termen nog even vertalen of is het heel simpel?
Als = IF?
OF = OR?
isfout = iswrong?.
leeg = empty?
nog geen waarde of 0 = no value or 0?
Als ik dit heb uitgezocht laat ik het gelijk weten.
Lol, verder zet je in de formules nu een tekst-nul neer. Als je "0" vervangt door gewoon 0 dan is het het getal nul.quote:Op woensdag 13 januari 2010 22:10 schreef DaFan het volgende:
Er staat geen = voor...of is dat te obvious
Ja, dat kan je gebruiken als je begin en einddatum weet. Maar ik wil 18-1 + 10 werkdagen wetenquote:Op zaterdag 16 januari 2010 17:52 schreef Deetch het volgende:
er schijnt een functie in de analysis toolpack te zitten voor netto werkdagen:
http://support.microsoft.com/kb/821091
De formule zelf zit er ook in alleen volgens de tekst gaat deze formule uit van een weekend op donderdag en vrijdag
Opslaan als -> webpaginaquote:Op zondag 17 januari 2010 15:54 schreef InTrePidIvity het volgende:
Ik heb een Excel-bestand dat ik online wil zetten en waar in de browser zelf doorheen geklikt kan worden (verschillende tab-bladen enzo), hoe doe ik dat?
Dat wordt dus pas op zijn vroegst vrijdagquote:Op woensdag 13 januari 2010 20:30 schreef sanger het volgende:
[..]
heb even geen Excel tot mijn beschikking hier, maar ga het morgen proberen
Chrome ondersteunt het ook wel redelijk zo te zien, dus Firefox zal het ook wel doen.quote:Op zondag 17 januari 2010 16:33 schreef qu63 het volgende:
[..]
Opslaan als -> webpagina
Alleen werkt het dan alleen goed in IE geloof ik..
Ohja, weergeven lukt wel, maar bewerken kan alleen in IE..quote:Op zondag 17 januari 2010 16:54 schreef InTrePidIvity het volgende:
[..]
Chrome ondersteunt het ook wel redelijk zo te zien, dus Firefox zal het ook wel doen.
Nog een vraagje: Hoe vind ik de vaakst voorkomende waarde verspreid over meerdere werkbladen?
Coole vraag, morgen even kijken!quote:Op zondag 17 januari 2010 16:54 schreef InTrePidIvity het volgende:
[..]
Chrome ondersteunt het ook wel redelijk zo te zien, dus Firefox zal het ook wel doen.
Nog een vraagje: Hoe vind ik de vaakst voorkomende waarde verspreid over meerdere werkbladen?
Maar kan die range dan ook op verschillende tabbladen staan?quote:Op maandag 18 januari 2010 08:40 schreef DaFan het volgende:
Oh het is helemaal niet zo spannend.
De functie MODUS / MODE vindt de meest voorkomende waarde in een range
Oh, ok!quote:
quote:Op zaterdag 16 januari 2010 16:56 schreef qu63 het volgende:
Wat is nou de makkelijkste manier om "vandaag + 10 werkdagen" te doen. Ik begin een project bijvoorbeeld op 18-1 en heb hier 10 werkdagen voor en wil dan de einddatum weten.
Startdatum en het aantal uren is gegeven (uren zijn dus zelf wel om te zetten in dagen)
In dat laatste voorbeeld heb je dinsdag 19 januari 2010 als vakantiedag gegeven, toch?quote:Op maandag 18 januari 2010 09:21 schreef DaFan het volgende:
Deetch zat close. In de Analysis Toolpak zit ook WERKDAG.
WERKDAG(begindatum; aantal werkdagen; optioneel(vakantiedagen)).
=WERKDAG(VANDAAG();10) geeft als resultaat 1 februari 2010.
Je kan in het derde argument nog een serie plaatsen met bv officiële vakantiedagen. Die zou ik in een aparte range zetten.
Maw; WERKDAG(VANDAAG();10;VANDAAG()+1) geeft 2 februari aan.
Goed gebruik van de nieuwe facepalm smilie +1quote:Op maandag 18 januari 2010 11:43 schreef qu63 het volgende:
[..]
In dat laatste voorbeeld heb je dinsdag 19 januari 2010 als vakantiedag gegeven, toch?
En ik heb die functie ook al tig keer langs zien komen, maar dacht dat ie alleen aangaf of het een werkdag was of niet!
Lol dat ^^quote:Op maandag 18 januari 2010 16:49 schreef Deetch het volgende:
[..]
Goed gebruik van de nieuwe facepalm smilie +1
Goed he!quote:Op maandag 18 januari 2010 16:49 schreef Deetch het volgende:
[..]
Goed gebruik van de nieuwe facepalm smilie +1
Ik heb deze formule, bedankt KingJotte:quote:
quote:ik heb alle relevante cellen (of cellranges) een naam gegeven, dit houdt je "code" ook wat beter onderhoudbaar.
Wat ik hier doe is het volgende: ik zoek in de range "prijzen" de goede cel op met INDEX
INDEX lust een range (prijzen), en een rijnummer en kolomnummer binnen die range
het kolomnummer (de laatste parameter) is het makkelijkst, want die is voor zowel mannen als vrouwen hetzelfde (namelijk afhankelijk van de duur van het contract) dus die zoeken we gewoon op met MATCH(duur;premie_lengtes)
Het rijnummer is iets lastiger, daarvoor hebben we naast MATCH ook nog IF nodig, om onderscheid te maken tussen mannetjes en vrouwtjes.
Ik hoop dat het zo een beetje duidelijk is, anders hoor ik het wel.
Niet erg duidelijk, wat is nu je foutmelding of wat gaat er mis.quote:Op maandag 18 januari 2010 22:08 schreef RoaldReurink het volgende:
[..]
Ik heb deze formule, bedankt KingJotte:
=INDEX(prijzen;IF(geslacht="man";MATCH(leeftijd;leeftijden_man);MATCH(leeftijd;leeftijden_vrouw));MATCH(duur;premie_lengtes))
[ afbeelding ]
Voor geboortedatum moet leeftijd, omdat dat makkelijker is.
En ik weet niet wat ik in elk vakje nu moet invullen? Hoe krijg ik de code werkend?
Kingjotte die de code heeft gemaakt zei:
[..]
Ik heb de code wel, maar als ik die die krijg ik #NAAM? als vakje. Hoe maak ik de verzamelingen aan zoals leeftijd, leeftijd_man etc?quote:Op dinsdag 19 januari 2010 13:56 schreef Deetch het volgende:
[..]
Niet erg duidelijk, wat is nu je foutmelding of wat gaat er mis.
Misschien moet je in de formules de ; nog vervangen door ,?
Je moet natuurlijk wel alle verzamelingen (zoals leeftijd, leeftijden_man etc etc) hebben aangemaakt (name range)
Dank! het is gelukt.quote:Op dinsdag 19 januari 2010 17:31 schreef Deetch het volgende:
Aan de foutmelding te zien heb je een nederlandse versie en gebruik je engelse formulenamen. Daarom staat in de OP van deze topicreeks dat je altijd even versie en taal moet vermelden.
Probeer dit eerst eens:
=INDEX(prijzen;ALS(geslacht="man";VERGELIJKEN(leeftijd;leeftijden_man);VERGELIJKEN(leeftijd;leeftijden_vrouw));VERGELIJKEN(duur;premie_lengtes))
Als je dan nog foutmeldingen krijgt moet je misschien de bereiken nog de juiste naam geven:
http://www.gratiscursus.be/excell_2003/excelles12.htm
hopelijk red je je dan weer een beetje want rapidshare geeft steeds foutmeldingen dus zul je het toch echt zelf moeten doen.
probeer het eens met een komma (,) in plaats van een punt (.)quote:Op woensdag 20 januari 2010 18:33 schreef Puckzzz het volgende:
OMG ik heb echt een hele suffe vraag
ik wil gewoon ¤1873.75 in een cel zetten. Maar als ik bij celeigenschappen valuta of financieel selecteer en dan met 2 decimalen dan maakt ie er ¤1873.750.00 van Ik heb al allerlei pogingen gedaan, maar het helpt niet
tried it and failed...dan zet 'ie het euro teken er niet voor.quote:Op woensdag 20 januari 2010 19:07 schreef qu63 het volgende:
[..]
probeer het eens met een komma (,) in plaats van een punt (.)
Welke Excel heb je? En in welke taal?quote:Op woensdag 20 januari 2010 19:16 schreef Puckzzz het volgende:
[..]
tried it and failed...dan zet 'ie het euro teken er niet voor.
Als je dan gewoon je getal invoert met een komma zou het gewoon moeten werken..quote:Op woensdag 20 januari 2010 19:24 schreef Puckzzz het volgende:
Volgens mij een hele oude versie van Office 2000 in het Nederlands
Dat weet ikquote:Op woensdag 20 januari 2010 19:52 schreef qu63 het volgende:
[..]
Als je dan gewoon je getal invoert met een komma zou het gewoon moeten werken..
En het euro teken hoef je niet zelf in te vullen, dat doet ie zelf als je voor valuta of financieel kiest
Kijk eens bij de aangepaste instellingen dan (cel celecteren en dan ctrl+1) en vul daar dit in:quote:Op woensdag 20 januari 2010 19:58 schreef Puckzzz het volgende:
[..]
Dat weet ik
Ik heb redelijke kennis van Excel, daarom snap ik ook niet waarom ik (of all things) nou juist met zoiets simpels zit te worstelen.
Maar wat je voorstelt heb ik al tig keer geprobeerd en hij vertikt het gewoon
Dat werkt in zoverre dat ik bij ronde getallen dit moet doen: ¤ #.##00 maar bij getallen met bijvoorbeeld 1837.75 dit: ¤ #.## en bij getal met 350.20 dit: ¤ #.##0quote:Op woensdag 20 januari 2010 20:04 schreef qu63 het volgende:
[..]
Kijk eens bij de aangepaste instellingen dan (cel celecteren en dan ctrl+1) en vul daar dit in:
"¤ #.##0,00" (zonder de aanhalingstekens natuurlijk)
Zo staat het bij mij als ik kies voor valuta (wel in Excel 2007 NL)
Nee, bij ronde getallen (100 bijvoorbeeld) zorgt die 'code' er voor dat er ,00 achter komt. Als je 100,1 invult maakt ie er 100,10 van en met 100,10 doet ie niks.quote:Op woensdag 20 januari 2010 20:15 schreef Puckzzz het volgende:
[..]
Dat werkt in zoverre dat ik bij ronde getallen dit moet doen: ¤ #.##00 maar bij getallen met bijvoorbeeld 1837.75 dit: ¤ #.## en bij getal met 350.20 dit: ¤ #.##0
Nieuwe reeks maken in dezelfde grafiek met allen de twee punten waar je de trendlijn van wilt hebben. Vervolgens een trendlijn door die nieuwe reeks trekken en de lijn een stukje vooruit en achteruit laten voorspellen, dan lijkt het net op een echte raaklijn.quote:Op woensdag 20 januari 2010 17:21 schreef Levolution het volgende:
Ik wil graag een trendlijn aan een plot toevoegen, maar deze trendlijn moet niet van de hele grafiek zijn, maar van een klein gedeelte ervan. Eigenlijk is het bedoeld om de functie van dat kleine stukje te bepalen. Uitgelegd in plaatjes:
Niet zo:
[ afbeelding ]
Maar zo:
[ afbeelding ]
Dat eerste lukt me wel, maar dat tweede niet. Weet iemand hoe dat moet?
autofilter:quote:Op donderdag 21 januari 2010 01:19 schreef Bartjebart het volgende:
Hi,
Vraagje...
Ik heb in een kolom onder elkaar een aantal verschillende gegevens staan. Laten we het houden op landen;
DE
NL
ENG
DE
NL
NL
BE
AT
Hoe kan ik nou boven deze kolom een soort 'pull down' menu maken waarbij hij, wanneer ik 'NL' aangeef, hij alleen alle regels met NL in die cel laat zien?
Is het nog een beetje duidelijk?
Edit; Vraag me niet hoe, maar het is me gelukt om bij 1 kolom dit toe te voegen, maar bij andere kolommen waar dit ook gebeuren moet, doet ie dan niks.
Ik had er gisteren geen zin meer inquote:Op woensdag 20 januari 2010 20:20 schreef qu63 het volgende:
[..]
Nee, bij ronde getallen (100 bijvoorbeeld) zorgt die 'code' er voor dat er ,00 achter komt. Als je 100,1 invult maakt ie er 100,10 van en met 100,10 doet ie niks.
Een # wordt vervangen door een getal, die 0,00 geeft aan dat dat ingvuld moet worden als er geen getal ingevoerd wordt. Wordt het eerste getal voor de komma dus wel gegeven, dan plakt ie er ,00 achter..
Ja die had ik gevonden (zie edit ) Maar ik krijg dit autofilter alleen bij 1 kolom en niet bij meerdere...quote:Op donderdag 21 januari 2010 08:19 schreef Joooo-pi het volgende:
[..]
autofilter:
Data --> filter --> autofilter
de hele bovenste rij selecteren (waar de kopteksten staan) en dan autofilter aan zetten.quote:Op donderdag 21 januari 2010 10:46 schreef Bartjebart het volgende:
[..]
Ja die had ik gevonden (zie edit ) Maar ik krijg dit autofilter alleen bij 1 kolom en niet bij meerdere...
proest, waarom zou je dat in godsnaam doen?quote:Op donderdag 21 januari 2010 11:59 schreef qu63 het volgende:
16 months worth of drawing exercises in Microsoft Excel
Kunst?quote:Op donderdag 21 januari 2010 16:18 schreef Deetch het volgende:
[..]
proest, waarom zou je dat in godsnaam doen?
Hoeft niet hoor. Je hebt nog steeds de aangepaste filter.quote:Op donderdag 21 januari 2010 11:40 schreef znarch het volgende:
Ik vind die autofilter uit 2007 sowieso maar irritant. Bij de oude kon je gewoon klikken op een optie en dan filterde hij. Nu zit je met die klote checkboxes.
quote:
Klopt maar ik zou het zoals dit willen:quote:Op donderdag 21 januari 2010 20:31 schreef hendrik2009 het volgende:
[..]
Hoeft niet hoor. Je hebt nog steeds de aangepaste filter.
Zie hier
http://www.excel-2007.nl/images/image263.jpg
He,quote:Op zondag 24 januari 2010 17:41 schreef Yho het volgende:
Weet je dan ook toevallig hoe ik daar aan kom? en werkt dat moeilijk?
mijn dank is groot!
- edit: algevonden, dank is nog steeds groot
zie pmquote:Op maandag 25 januari 2010 12:10 schreef DaFan het volgende:
Stel tab3:
C5 = Nieuwe binnenweg
D5 = 1
L5 = 0,45
Stel tab5
I6 = "Nieuwe binnenweg" (LET OP je hebt een spelfout!)
H7= 1
Dan is I8:
=ALS($H7<>"";SOMPRODUCT(($H7=Werkgeschiedenis!$D$5:$D$9)*('Analyse 2'!I$6=Werkgeschiedenis!$C$5:$C$9)*(Werkgeschiedenis!$L$5:$L$9)))
En doortrekken naar rechts en beneden. Resultaat is 0,45
Je moet wel oppassen, want met SOMPRODUCT kan je niét met Named ranges werken die over de hele kolom gaan. Je mág dus geen D:D gebruiken in SOMPRODUCT in oudere versies dan 2007.
In 2007 mag het dus wel!
Ziet er netjes uit trouwens, met Named Ranges werken is wel pro in zo'n sheet. Maar gaat dus met deze formule problemen opleveren in oudere versies dan 2007.
Hoop dat het zo duidelijk genoeg is.
heel goed hoor.quote:Op maandag 25 januari 2010 12:17 schreef DaFan het volgende:
YESSS SUMPRODUCT fapfapfapfap
Ik heb inderdaad al een pm gekregen met een dergelijke uitleg, bedanktquote:Op maandag 25 januari 2010 13:27 schreef Deetch het volgende:
[..]
heel goed hoor.
Als je wilt weten waarom DaFan een natte voeg krijgt van de sumproduct functie check dan deze tutorials, dan snap je de kracht van deze functie.
http://www.exceluser.com/explore/sumproduct_11.htm
http://www.lqnet.com/Excel/sumproduct.aspx
http://www.meadinkent.co.uk/xlsumproduct.htm
Er is een SMTP server. Ik wil ook dat de mail automatisch verzonden wordt, zonder dat de gebruiker iets hoeft te doen met Outlook.quote:Op dinsdag 26 januari 2010 12:38 schreef DaFan het volgende:
Heb je een SMTP server of wil je gewoon output in een nieuwe mail in Outlook?
1 2 3 4 5 6 | b = " Applicatie " & Range("B1").Value & " werkt niet goed." c = " Het probleem is volgens mijn knopje " & Range("C1").Value & "." BodyEmail = a & b & c Range("D1").Value = BodyEmail |
Even op mijn persoonlijke situatie gespitst:quote:Op dinsdag 26 januari 2010 13:13 schreef DaFan het volgende:
Je kan toch gewoon een string samenstellen in VBA door waarden uit de cellen? En die dus als body eraan hangen.
bv A1 = naam
B1 = applicatienaam
C1 = knopnaam
[code verwijderd ]
En dan die string dus in de Body zetten?
deze oplossing had ik ook al gevonden op internet maar die werkt dus niet..helaasquote:Op dinsdag 26 januari 2010 14:46 schreef DaFan het volgende:
"tab1" is je eerste sheet.
"tab52" is je laatste sheet
=SOM(Tab1:Tab52!A1)
telt alle waardes uit A1 uit alle cellen bij elkaar op.
klopt, je was in je eerste antwoord de accentjes vergetenquote:Op dinsdag 26 januari 2010 16:19 schreef DaFan het volgende:
'WK1:WK02'!U49
Kan niet anders dan werken
Facepalm.quote:Op dinsdag 26 januari 2010 16:49 schreef Deetch het volgende:
[..]
klopt, je was in je eerste antwoord de accentjes vergeten
quote:
Kan bovenstaande met een Outlooktaak? Daar las ik iets over gisterenquote:Op dinsdag 26 januari 2010 15:20 schreef sanger het volgende:
[..]
Even op mijn persoonlijke situatie gespitst:
Wij willen per persoon een mail sturen met bepaalde gegevens. Die mail gaat naar een (per persoon) uniek e-mailadres (telefoonnummer@gatewayprovider.nl).
In die mail wil ik gegevens vanuit een Excelbestand weergeven tussen de tekst (excelvelden zijn dikgedrukt weergegeven).
Bv:
Beste werknemer,
Vandaag is het salaris voor week A2 uitbetaald. Dit moet dus spoedig op je bankrekening staan.
Wij hebben op basis van de door ons ontvangen urenstaten B2 uren verwerkt. Het netto uitbetaalde bedrag is C2.
Met vriendelijke groet,
Bedrijfsnaam
Ik heb het nu op een iets andere manier aangepast. Nu wordt op een apart werkblad de mail aangemaakt. Op dit werkblad staat de ontvanger in cel C3, het onderwerp in cel C4, en de body van de mail staat in cellen B11:L44.quote:Op dinsdag 26 januari 2010 13:13 schreef DaFan het volgende:
Je kan toch gewoon een string samenstellen in VBA door waarden uit de cellen? En die dus als body eraan hangen.
bv A1 = naam
B1 = applicatienaam
C1 = knopnaam
[ code verwijderd ]
En dan die string dus in de Body zetten?
Ik heb nu hetvolgende script gebruikt (van de site van Ron de Bruin). De gegevens voor de mail staan op Blad2, genaamd "Email"quote:Op woensdag 27 januari 2010 10:50 schreef actuarisje het volgende:
[..]
Ik heb het nu op een iets andere manier aangepast. Nu wordt op een apart werkblad de mail aangemaakt. Op dit werkblad staat de ontvanger in cel C3, het onderwerp in cel C4, en de body van de mail staat in cellen B11:L44.
Volgens mij moet het wel mogelijk zijn om die range (B11:L44) in het script als body voor de mail mee te geven. Daar ga ik nog even mee puzzelen...
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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2007 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection 'Set rng = Selection.SpecialCells(xlCellTypeVisible) 'You can also use a range if you want Set rng = Sheets("Email").Range("B11:L44").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & _ vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End If With Application .EnableEvents = False .ScreenUpdating = False End With Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Sheets("Email").Range("C3").Value .CC = "" .BCC = "" .Subject = Sheets("Email").Range("C4").Value .HTMLBody = RangetoHTML(rng) .Send 'or use .Display End With On Error GoTo 0 With Application .EnableEvents = True .ScreenUpdating = True End With Set OutMail = Nothing Set OutApp = Nothing End Sub Function RangetoHTML(rng As Range) ' Changed by Ron de Bruin 28-Oct-2006 ' Working in Office 2000-2007 Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" 'Copy the range and create a new workbook to past the data in rng.Copy Set TempWB = Workbooks.Add(1) With TempWB.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial xlPasteValues, , False, False .Cells(1).PasteSpecial xlPasteFormats, , False, False .Cells(1).Select Application.CutCopyMode = False On Error Resume Next .DrawingObjects.Visible = True .DrawingObjects.Delete On Error GoTo 0 End With 'Publish the sheet to a htm file With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _ Source:=TempWB.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With 'Read all data from the htm file into RangetoHTML Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2) RangetoHTML = ts.ReadAll ts.Close RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _ "align=left x:publishsource=") 'Close TempWB TempWB.Close savechanges:=False 'Delete the htm file we used in this function Kill TempFile Set ts = Nothing Set fso = Nothing Set TempWB = Nothing End Function |
Ik heb dit even laten testen door een vriendin die wel beschikking had tot Outlook en het werkt op deze manierquote:Op woensdag 27 januari 2010 11:22 schreef actuarisje het volgende:
[..]
Ik heb nu hetvolgende script gebruikt (van de site van Ron de Bruin). De gegevens voor de mail staan op Blad2, genaamd "Email"
[ code verwijderd ]
Kan iemand zo op het eerste gezicht zien of dit zou moeten kunnen werken? Ik heb namelijk op de PC waar ik nu zit GEEN Outlook staan, dus bij het runnen van de macro krijg ik de foutmelding dat er een object niet aangemaakt kan worden. Het loop bij mij mis op regel 27, waarschijnlijk omdat ik geen Outlook heb...
Jup idd, maar dat doetie hier niet, krijg je onder die 1 en de 11 weer 1 ... >.<quote:Op woensdag 27 januari 2010 20:19 schreef MrBadGuy het volgende:
Twee rijen maken:
1-2
11-12
En dan doortrekken naar rechts t/m 10 en dan naar beneden t/m 300. Of bedoel je dat niet?
Ik heb Excel 2007 en daar doet ie het wel gewoon, geen idee hoe het zit met andere versies.quote:Op woensdag 27 januari 2010 20:21 schreef tokko1 het volgende:
[..]
Jup idd, maar dat doetie hier niet, krijg je onder die 1 en de 11 weer 1 ... >.<
Heey, 't werkt nu wel.. deed blijkbaar iets verkeerds!quote:Op woensdag 27 januari 2010 20:24 schreef MrBadGuy het volgende:
[..]
Ik heb Excel 2007 en daar doet ie het wel gewoon, geen idee hoe het zit met andere versies.
Andere mogelijke oplossing: Cel A1 is 1, cel A2 is 2, etc. Dan in cel B1 invullen '=A1+10' en die cel vervolgens doortrekken naar rechts en vervolgens weer naar beneden.
Ja je kan toch één string maken door middel vanquote:Op woensdag 27 januari 2010 10:50 schreef actuarisje het volgende:
[..]
Ik heb het nu op een iets andere manier aangepast. Nu wordt op een apart werkblad de mail aangemaakt. Op dit werkblad staat de ontvanger in cel C3, het onderwerp in cel C4, en de body van de mail staat in cellen B11:L44.
Volgens mij moet het wel mogelijk zijn om die range (B11:L44) in het script als body voor de mail mee te geven. Daar ga ik nog even mee puzzelen...
Je bedoelt hoe het bestand eruit ziet? Dat bestaat uit zo'n 5000 rijen en >50 kolommen. De dagelijkse wijzigingen zullen echter alleen in de eerste 30 kolommen ofzo plaatsvinden. De kolommen daarachter zijn constant over de tijd (daar staan namen en adresgegevens e.d in).quote:Op donderdag 28 januari 2010 08:51 schreef DaFan het volgende:
Actuarisje voor je andere vraag:
Hoe is je data opgebouwd/gescheiden? 2 kolommen of 3?
Selecteer de kolom. Rechtermuisknop, celeigenschappen tabblad Getal kiezen, dan weer getal kiezen en decimalen op 0 zetten.quote:Op vrijdag 29 januari 2010 12:22 schreef Martijn85 het volgende:
Ik heb een vraagje.
Ik heb in excel in een kolom allemaal getallen staan zonder "decimaalkomma". Dus 10055 ipv 100,55
Is het mogelijk om op een of andere manier deze komma overal tegelijk in te voegen ipv handmatig?
Als ik bij opmaak nummer doe en dan 2 decimalen, komt er gewoon 10055,00 te staan
Tnx!
Werkt niet. Dan blijft er gewoon 10055 staan ipv 100,55quote:Op vrijdag 29 januari 2010 12:25 schreef Stansfield het volgende:
[..]
Selecteer de kolom. Rechtermuisknop, celeigenschappen tabblad Getal kiezen, dan weer getal kiezen en decimalen op 0 zetten.
Dat was 'mquote:Op vrijdag 29 januari 2010 13:57 schreef Deetch het volgende:
zet naast de kolom met je "verkeerde" getallen een net zo lange kolom waarin je in elke cel 100 zet.
Vervolgens kopieer je de kolom met alle 100's.
Dan selecteer je de kolom waar je "verkeerde" getallen in staan en doe je:
Paste Special, operation divide (NL: plakken speciaal, opeartie dellen door ofzo)
Das een best nette oplossing!quote:Op vrijdag 29 januari 2010 13:57 schreef Deetch het volgende:
zet naast de kolom met je "verkeerde" getallen een net zo lange kolom waarin je in elke cel 100 zet.
Vervolgens kopieer je de kolom met alle 100's.
Dan selecteer je de kolom waar je "verkeerde" getallen in staan en doe je:
Paste Special, operation divide (NL: plakken speciaal, opeartie dellen door ofzo)
Vert zoeken kan niet, want meer resultaten per cijfer.quote:Op vrijdag 29 januari 2010 11:57 schreef Stansfield het volgende:
Verticaal zoeken werkt hier perfect voor.
Zou ik de nummers even voor de namen zetten.
Dan maak je in blad 2 het overzicht. Zet je bovenin een 1 Dan die je vie de verticaal zoeken wizard de formule maken. In de eerste balk zet je de cel neer waar de 1 staat (in blad 2 dus) dan selecteer je in de 2e balk, blad 1 kolom A en B waar dus het nummer en de naam staan. Dan in de 2e balk zet je 2 neer en in de 4e onwaar.
Iemand een mooie oplossing hiervoor. Heb er vandaag wel 1 gevonden maar die is verre van simpel en kort.quote:Op vrijdag 29 januari 2010 11:59 schreef Stansfield het volgende:
Ik heb ook even een vraag
wanneer ik in kolom A namen heb en in kolom b getallen. Beide 10 cellen lang. Is het dan mogelijk om in kolom C de volgorde van grote van die namen te krijgen.
Dus zoiets
Jan 10
Piet 12
Kees 9
Willem 15
Dat ik dan dus in de kolom ernaast krijg:
Willem
Piet
Jan
Kees
Ik post hem morgen, ben op werk bezig met het bestand en morgen moet ik er toch nog even langs.quote:Op vrijdag 29 januari 2010 17:58 schreef Stansfield het volgende:
Ben benieuwd naar je oplossing. Ik heb trouwens Excel 2007 NL
Hehe dankje, zoiets heb ik ook. Weet niet zeker of ik dat heb, ik post het morgen. In ieder geval bedankt voor de info!quote:Op vrijdag 29 januari 2010 18:36 schreef DaFan het volgende:
C1
=INDEX($A$1:$A$4;VERGELIJKEN(GROOTSTE($B$1:$B$4;RIJ(B1));$B$1:$B$4;0))
En doortrekken.
Er zijn heel veel dezelfde waarden. Het zijn eigenlijk geen waarden maar ook namen van mensen. Dus in A staan zo'n 150 namen, in B 5 verschillende namen. Dus in werkelijkheid:quote:Op vrijdag 29 januari 2010 18:42 schreef DaFan het volgende:
Geen probleem, werkse Zit zelf ook nog
Veel beter dan dit gaat het niet worden imo.
Je moet testen wat de 'grootste' is (rijnummer), dan deze opzoeken in de lijst en de waarde links ervan.
Werkt trouwens niet als er mensen zijn met dezelfde waarden. En let erop dat je RIJ(x)+y doet, waarbij y de rij is waarop je begint.
Mijn vraag is niet de grootste, ik wil sorteren aan de hand van de namen in B. Dus bij Henk komen een aantal mensen, bij Frank een aantal mensen, etc.quote:
quote:Op zaterdag 30 januari 2010 19:09 schreef Techneut het volgende:
Ik ben even een kleine inventaris aan het maken maar nu wil ik graag een knop hebben waarmee ik voorwerpen kan sorteren op naam. Ik heb het via de rechte muisknop al geprobeerd maar dan gaan word alles opnieuw gesorteerd.
Ik wil graag dat wanneer het eerste kolom wordt gesorteerd op naam dat die kolommen daarachter vast blijven zitten aan het item.
Er zijn tootjes die je hele mappen structuur in een txt-bestand proppen, dat zou je dan weer regel voor regel uit kunnen lezen denk ik.quote:Op zaterdag 30 januari 2010 20:09 schreef znarch het volgende:
Heel andere indirecte vraag nu. Ik heb een folder met allemaal albums. Nu wil ik net als mijn films in excel een lijstje maken met de muziek die ik heb. Maar is er een snelle manier om alle mappen (de namen ervan) in excel te krijgen? Het is echt VEEL te veel om handmatig te doen.
Voor zover bekend is dit volgens mij niet mogelijk met standaard excel formules, mogelijk via macro's? Is het niet mogelijk beide dingen open te zetten (excel en de map) en dan via F2 -> ctrl-c -> ctrl-v te werken?quote:Op zaterdag 30 januari 2010 20:09 schreef znarch het volgende:
Heel andere indirecte vraag nu. Ik heb een folder met allemaal albums. Nu wil ik net als mijn films in excel een lijstje maken met de muziek die ik heb. Maar is er een snelle manier om alle mappen (de namen ervan) in excel te krijgen? Het is echt VEEL te veel om handmatig te doen.
Sorteren op type, dan tool gebruiken en pasten in excel, daarna gewoon eenmalig losse mp3 namen verwijderen?quote:Op zaterdag 30 januari 2010 20:35 schreef znarch het volgende:
Zon tool heb ik al, maar die maakt een lijst van de hele directory, dus die zet ook elk los mp3tje erin, dat is het probleem zeg maar
in kladblok ";" vervangen door "quote:Op zaterdag 30 januari 2010 20:58 schreef znarch het volgende:
Ik heb al iets, maar ik heb nu dus een txt bestand, met alle albums achter elkaar, gescheiden door ;. Maar als ik dat in excel importeer zet hij de albums allemaal naast elkaar ipv onder elkaar xD Eehm, suggesties ? :p
In excel:quote:Op zaterdag 30 januari 2010 21:12 schreef znarch het volgende:
Als ik de ; vervang voor " doet hij dat nog steeds niet hoor aah wat ben ik hier slecht in
Selecteer alle info --> Copy --> Paste special --> optie "transpose" aanvinken --> klaarquote:Op zaterdag 30 januari 2010 21:41 schreef znarch het volgende:
Dat werkt wel, maar dan heb ik in iedere kolom een album staan, en ik wil het in de rijen hebben.
Dus niet: A1 = Album 1 B1 = Album 2
maar:
A1 = Album1
A2 = Album2
Hoop dat het nu duidelijk is
OMG Dit soort dingen zijn altijd zo makkenlijk he (als je ze weet)quote:Op zaterdag 30 januari 2010 21:51 schreef McGilles het volgende:
[..]
Selecteer alle info --> Copy --> Paste special --> optie "transpose" aanvinken --> klaar
Geen dank joh, succes met je bestandjequote:Op zaterdag 30 januari 2010 22:03 schreef znarch het volgende:
[..]
OMG Dit soort dingen zijn altijd zo makkenlijk he (als je ze weet)
DANK DANK DANK
Dat is vergelijkbaar met wat ik voor je gemaakt zou hebben.quote:Op zaterdag 30 januari 2010 17:57 schreef McGilles het volgende:
Hoe ik mijn probleem heb aangepakt, zoek nog steeds een mooiere oplossing.
--------------------------
kolom D = namen van mensen die ik onderverdeeld wil hebben onder mensen die in K staan
kolom K = namen van mensen waaronder per naam mensen van kolom D komen
o3 = naam van specifiek persoon in K waaronder ik mensen van A wil hebben
p2 = 0
p3 etc (verticaal) = P2+EN(K3=O$3;D3<>"")
q2 = MAX(P:P)
r3 etc (verticaal) = ALS(RIJEN(R3:R$3)>Q$2;"";INDEX(D:D;VERGELIJKEN(RIJEN(R3:R$3);P:P;0)))
Dan krijg ik in de cellen R3 tm R100 (bv) alle namen te staan van mensen waarvan in kolom K de naam is ingevuld die gelijk is aan o3.
Ziet iemand nog verbeteringen?
Tekstterugloop of tekst passend maken aangevinkt?quote:Op maandag 1 februari 2010 15:27 schreef jakees het volgende:
Hallo, ik heb een formulier met daarin een grote cel is waarin allerlei tekst kan worden getypt. Nu is het probleem dat tijdens het typen de tekst netjes op de volgende regel verschijnt. Maar zodra je getypt hebt zijn niet alle tekens zichtbaar. Ik heb de rijhoogte en breedte al aangepast maar nog wordt naar de helft (1060 karakters) getoond. Is dat een Excel 2003 probleem? Of staan er instellingen verkeerd.
bvd
Het tekstterugloop vinkje zorgt ervoor dat je tekstpassend maken niet meer kan aanvinken. Maar als je eerst tekst passend maken aanklikt kan dit eerst worden aangepast. Ik gebruik Excel 2003. Wellicht dat het in 2007 wel werkt. Maar weet iemand of dit op een andere wijze is op te lossen?quote:Op maandag 1 februari 2010 15:29 schreef qu63 het volgende:
[..]
Tekstterugloop of tekst passend maken aangevinkt?
(cel selecteren en dan ctrl+1, tabbald uitlijning)
Dan lijkt het alsof die 1060 tekens gewoon een limiet is van Excel..quote:Op maandag 1 februari 2010 15:46 schreef jakees het volgende:
[..]
Het tekstterugloop vinkje zorgt ervoor dat je tekstpassend maken niet meer kan aanvinken. Maar als je eerst tekst passend maken aanklikt kan dit eerst worden aangepast. Ik gebruik Excel 2003. Wellicht dat het in 2007 wel werkt. Maar weet iemand of dit op een andere wijze is op te lossen?
het is na te spelen door een cel heel breed en hoog te maken en vervolgens meer dan 1060 karakters erin te plempen. Bij karakter 1059 hakt die hem gewoon af in het beeld. Wel is de tekst daarna er uit te halen.
Deze formule werkt goed alleen krijg ik nu als melding #getal.quote:Op vrijdag 29 januari 2010 18:36 schreef DaFan het volgende:
C1
=INDEX($A$1:$A$4;VERGELIJKEN(GROOTSTE($B$1:$B$4;RIJ(B1));$B$1:$B$4;0))
En doortrekken.
sheit, heb jij hetzelfde? In Excel 2007 heb ik er trouwens geen last van.quote:Op maandag 1 februari 2010 15:48 schreef qu63 het volgende:
[..]
Dan lijkt het alsof die 1060 tekens gewoon een limiet is van Excel.
Nee, maar dat was mijn conclusie na jouw post..quote:Op dinsdag 2 februari 2010 01:45 schreef jakees het volgende:
[..]
sheit, heb jij hetzelfde? In Excel 2007 heb ik er trouwens geen last van.
Ik snapte het ook al niet helemaal..quote:Op dinsdag 2 februari 2010 12:48 schreef DaFan het volgende:
Huh waarom kan dat niet
een kilogram is toch 1000x groter dan grammen...dan deel je de grammen door 1000 en dan dat delen door de kostprijs [grammen/1000]/[kostprijs per kilo]
oke maar,quote:Op dinsdag 2 februari 2010 12:48 schreef DaFan het volgende:
Huh waarom kan dat niet
een kilogram is toch 1000x groter dan grammen...dan deel je de grammen door 1000 en dan dat delen door de kostprijs [grammen/1000]/[kostprijs per kilo]
dat zou inderdaad makkelijk zijn maar om inde woorden van bodycount te spreken:quote:Op dinsdag 2 februari 2010 13:02 schreef gerrit098 het volgende:
[..]
oke maar,
de formule is vaak weer anders soms is het Kg/Kg (bv 1 kilo rijst kost 5kilo rijst kost) en dan weer Kg/g (bv 1 kilo ossehaas kost 200 gram ossehaas kost) daar door veranderd de formule steeds weer.
Het zou makelijk zijn als excel onderscheid kan maken tussen Kg en g / l en ml en dit automatisch omzet.
Je kan wel een zoektabel maken met daarin het product, de inhoud (5kg voor rijst dus, opschrijven als 5000), en de prijs.quote:Op dinsdag 2 februari 2010 13:11 schreef Deetch het volgende:
[..]
dat zou inderdaad makkelijk zijn maar om inde woorden van bodycount te spreken:
"Here in South central, shit ain't like that"
met andere woorden, je zult toch zelf de prijzen om moeten rekenen.
Dat heb ik geleerd idd. Ik heb daar ook geleerd om het je zelf zo makkelijk mogelijk te maken.quote:Op dinsdag 2 februari 2010 13:23 schreef DaFan het volgende:
Gewoon dezelfde eenheid gebruiken, heb je dat niet geleerd op school
Euro's en grammen dus!
quote:
quote:Op dinsdag 2 februari 2010 13:13 schreef qu63 het volgende:
[..]
Je kan wel een zoektabel maken met daarin het product, de inhoud (5kg voor rijst dus, opschrijven als 5000), en de prijs.
Dan kan je daarmee gaan rekenen
Oh, en die functie kent Excel nietquote:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Dim FileName As String If ActiveWindow.SelectedSheets.Count > 1 Then MsgBox "There is more then one sheet selected," & vbNewLine & _ "be aware that every selected sheet will be published" End If FileName = RDB_Create_PDF(ActiveSheet, ThisWorkbook.Sheets("Reparatieverzoek").Range("D9").Value, True, True) If FileName <> "" Then RDB_Mail_PDF_Outlook FileName, "info@trivire.nl", "reparatieverzoek", _ "zie bijlage" _ & vbNewLine & vbNewLine & "Met vriendelijke groeten,", False Else MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _ "Microsoft Add-in is not installed" & vbNewLine & _ "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _ "The path to Save the file in arg 2 is not correct" & vbNewLine & _ "You didn't want to overwrite the existing PDF if it exist" End If End Sub |
Je wilt iets simpels in excel maar dan nog simpeler? Doe gewoon grammen en andere standaard eenheden dan komt het wel goed.quote:
Post de indeling en formules eensquote:Op vrijdag 5 februari 2010 23:51 schreef qu63 het volgende:
Bugger
Kom er net achter dat mijn geweldige autokosten-sheet een fout bevat
Ik heb in de maand december namelijk niet getankt, dus nu klopt mn hele IF-structuur niet meer!
Zal ik de hele sheet maar posten?quote:Op zaterdag 6 februari 2010 00:41 schreef McGilles het volgende:
[..]
Post de indeling en formules eens
File cannot be foundquote:Op zaterdag 6 februari 2010 12:17 schreef qu63 het volgende:
[..]
Zal ik de hele sheet maar posten?
http://www.svenahrens.nl/Auto.xlsx
Heb er even naar gekeken maar had hem zelf heel anders ontworpen als ik het moest doenquote:Op zondag 7 februari 2010 15:38 schreef qu63 het volgende:
[..]
Bugger, verkeerde link gepakt
www.qu63.nl/Auto.xlsx
Dóh!quote:Op zondag 7 februari 2010 17:38 schreef McGilles het volgende:
[..]
Heb er even naar gekeken maar had hem zelf heel anders ontworpen als ik het moest doen
Heb je wel gezien dat je formule maar kijkt van A2 tm A13 en niet verder?
1 |
Laten tellen met =aantal( en dan daaraan de cel koppelen?quote:Op zondag 7 februari 2010 17:49 schreef qu63 het volgende:
Andere vraag dan:
Hoe kan ik deze formule zo maken dat $A$13 vervangen wordt door de laatst ingevoerde waarde in die kolom -1?
[ code verwijderd ]
Nu is dat A15 (-1 dus A14), anders moet ik na iedere tankbeurt die hele formule aanpassen..
Zoiets bedoel je?quote:Op zondag 7 februari 2010 18:00 schreef McGilles het volgende:
[..]
Laten tellen met =aantal( en dan daaraan de cel koppelen?
1 |
1 |
1 |
1 |
Kan je dan niet gewoon in blad 1 het bestand pasten en dan in blad 2 elke kolom definieren aan de hand van blad1?quote:Op zondag 7 februari 2010 22:51 schreef redsea91 het volgende:
Hallo allen,
Mijn vraag gaat over het volgende:
Ik wil mijn bankgegevens zodanig sorteren dat ik alleen bepaalde posten in excel krijg. Als ik in mijn gegevens download in een excel bestand dan krijg ik deze in 8 kolommen (o.a. transactiedatum, omschrijving, bedrag).
Stel dat ik transacties zou willen kopiëren (naar een andere (lege) excel map) die in de kolom omschrijving bijv. "fiscus" hebben staan, hoe zou ik dat dan het beste kunnen doen.
Let wel ik wil de gehele rij dan kopieren, dus een functie die rijen selecteert welke een bepaalde overeenkomstige naam (fiscus) in een kolom hebben staan.
Ik zat te denken aan lookup functie (vlookup o.i.d.). Zijn er andere/betere ideeen. Alvast bedankt.
Ik moet de range hebben, als er namelijk lege waarden in staan krijg ik #WAARDE en #N/B fouten..quote:Op maandag 8 februari 2010 08:46 schreef DaFan het volgende:
qu63 welke error krijg je?
Probeer je ALS(SOMPRODUCT( eens met Ctrl-Shift-Enter te bevestigen.
En kan je niet beter deze formule gebruiken om de laatste waarde te vinden in je range (of moet je de range zelf hebben?)
=ZOEKEN(9E+301;A1:A1000)
Copieer de zooi naar een nieuw bestand.quote:Op zondag 7 februari 2010 22:51 schreef redsea91 het volgende:
Hallo allen,
Mijn vraag gaat over het volgende:
Ik wil mijn bankgegevens zodanig sorteren dat ik alleen bepaalde posten in excel krijg. Als ik in mijn gegevens download in een excel bestand dan krijg ik deze in 8 kolommen (o.a. transactiedatum, omschrijving, bedrag).
Stel dat ik transacties zou willen kopiëren (naar een andere (lege) excel map) die in de kolom omschrijving bijv. "fiscus" hebben staan, hoe zou ik dat dan het beste kunnen doen.
Let wel ik wil de gehele rij dan kopieren, dus een functie die rijen selecteert welke een bepaalde overeenkomstige naam (fiscus) in een kolom hebben staan.
Ik zat te denken aan lookup functie (vlookup o.i.d.). Zijn er andere/betere ideeen. Alvast bedankt.
Dank je het werkt op deze manier. Zou je me wellicht ook uit kunnen leggen waarom de functie NIET icm ISFOUT wordt gebruikt hier. Ik was hier nooit op gekomen.quote:Op maandag 8 februari 2010 14:21 schreef Twentsche_Ros het volgende:
[..]
Copieer de zooi naar een nieuw bestand.
en zet in een nieuwe kolom rechts van de kolommen bovenaan de volgende formule:
=NIET(+ISFOUT(+VIND.SPEC("fiscus";A1)))*1
Deze geeft 1 als "fiscus" voorkomt in A1, en 0 wanneer dat niet het geval is.
Dit kun je naar beneden copieren etc.
Daarna kun je de volgorde sorteren van de bewuste kolom.
Mja, dit is een complete planning, dus heel veel invulbare velden..quote:Op dinsdag 9 februari 2010 18:05 schreef Deetch het volgende:
een beveiligde cel maken?
Sowieso maak ik sheets voor collega's vrienden zoveel mogelijk dummie proof met een poar bewerkbare cellen en de rest beveiligd.
Bestand -> afdrukvoorbeeld -> instellen -> tablad: blad -> vinkje bij 'Rij- en kolomkoppen'quote:Op dinsdag 9 februari 2010 18:46 schreef jakees het volgende:
Ik heb een hele tabel met 5 kolommen. Als ik print krijg ik alleen op de eerste pagina de kolomrij. Kun je ervoor zorgen dat er op elke pagina de zelfde kolomnamen komen? In word kun je dit wel instellen. Office 2003 btw.
Ah sorry, dan heb ik je inderdaad verkeerd begrepen, vergeet wat ik net zij (denk ik, of combineer het een beetje, voel je vrij) ik denk dat je dit bedoeld:quote:Op dinsdag 9 februari 2010 19:05 schreef jakees het volgende:
Top ik zie dat dit wordt meegenomen maar nu zet hij bij elke pagina A B C D neer en niet mijn kolomkoppen. Hoe geef ik aan wat mijn kolomkoppen zijn? ik heb al freeze panes / titelblokkering ingesteld.
Thx dat is wat ik bedoel! alleen is het bij mij uitgegrijsd en kan ik het niet invullen. Ik probeer het wel even op de laptop van mijn vrouw.quote:Op dinsdag 9 februari 2010 19:24 schreef tsjsieb het volgende:
[..]
Ah sorry, dan heb ik je inderdaad verkeerd begrepen, vergeet wat ik net zij (denk ik, of combineer het een beetje, voel je vrij) ik denk dat je dit bedoeld:
bestand -> pagina instelling -> tabblad blad -> onder het kopje Titels afdrukken: Rijen bovenaan op elke pagina (en daar dan de regel selecteren die je wilt hebben)
Of probeer het gewoon even met een nieuw leeg document, waar je titels invult en verder kolommen met 1 ,2 ,3 ,4 ofzo...quote:Op dinsdag 9 februari 2010 19:31 schreef jakees het volgende:
[..]
Thx dat is wat ik bedoel! alleen is het bij mij uitgegrijsd en kan ik het niet invullen. Ik probeer het wel even op de laptop van mijn vrouw.
Sommige printers kunnen daar niet goed mee overweg, ik heb het op mijn werk ook ooit wel eens gehad.quote:Op dinsdag 9 februari 2010 19:31 schreef jakees het volgende:
[..]
Thx dat is wat ik bedoel! alleen is het bij mij uitgegrijsd en kan ik het niet invullen. Ik probeer het wel even op de laptop van mijn vrouw.
thx ik heb een "PDF printer" ingesteld nu werkt het wel.quote:Op dinsdag 9 februari 2010 20:27 schreef Deetch het volgende:
[..]
Sommige printers kunnen daar niet goed mee overweg, ik heb het op mijn werk ook ooit wel eens gehad.
Je kunt via Ctrl+G --> Special -->Conditional format/ voorwaardelijke opmaak cellen selecterenquote:Op woensdag 10 februari 2010 13:06 schreef sylvesterrr het volgende:
Waarom kent het Excel Object Model geen property voor de huidige opmaak van een cel (ivm conditional formatting)? Nu moet ik dus voor iedere cell checken of er Conditional Formatting van toepassing is, en zoja alle conditions gaan evalueren...
SPOILEROm spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.Nederlander in München, met voorliefde voor Taiwan en auti's gonna aut.
Ja... Ik wil de huidige opmaak van de cel hebben zodat ik de cel via VBA kan opmaken. Daarna wil ik de conditional formatting verwijderen.quote:Op donderdag 11 februari 2010 19:16 schreef hendrik2009 het volgende:
[..]
Je kunt via Ctrl+G --> Special -->Conditional format/ voorwaardelijke opmaak cellen selecteren
Met VBA door de cellen in de eerste kolom lopen. Zodra je een nieuw getal tegenkomt de rijen erboven selecteren, transponeren en verwijderen?quote:Op donderdag 11 februari 2010 17:25 schreef FJD het volgende:
KAK! Ik zit weer eens met een Excel issue;
Onderdeel - subonderdeel
10 - 14
10 - 15
10 - 37
17 - 20
17 - 40
Dat moet naar
10 - 14 - 15 - 37
17 - 20 - 40
Soort transpose dus maar dan lukt t me niet. Teveel records voor draaitabel voorlopig. Iemand een goed idee?
Ik snap trouwens niet dat je het naar de tweede opmaak wil hebben.quote:Op donderdag 11 februari 2010 17:25 schreef FJD het volgende:
KAK! Ik zit weer eens met een Excel issue;
Onderdeel - subonderdeel
10 - 14
10 - 15
10 - 37
17 - 20
17 - 40
Dat moet naar
10 - 14 - 15 - 37
17 - 20 - 40
Soort transpose dus maar dan lukt t me niet. Teveel records voor draaitabel voorlopig. Iemand een goed idee?
Je selecteert de kolom met de datum en de kolom met de meetwaarden.quote:Op vrijdag 12 februari 2010 11:56 schreef Deetch het volgende:
Even een ontzettende domme vraag (denk ik) van mijn kant:
Ik heb een verzameling gegevens die bestaan uit een datum/tijd en een meetwaarde. Tussen de datum/tijd zitten ongelijke intervallen (soms 1 dag soms 2 weken.
Nu heb ik office 2007 en daarin krijg ik het niet voor elkaar om op de x-as de datum te krijgen maar dan wel dat punten die verder uit elkaar liggen ook in het plaatje verder uit elkaar x-as liggen.
Een line graph geeft tussen elk punt de zelfde afstand en gebruikt de datum/tijd puur als label
Een scatter plot verangt de datum/tijd door een volgnummer, zodat eerste meting een 1 krijgt, 2e meting een 2 etc dus dat werkt ook niet.
Help enzo.
De "kunst" is om de lege regels af te zonderen van de rest, en dan van een heel blok de rijen te deleten.quote:Op vrijdag 12 februari 2010 12:01 schreef God_Son het volgende:
Ik heb een vraaaaaag
ik ben bezig met een database te linken aan een standaard offerte formulier, eindelijk alles klaar maar nu zit ik te kloten met lege rijen weg halen.
in de database vink je aan welk product je wilt, dit komt dan in de offerte te staan maar de niet gekozen producten komen er als een blanco regel in te staan
wie weet hoe ik die weg krijg met een macro
heeft iemand een scriptje voor me?
[ afbeelding ]
(de witte regels wil ik weg hebben)
Ik had een getal dat als string werd gezien ipv datum/tijd, probleem is opgelost.quote:Op vrijdag 12 februari 2010 12:25 schreef Twentsche_Ros het volgende:
[..]
Je selecteert de kolom met de datum en de kolom met de meetwaarden.
En dan moet je het grafiektype "spreiding" selecteren.
Of bedoel je dat niet?
1 2 3 4 5 6 7 | 12-2-2010 2 12-2-2010 1 13-2-2010 8 13-2-2010 9 13-2-2010 6 13-2-2010 3 |
1 2 3 | 12-2-2010 3 13-2-2010 26 |
Blad 1 ziet er zo uit:quote:Op zaterdag 13 februari 2010 14:15 schreef Mathijz het volgende:
Ook ik heb een vraag waar ik niet mee uitkom. Gebruik office 2007 NL.
Maak gebruik van meerdere bladen.
Blad1:
In kolom B heb ik data staan, een datum kan op meerdere regels staan. Om het aantal ingevulde cellen op een regel te tellen heb ik in kolom M een aantalarg formule staan.
Blad2:
Dezelfde data overeenkomstig met blad 1, alleen dan wel 1 unieke datum.
Nu wil ik per datum weten het totaal van die ene data. Zonder dat ik die specifiek telkens moet invullen.
Blad 2 moet er zo uit komen te zien
[ code verwijderd ]
De waarde van blad 2 kolom A geef ik zelf in. Gaat erom hoe ik het totaal krijg in blad 2 onder kolom B.
quote:Op maandag 15 februari 2010 11:05 schreef qu63 het volgende:
Excel 2007NL,
Ik heb een lijst met klantnummer (A), klantnaam (B) en totaal bestedingen in het afgelopen jaar (C).
Nu wil ik de hele lijst opsplitsen in stukken van 20% van de totale omzet. Voorwaardelijke opmaak doet dat niet, die kijkt naar het aantal waarden en pakt daar 20% van (dus bij 500 waarden, 100) ipv te kijken naar het bedrag wat in de cel staat.
Hoe los ik dit nu op? Liefst zonder macro's..
Nee, 5 groepen van ieder 20% van de omzet.quote:Op maandag 15 februari 2010 11:35 schreef Twentsche_Ros het volgende:
[..]
Volstrekt onduidelijk.
Hoe wil je dit nu hebben?
Een selectie van klanten die meer dan 20% omzet genereren?
Jupquote:Op maandag 15 februari 2010 11:37 schreef Deetch het volgende:
ik denk dat je niet onder een macro uit komt. Is een lege regel na elke 20% voldoende?
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 35 | Dim totaal, deel, optel As Double 'range eventueel naar smaak aanpassen Set rRange = Range("C:C") '20% berekenen totaal = Application.WorksheetFunction.Sum(rRange) deel = totaal / 5 'startcel naar smaak aanpassen Range("C1").Select 'in vijven delen betekent 4 lege regels plaatsen For i = 1 To 4 optel = 0 'orders bij elkaar optellen totdat je boven de 20% zit Do Until optel > deel optel = optel + ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop 'lege regel plaatsen als 20% is bereikt ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown 'weer naar kolom C ActiveCell.Offset(0, 2).Select 'herhalen totdat hele order set in vijf stukken is gehakt. Next i End Sub |
Werkt, deels..quote:
Ik dacht alquote:Op maandag 15 februari 2010 12:07 schreef qu63 het volgende:
[..]
Werkt, deels..
Ik krijg alleen een lege regel na de eerste 20%, daarna niet meer
-Edit-
Whoops, stukje code vergeten aan te passen! Nu werkt ie wel goed!
Het moest kolom B zijn, en was "ActiveCell.Offset(0, 2).Select" vergeten te veranderen naar "ActiveCell.Offset(0, 1).Select"quote:
Voorwaarde is natuurlijk wel dat namen uniek zijn en in beide gevallen letterlijk identiek.quote:Op dinsdag 16 februari 2010 09:17 schreef ZoeteHoningDrop het volgende:
Ik heb ook een vraag, maar ben een echte excel n00b
Ik heb in tabblad 1 allemaal mensen staan die ooit hebben aangegeven wel een programma te willen volgen.
In tabblad 2 heb ik de mensen staan die ook daadwerkelijk een programma hebben gevolgd. Nu wil ik van tabblad 1 weten welke mensen in die lijst (nog) niet een programma hebben gevolgd.. Dus ik moet iets doen met de mensen die op tabblad 2 staan en vergelijken met tabblad 1 en op een of andere manier moet daar een lijst uitkomen met mensen die nog geen programma hebben gevolgd.
hoe doe ik dit zonder eindeloos de zoekfunctie te gebruiken want het is nogal een lange lijst. /n00b
Werk hier met excel 2003.
Ai, kijk..daar heb ik al een probleem. Als het goed is zijn de emailadressen wel identiek maar deze staan in kolom C.quote:Op dinsdag 16 februari 2010 10:14 schreef Twentsche_Ros het volgende:
[..]
Voorwaarde is natuurlijk wel dat namen uniek zijn en in beide gevallen letterlijk identiek.
Zet in cel b1:
+1-AANTAL.ALS(Blad2!A:A;Blad1!A1)
copieer dit naar beneden.
Als kolom C de entiteit is (zowel in blad 1 en 2).quote:Op dinsdag 16 februari 2010 10:47 schreef ZoeteHoningDrop het volgende:
[..]
Ai, kijk..daar heb ik al een probleem. Als het goed is zijn de emailadressen wel identiek maar deze staan in kolom C.
Kan ik dan alsnog die code/formule (hoe je het ook maar noemt ) gebruiken?
En je zegt cel b1, van tab 1, 2? of in een nieuwe tab?
quote:Op dinsdag 16 februari 2010 11:26 schreef Twentsche_Ros het volgende:
Het is met databases net als met nagels:
Af en toe de rommel er tussen weg halen.
Kort houden.
Dan ziet het er gepolijsd uit.
Ik moet die functie echt eens onder de knie krijgen ben ik bangquote:
Opmaak is bij alle tabbladen hetzelfde:quote:Op dinsdag 16 februari 2010 14:18 schreef DaFan het volgende:
Niet zonder ik je data heb gezien
En hoe je het georganiseerd wilt hebben in je 4e tab.
1 2 3 4 5 6 7 8 9 10 | A ¤ 18.225,12 B ¤ 16.858,91 C ¤ 10.123,84 D ¤ 10.011,46 E ¤ 9.870,92 F ¤ 8.304,34 G ¤ 6.714,79 H ¤ 6.435,57 |
1 2 3 4 5 6 7 8 9 10 | A ¤ 18.959,71 B ¤ 13.726,86 C ¤ 13.555,44 D ¤ 13.537,71 E ¤ 12.451,55 F ¤ 12.173,44 G ¤ 11.957,29 H ¤ 10.106,19 |
1 2 3 4 5 6 7 8 9 10 | A ¤ 17.237,61 B ¤ 17.107,69 C ¤ 13.320,97 D ¤ 11.778,95 E ¤ 11.758,01 F ¤ 11.437,41 G ¤ 7.642,45 H ¤ 6.765,94 |
Excel 2007 NL iddquote:
Bedankt voor de tip, uiteindelijk werkte de formule niet (hij gaf een error aan) en heb ik het maar handmatig gedaan (niet alle e-mail adressen waren identiek opgeschreven).quote:Op dinsdag 16 februari 2010 11:26 schreef Twentsche_Ros het volgende:
[..]
Als kolom C de entiteit is (zowel in blad 1 en 2).
Zet in cel d1:
+1-AANTAL.ALS(Blad2!c:c;Blad1!c1)
Het is belangrijk dat een database een unieke entiteit heeft en goed wordt bijgehouden.
Het is met databases net als met nagels:
Af en toe de rommel er tussen weg halen.
Kort houden.
Dan ziet het er gepolijsd uit.
1 2 3 4 5 | Dim filename filename = Application.GetOpenFilename("JPG (*.jpg),*.jpg") Me.Image1.Picture = filename End Sub |
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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | Private Sub edit_picture_Click() Dim filename filename = Application.GetOpenFilename("JPG (*.jpg),*.jpg") MsgBox filename Me.Image1.Picture = LoadPicture(filename) End Sub Private Sub edit_textButton_Click() Dim temp As String temp = Me.Label4.Caption Me.Label4.Caption = InputBox("New infotext", "Edit INFO", Me.Label4.Caption) If Me.Label4.Caption = "" Then Me.Label4.Caption = temp Sheet3.Range("K3") = Me.Label4.Caption End Sub Private Sub Save_quantities_Click() Dim i As Integer Dim substrate, pos As String For i = 1 To 7 substrate = "textbox" & i pos = "K" & i + 11 Sheet3.Range(pos).Value = Me.Controls(substrate).Text Next i Me.quantitycheck End Sub Private Sub UserForm_Activate() quantitycheck End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True 'Quit_program.BackColor End Sub Private Sub GoToExcel_Click() Startform.Hide Sheet2.Select Range("A1").Select Resize.maximize End Sub Private Sub postrun_button_Click() Post_run_form.Show Startform.Hide End Sub Private Sub UserForm_Initialize() Visit_db.Visible = True Request_new_run.Visible = True Print_cover.Visible = True username = Application.username quantitycheck If username = "mijnnaam" Then Me.postrun_button.Visible = True Me.GoToExcel.Visible = True Me.Save_quantities.Visible = True Me.edit_textButton.Visible = True Me.edit_picture.Visible = True Else Me.postrun_button.Visible = False Me.GoToExcel.Visible = False Me.Save_quantities.Visible = False Me.edit_textButton.Visible = False Me.edit_picture.Visible = False Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False End If 'Application.Wait (Now + TimeValue("0:00:02")) Label3.Caption = "Dear " & username If Application.username = "collega1" Then Me.BackColor = RGB(255, 128, 128) End If If Application.username = "collega2" Then Me.BackColor = RGB(49, 207, 169) End If Me.Label4.Caption = Sheet3.Range("K3") End Sub Private Sub Visit_db_Click() Startform.Hide database_form.Show End Sub Private Sub Quit_program_Click() Unload Startform Resize.maximize Application.CommandBars("Standard").FindControl(ID:=3).Enabled = True If Application.username = "Mijnnaam" Then ThisWorkbook.Saved = False Else ThisWorkbook.Saved = True End If ThisWorkbook.Close 'afsluiten van ditbestand.xls End Sub Private Sub Request_new_run_Click() Sheet2.Select Range("A1").Select Startform.Hide Run_request.Show End Sub Private Sub Print_cover_Click() Startform.Hide Sheet4.Select Range("C3").Select End Sub Sub quantitycheck() Dim i As Integer Dim substrate, pos, labelnr As String For i = 1 To 7 substrate = "textbox" & i pos = "K" & i + 11 labelnr = "Label" & i + 4 Me.Controls(substrate).Text = Sheet3.Range(pos).Value If Sheet3.Range(pos).Value > 4 Then Me.Controls(labelnr).ForeColor = vbGreen Else Me.Controls(labelnr).ForeColor = vbRed End If Next i End Sub |
Thanksquote:Op woensdag 17 februari 2010 14:52 schreef DaFan het volgende:
qu63 ik kom er niet aan toe, te druk op werk en ben tot zaterdag weg vanaf morgen....succes.
1 2 3 4 5 6 7 | dim array as string dim location as string location = sheet1.range("A1").value array = split(location;",") 'en dan array wegschrijven naar de gewenste cellen end sub |
1 2 3 4 5 6 7 | 0 Keuze 2 ¤ 7,00 1 Keuze 3 ¤ 45,00 0 Keuze 4 ¤ 13,00 1 Keuze 5 ¤ 22,00 0 Keuze 6 ¤ 8,00 1 Keuze 7 ¤ 3,00 |
quote:Op dinsdag 23 februari 2010 20:35 schreef Piles het volgende:
Nieuwe vraag van mij :+
[ code verwijderd ]
Hoe krijg ik nu keuze 1,3,5 en 7 in een nieuw werkblad, in rijen onder elkaar. Zonder lege regels? :)
Office 2007, NL
Oh, en in rij 1-10 en rij 15-20 staat tekst bijvoorbeeld, dus ik wil dan de keuzes tussengevoegd hebben (rij 11-14) :@
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sheet1.Select For i = 1 To 4 Dim locationsheet1, locationsheet2 locationsheet1 = "a" & 1 + ((i - 1) * 2) & ":c" & 1 + ((i - 1) * 2) locationsheet2 = "a" & i & ":c" & i Range(locationsheet1).Select Selection.Copy Sheet2.Select Range(locationsheet2).Select ActiveSheet.Paste Sheet1.Select Next Application.CutCopyMode = False End Sub |
Oh, misschien niet helemaal duidelijk, maar die 1,3,5,7 is toevallig. Het gaat erom dat er een 1 voor staatquote:
ah ok, dat wist ik niet. Ik ga ff kijken.quote:Op dinsdag 23 februari 2010 22:13 schreef Piles het volgende:
[..]
Oh, misschien niet helemaal duidelijk, maar die 1,3,5,7 is toevallig. Het gaat erom dat er een 1 voor staat
Het totaal aantal keuzes is niet bekend, dus er kunnen 50 keuzes zijn, waarbij er maar 3 daadwerkelijk gekozen zijn (met een 1)
En die 3 keuzes wil ik dan allemaal ingevoegd op bijvoorbeeld rij 15, al lukte die aanpassing me wel
Oh, en mochten er nog tips voor boeken over VBA zijn, dan hoor ik dat graag. Ik moet dit echt gaan leren, je kan er veel te veel mee
Tofquote:Op dinsdag 23 februari 2010 22:57 schreef Hi_flyer het volgende:
[..]
ah ok, dat wist ik niet. Ik ga ff kijken.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sheet1.Select maxrowsheet1 = ActiveSheet.UsedRange.Rows.Count For i = 1 To maxrowsheet1 pos1 = "A" & i If Sheet1.Range(pos1).Value = 1 Then selection1 = "A" & i & ":c" & i Range(selection1).Select 'MsgBox selection1 Selection.Copy Sheet2.Select newrowsheet2 = "A" & ActiveSheet.UsedRange.Rows.Count + 1 & ":C" & ActiveSheet.UsedRange.Rows.Count + 1 'MsgBox newrowsheet2 Range(newrowsheet2).Select ActiveSheet.Paste Sheet1.Select Else End If Next End Sub |
Alleen hier snap ik niet wat je precies wilt....quote:Oh, en in rij 1-10 en rij 15-20 staat tekst bijvoorbeeld, dus ik wil dan de keuzes tussengevoegd hebben (rij 11-14)
Held _O_quote:Op dinsdag 23 februari 2010 23:31 schreef Hi_flyer het volgende:
[ code verwijderd ]
This will do the trick *O*
[..]
Alleen hier snap ik niet wat je precies wilt....
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 | Blad2.Select maxrowsheet1 = ActiveSheet.UsedRange.Rows.Count teller = 14 For i = 1 To maxrowsheet1 pos1 = "A" & i If Blad2.Range(pos1).Value = 1 Then teller = teller + 1 selection1 = "A" & i & ":Z" & i Range(selection1).Select 'MsgBox selection1 Selection.Copy Blad3.Select 'newrowsheet2 = "A" & ActiveSheet.UsedRange.Rows.Count + 1 & ":C" & ActiveSheet.UsedRange.Rows.Count + 1 newrowsheet2 = "B" & teller & ":Z" & teller 'MsgBox newrowsheet2 Range(newrowsheet2).Select ActiveCell.Offset(1).EntireRow.Insert Range(newrowsheet2).Select 'ActiveSheet.Paste Blad2.Select Else End If Next End Sub |
Ik maak gebruik van een gegevensvalidatie lijst.quote:Op woensdag 24 februari 2010 10:30 schreef DaFan het volgende:
Wat voor dropdown gebruik je, een combobox van VBA of een Validatie lijst?
VLOOKUP = VERT.ZOEKEN
quote:Op woensdag 24 februari 2010 10:49 schreef DaFan het volgende:
Nou als er in de cel waar je dropdown in staat, staat "Jansen"
En dat staat in cel A1.
De rest van je info staat in C1:E10 (want er zijn 10 namen met 1 kolom voor de naam, 1 kolom voor stratnaam, 1 kolom voor stad)
Dan kan je de straatnaam vinden via:
=VERT.ZOEKEN(A1;C1:E10;2;0)
Dat geeft als resultaat de waarde in kolom D waar in kolom C staat "Jansen".
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |