[EXCEL] Het grote Excel vragen topic, #4

Index

» digital corner

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_56321189
uit het hoofd:
1
2
3
4
5
6
7
8
9
10		sub check_range()

range("C14").select

for i = 1 to 53
if activecell.value<>"" then exit sub
else activecell.offset(1,0).select
next i

end sub
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  zaterdag 26 januari 2008 @ 20:25:13 #103
85514 ralfie
!Yvan eht nioj
pi_56325716
of simpeler:
1
2
3		if Range("C14:C67").SpecialCells(xlCellTypeBlanks).Cells.Count > 0 then
     'doe wat
end if
pi_56332321
quote:
Op zaterdag 26 januari 2008 20:25 schreef ralfie het volgende:
of simpeler:
[ code verwijderd ]
oeh elegant!!!
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56335528
Ik heb een excel bestand gekregen die op een pc met excel 2007 is gemaakt. Nu heb ik alleen XP op de pc en krijg hem dus niet geopent. Hoe kan ik hem zo krijden dat ik hem kan openen?

[ Bericht 4% gewijzigd door stevengerrard op 27-01-2008 11:15:49 ]
Walk on, walk on, with hope in your heart,
And you'll never walk alone...
You'll never walk alone.
pi_56336014
Heb je wel office op je pc of dat ook niet? Zonder office wordt het lastig. In notepad en wordpad zie je iig niets. Heb je al gegoogled op free excel viewer?
De gene van wie je dat bestand hebt gekregen moet hem opslaan in een format dat je wel kan lezen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56340617
quote:
Op zaterdag 26 januari 2008 16:40 schreef Deetch het volgende:
uit het hoofd:
[ code verwijderd ]
Ik denk dat ik jouw code het beste kan gebruiken.
De invoer is namelijk alleen cel C14 en daar vandaan moeten de andere cellen worden gecheckt.

Bedankt iig voor het meedenken!
Met welk programma houd jij je geldzaken bij?
pi_56341951
quote:
Op zondag 27 januari 2008 11:22 schreef Deetch het volgende:
Heb je wel office op je pc of dat ook niet? Zonder office wordt het lastig. In notepad en wordpad zie je iig niets. Heb je al gegoogled op free excel viewer?
De gene van wie je dat bestand hebt gekregen moet hem opslaan in een format dat je wel kan lezen.
ja ik heb office maar gewoon normaal excel. Aangezien het bestand afkomstig is van excel 2007 kan ik hem niet lezne
Walk on, walk on, with hope in your heart,
And you'll never walk alone...
You'll never walk alone.
pi_56343877
quote:
Op zondag 27 januari 2008 15:59 schreef stevengerrard het volgende:

[..]

ja ik heb office maar gewoon normaal excel. Aangezien het bestand afkomstig is van excel 2007 kan ik hem niet lezne
welke versie is "normaal" excel. Degene die je dat bestand heeft gestuurd moet hem opslaan als excel voor oudere versies.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56343895
een beetje googlene wil wel eens helpen:

http://office.microsoft.c(...).aspx#FileConverters
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  † In Memoriam † zondag 27 januari 2008 @ 19:41:00 #111
25682 2cv
Niet subtiel
pi_56346414
Ik wil graag een hele lap text (een routebeschrijving) in 1 cel proppen. Resultaat is dat ik een cel krijg van 3 kilometer breed. Daarom wil ik de text binnen die ene cel boven elkar zetten. Maar hoe doe ik dat ?

Voorbeeld van wat ik nu heb:

Eerste straat links, 350 meter rechtdoor, rechtsaf, bij de stoplichten weer rechtsaf en dan de 3e supermarkt links

Wat ik wil:

Eerste straat links, 350
meter rechtdoor, rechtsaf,
bij de stoplichten weer
rechtsaf en dan de 3e
supermarkt links
Op maandag 14 mei 2012 23:55 schreef Sjoegerd het volgende:
Volgens mij wordt geen enkele auto zo onderhouden en geliefd als de jouwe :)
https://www.facebook.com/groups/linkshandigen/
  zondag 27 januari 2008 @ 20:14:56 #112
28946 mirelia
Neehee ik ben geen vrouw!!
pi_56347143
quote:
Op zondag 27 januari 2008 19:41 schreef 2cv het volgende:
Ik wil graag een hele lap text (een routebeschrijving) in 1 cel proppen. Resultaat is dat ik een cel krijg van 3 kilometer breed. Daarom wil ik de text binnen die ene cel boven elkar zetten. Maar hoe doe ik dat ?

Voorbeeld van wat ik nu heb:

Eerste straat links, 350 meter rechtdoor, rechtsaf, bij de stoplichten weer rechtsaf en dan de 3e supermarkt links

Wat ik wil:

Eerste straat links, 350
meter rechtdoor, rechtsaf,
bij de stoplichten weer
rechtsaf en dan de 3e
supermarkt links
Alt-enter na elke regel?
Of bedoel je dat niet?
Shuffle up and deal!!!
  zondag 27 januari 2008 @ 20:17:19 #113
80690 hooibaal
Be prepared.
pi_56347196
Celeigenschappen, Uitlijning, Terugloop.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
  † In Memoriam † zondag 27 januari 2008 @ 20:57:57 #114
25682 2cv
Niet subtiel
pi_56348147
quote:
Op zondag 27 januari 2008 20:14 schreef mirelia het volgende:

[..]

Alt-enter na elke regel?
Of bedoel je dat niet?
Nope, ik bedoel meer dat excel de cel zelf mooi verdeeld vult.
quote:
Op zondag 27 januari 2008 20:17 schreef hooibaal het volgende:
Celeigenschappen, Uitlijning, Terugloop.
Dat werkt zoals ik wil, top, bedankt !

(ja, ik ben een Excel n00b)
Op maandag 14 mei 2012 23:55 schreef Sjoegerd het volgende:
Volgens mij wordt geen enkele auto zo onderhouden en geliefd als de jouwe :)
https://www.facebook.com/groups/linkshandigen/
pi_56359950
Ik zit met een klein probleempje, wellicht dat iemand hier de oplossing weet. Heb de voorgaande thread een beetje doorgestruind maar kon dit niet terug vinden.

Tabel als volgt:


De getallen in regel 4 zijn de verplichte lengtes van de velden.

Wat ik zoek is een manier waarop ik in de totaal cell de waardes opgevuld krijg, met spaties, tot de verplichte lengtes van de velden.

Resultaat wat in F6 moet staan zou dan zijn
1"01-01-195001-01-205099xx99xx99xx99          Stukje tekst hier                                 "


Ik hoop dat iemand mij hiermee kan helpen.
Alvast bedankt voor het lezen.
  maandag 28 januari 2008 @ 13:04:53 #116
15967 Frollo
You know I am a righteous man
pi_56360386
=TEKST(A6;"dd-mm-jjjj")&TEKST(B6;"dd-mm-jjjj")&C6&HERHALING(" ";C4-LENGTE(C6))&D6&HERHALING(" ";D4-LENGTE(D6))
pi_56360557
Geweldig bedankt!
  maandag 28 januari 2008 @ 13:15:10 #118
15967 Frollo
You know I am a righteous man
pi_56360634
Graag gedaan.

Je krijgt trouwens een foutmelding als 'Stukje tekst hier' langer is dan 50 tekens. Wil je dat nog opgelost zien, of komt het toch nooit voor?
pi_56360803
Dat zal nooit voorkomen.

Toch bedankt voor het meedenken :-)
  maandag 28 januari 2008 @ 13:25:18 #120
15967 Frollo
You know I am a righteous man
pi_56360832
OK dan.
  maandag 28 januari 2008 @ 13:45:08 #121
82396 nils7
De forumkrokodil
pi_56361274
Ah nu dit topic toch in myAT boven aan stond.

Ik heb een excel file welke gedeeld is. Echter de afgelopen 4 weken is het twee keer voorgekomen dat er op een gegeven moment 1 iemand is waarbij het bestand niet meer gedeeld is waardoor niet meer kan opslaan. En het bestand, na het sluiten bij alle gebruikers (op dat moment), niet meer benaderbaar is.

Toevallig is het vandaag weer gebeurt, we werken per jaar dus we hadden net een "nieuw/leeg" bestand dus veel data is er niet verloren en de eerste keer dat het gebeurde heb ik het opgelost om een lege versie opnieuw te laten gebruiken.

Iemand enig idee waar dit aan kan liggen. Wel is er een save bestand van afgelopen donderdag (welke nog steeds in de map staat waar het bestand ook in staat).

Ik heb ze nu weer een lege file gegeven en heb deze wat aangepast (gereduceerd van 53MB naar 42MB).

Iemand enig idee waar het aan kan liggen?
Zelf denk ik dat het ligt aan het feit dat de gebruikers te ongeduldig raken met opstarten/afsluiten (dat duurt nu eenmaal eventjes) en daardoor maar ergens gaan klikken.... waardoor die niet goed loopt en ze m maar geforceerd afsluiten ofzo.

[ Bericht 0% gewijzigd door nils7 op 28-01-2008 15:11:03 ]
N/A
Disclaimer: ik ben geen expert maar shitposter, dit is geen advies en aan deze post zijn geen rechten te ontlenen
pi_56362260
Krijg je bij het openen van een gedeeld bestand niet de mogelijkheid om deze als stand alone te openen?
Dan kan het dus gebeuren dat ze een read-only of kopie versie voor hun neus krijgen en deze dan weer over het origineel heen opslaan zodat het eens gedeelde bestand nu alleen door degene die hem heeft ge-"save-as"d kan worden geopend.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  maandag 28 januari 2008 @ 15:10:20 #123
82396 nils7
De forumkrokodil
pi_56362975
quote:
Op maandag 28 januari 2008 14:35 schreef Deetch het volgende:
Krijg je bij het openen van een gedeeld bestand niet de mogelijkheid om deze als stand alone te openen?
Dan kan het dus gebeuren dat ze een read-only of kopie versie voor hun neus krijgen en deze dan weer over het origineel heen opslaan zodat het eens gedeelde bestand nu alleen door degene die hem heeft ge-"save-as"d kan worden geopend.
Nee wel krijg ik de melding dat iemand af en toe de file heeft beveiligd (heb dan wel de mogelijkheid om m lokaal te saven, het staat op een server). Maar dan vraag ik meestal diegene om hem de file opnieuw op te laten starten en dan is het wel goed. Alleen nu krijg ik geen melding maar krijg ik opeens van bepaalde gebruikers te horen (die m later opstarten) dat ze er niet in kunnen en ga ik kijken en dan is er eentje niet gedeeld. (van de 3 gebruikers op dat moment bijvoorbeeld).
Alle 3 kunnen ze dan opeens ook niet meer opslaan, ook niet lokaal/ander bestand.
Als we dan het bestand sluiten kunnen we er helemaal niet meer in!
N/A
Disclaimer: ik ben geen expert maar shitposter, dit is geen advies en aan deze post zijn geen rechten te ontlenen
pi_56363126
er is niet iemand die hem lokaal opend en dat over de gedeelde sheet heen opslaat?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  maandag 28 januari 2008 @ 15:48:03 #125
82396 nils7
De forumkrokodil
pi_56363664
quote:
Op maandag 28 januari 2008 15:18 schreef Deetch het volgende:
er is niet iemand die hem lokaal opend en dat over de gedeelde sheet heen opslaat?
Zou goed kunnen, maar de gebruikers zijn niet echt behulpzaam... als ze zeggen dat ze niks hebben gedaan dan hebben ze overal op lopen rammen.
Laat staan dat ze zeggen wie,wat,hoe,waar (terwijl dat ik ze echt wel gezegd heb dat als ze iets vreemds tegen komen dat ze dat dan moeten melden maar jah...)
Als ze een ja of neej melding krijgen klikken ze ook standaard op ja enzo!

Ik ga ze maar eens opnieuw instrueren.

Ik kan ze helaas niet elke minuut volgen en woensdag stop ik bij dit bedrijf dus dan moet het werken!
N/A
Disclaimer: ik ben geen expert maar shitposter, dit is geen advies en aan deze post zijn geen rechten te ontlenen
pi_56365577
quote:
Op maandag 28 januari 2008 15:48 schreef nils7 het volgende:

[..]

Zou goed kunnen, maar de gebruikers zijn niet echt behulpzaam... als ze zeggen dat ze niks hebben gedaan dan hebben ze overal op lopen rammen.
Laat staan dat ze zeggen wie,wat,hoe,waar (terwijl dat ik ze echt wel gezegd heb dat als ze iets vreemds tegen komen dat ze dat dan moeten melden maar jah...)
Als ze een ja of neej melding krijgen klikken ze ook standaard op ja enzo!

Ik ga ze maar eens opnieuw instrueren.

Ik kan ze helaas niet elke minuut volgen en woensdag stop ik bij dit bedrijf dus dan moet het werken!
het werkt toch ook, alleen moeten de gebruikers zich wel aan de spelregels houden.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56368061
quote:
Op zaterdag 26 januari 2008 16:40 schreef Deetch het volgende:
uit het hoofd:
[ code verwijderd ]
Oké Deetch, ik ben er vandaag mee bezig geweest, maar het wil nog niet vorderen.
Nogmaals het principe simpel uitgelegd.
Er dient een kolom met gegevens (kolom A) gekopieerd te worden naar een andere kolom (kolom B).
Nu moeten de doelcellen waarin de gegevens worden geplakt (kolom B) gecheckt worden of deze cellen leeg zijn.
Als de cellen niet leeg zijn, dan komt er een msgbox met de melding dat de cellen geleegd moeten worden. Zijn de cellen wel leeg, dan mogen ze geplakt worden.

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		Sub Macro2()

Dim X As Variant

Dim FF, FG, M1F, M1G, M2F, M2G, M3F, M3G

If _
    Worksheets("Invoersheet").Range("J9") = "FG" _
    Then
    X = "F16"
    
    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M1G" _
    Then
    X = "J16"
    
    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M2G" _
    Then
    X = "N16"
    
    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M3G" _
    Then
    X = "R16"
    
    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M1F" Or Worksheets("Invoersheet").Range("J9") = "M2F" Or Worksheets("Invoersheet").Range("J9") = "M3F" _
    Then
    MsgBox "Je hebt de keuze gemaakt voor kolom " + Worksheets("Invoersheet").Range("J9") + "." + (Chr(13)) + "Dit is een kolom met fabriekswaarden. Vul deze kolom in op de volgende sheet.", vbOKOnly + vbInformation
    End

    Else
    MsgBox "Er is geen of een onvolledige kolom keuze gemaakt." + (Chr(13)) + "Doe dit door in Cel J9 de juiste kolomkeuze te maken." + (Chr(13)) + "Let op hoofdletters!!", vbOKOnly + vbInformation
    End
    End If

--------------------------------------

Worksheets("Invoersheet").Range("F22:F75").Copy _

Worksheets("Invoer").Range(X).PasteSpecial Paste:=xlPasteValues _

Application.CutCopyMode = False


Nu dient er op de locatie van de stippelijn, een check uitgevoerd te worden . X op dat moment al gedefineerd.
X = dan bijvoorbeeld F16.
Vervolgens moeten de cellen F16:F69 gecheckt te worden. De variabele is X en die is dus F16.
Aan de hand van F16 moet er dus 53 cellen omlaag gekeken worden.
Duidelijk?
Met welk programma houd jij je geldzaken bij?
  maandag 28 januari 2008 @ 23:08:48 #128
85514 ralfie
!Yvan eht nioj
pi_56373990
1
2
3
4
5
6
7		dim  range as string
range=X & ":" & left(X,1) & "69"
if Range(range).SpecialCells(xlCellTypeBlanks).Cells.Count = Range(range).Cells.Count then
   copy blabla
else
   dont copy
end if
pi_56426134
quote:
Op maandag 28 januari 2008 23:08 schreef ralfie het volgende:

[ code verwijderd ]
Deze code werkt zo goed als prima.
Er is één probleem:
Op het moment dat er geen enkele cel leeg is, dan werkt de sheet niet en komt er een foutmelding. (Fout 1004: door de toepassing of object gedefineerde fout).
Heb je nog enig idee wat dit kan zijn?
Met welk programma houd jij je geldzaken bij?
pi_56433139
De functie die je gebruikt geeft dan #N/A als uitvoer wat in vb weer wordt vertaald in een error bericht waardoor de macro stopt.
ik ben niet zo goed met error handling, misschien dat iemand anders je verder kan helpen?

Ralfie, frollo help!!!1
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56433489
Je kan ook in VB dit gewoon afvangen met If IsError(verhaal).
  maandag 4 februari 2008 @ 11:31:06 #132
61284 Folkwin
Muisje op het kruisje!
pi_56522656
Hoi,

Ik heb onderstaande code gevonden voor code gevonden om meer dan 3 voorwaardelijke opmaken aan te maken. Dit werkt prima, alleen zou ik dit toch op een andere manier toe willen passen.

Allereerst wil ik deze opmaak maar in een bepaald cellenbereik (de gehele "K" en "N" kolom) toepassen.
Daarnaast moeten dezelfde klassen ook in de "-" (min) vorm toegepast worden maar lijkt dat niet te lukken.
De klassenverdeling zou dan als volgt moeten zijn:
0
1-4
5-9
10-19
20-49
50-99
100+
en
-1 - -4
-5 - -9
enz.

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		Option Compare Text 'A=a, B=b, ... Z=z
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Cell As Range
Dim Rng1 As Range
     
    On Error Resume Next
    Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
    On Error GoTo 0
    If Rng1 Is Nothing Then
        Set Rng1 = Range(Target.Address)
        Else
        Set Rng1 = Union(Range(Target.Address), Rng1)
    End If
    For Each Cell In Rng1
        Select Case Cell.Value
            Case vbNullString
                Cell.Interior.ColorIndex = xlNone
                Cell.Font.Bold = False
            Case 0
                Cell.Interior.ColorIndex = 3
                Cell.Font.Bold = True
            Case 1 To 4
                Cell.Interior.ColorIndex = 4
                Cell.Font.Bold = True
            Case 5 To 9
                Cell.Interior.ColorIndex = 5
                Cell.Font.Bold = True
            Case 10 To 19
                Cell.Interior.ColorIndex = 6
                Cell.Font.Bold = True
            Case 20 To 49
                Cell.Interior.ColorIndex = 7
                Cell.Font.Bold = True
            Case 50 To 99
                Cell.Interior.ColorIndex = 8
                Cell.Font.Bold = True
            Case 100 To 1E+17
                Cell.Interior.ColorIndex = 9
                Cell.Font.Bold = True
            Case Else
                Cell.Interior.ColorIndex = xlNone
                Cell.Font.Bold = False
        End Select
    Next
 
End Sub


En is er ook een kleurenschema bekend met alle kleuren met bij behorende nummers?

Alvast bedankt!
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_56523098
quote:
Op maandag 4 februari 2008 11:31 schreef Folkwin het volgende:

Allereerst wil ik deze opmaak maar in een bepaald cellenbereik (de gehele "K" en "N" kolom) toepassen.
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.
Beter is het om het nog eerder op te vangen. Hoe minder acties er uitgevoerd worden hoe beter de performance.
quote:
Daarnaast moeten dezelfde klassen ook in de "-" (min) vorm toegepast worden maar lijkt dat niet te lukken.
Voeg "Case -4 To -1" toe voor een negatieve waarde.
Doe dit wel voor de Case Else, anders krijg je errors.
quote:
En is er ook een kleurenschema bekend met alle kleuren met bij behorende nummers?
http://www.mvps.org/dmcritchie/excel/colors.htm
Sport is de belangrijkste bijzaak in het leven.
  maandag 4 februari 2008 @ 12:18:37 #134
61284 Folkwin
Muisje op het kruisje!
pi_56523553
quote:
[..]
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.
Beter is het om het nog eerder op te vangen. Hoe minder acties er uitgevoerd worden hoe beter de performance.
-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoTo

Ziet er nu als volgt uit:
1
2
3		    For Each Cell In Rng1
    If Cell.Column = 11 or Cell.Column = 14
        Select Case Cell.Value
quote:
[..]
Voeg "Case -4 To -1" toe voor een negatieve waarde.
Doe dit wel voor de Case Else, anders krijg je errors.
- Ik had het verkeerd omgedaan.. stomstom. Gelukt!
quote:
[..]
Link
-Mijn dank is groot!

[ Bericht 14% gewijzigd door Folkwin op 04-02-2008 13:30:50 ]
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
  woensdag 6 februari 2008 @ 10:56:20 #135
61284 Folkwin
Muisje op het kruisje!
pi_56557358
Niemand die mij met deze kan helpen:
quote:
[..]
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.
Beter is het om het nog eerder op te vangen. Hoe minder acties er uitgevoerd worden hoe beter de performance.
-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoTo

Ziet er nu als volgt uit:
1
2
3		    For Each Cell In Rng1
    If Cell.Column = 11 or Cell.Column = 14
        Select Case Cell.Value
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_56557532
quote:
Op woensdag 6 februari 2008 10:56 schreef Folkwin het volgende:
Niemand die mij met deze kan helpen:
[..]

-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoTo

Ziet er nu als volgt uit:
[ code verwijderd ]
Je moet "Then " aan het einde van de regel met het if-statement zetten.

1
2
3		For Each Cell In Rng1
    If Cell.Column = 11 or Cell.Column = 14 Then
        Select Case Cell.Value
Sport is de belangrijkste bijzaak in het leven.
pi_56558492
Weet iemand waar ik de macro's kan aanzetten bij Excel 2007? Ik zoek me rot.
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
  woensdag 6 februari 2008 @ 12:18:38 #138
15967 Frollo
You know I am a righteous man
pi_56559039
quote:
Op woensdag 6 februari 2008 11:49 schreef RayMania het volgende:
Weet iemand waar ik de macro's kan aanzetten bij Excel 2007? Ik zoek me rot.
Office-knop > Opties voor Excel > Vertrouwenscentrum

Lekker handig gedaan weer van MS.
  woensdag 6 februari 2008 @ 15:07:09 #139
61284 Folkwin
Muisje op het kruisje!
pi_56562292
Nevermind: al opgelost .

Bedankt allemaal!
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_56565442
quote:
Op maandag 28 januari 2008 23:08 schreef ralfie het volgende:

[ code verwijderd ]
De code werkt grotendeels prima!
Er is alleen nog een probleempje:
Op het moment dat er een kolom wordt gebruikt die wordt aangeduidt met 2 letters, dan loopt de macro niet meer naar behoren. Hij kiest dan alleen de eerste letter.
Is hiervoor nog een oplossing?
Dat alle letters worden geselecteerd of iets dergelijks?
Met welk programma houd jij je geldzaken bij?
pi_56567744
dat heeft te maken met de tweede regel van de code van ralfie omdat hij daar van je variabele X (de celverwijzing) alleen de meest linkse character pakt ( left(X,1) )
Je zou dus eerst de hele variable X character voor character moeten anlyseren en dan de letters in een aparte variabele (Xletters) opslaan. DE code van regel 2 wordt dan
1range=X & ":" & Xletters & "69"


conceptje voor letters eruit filteren
1
2
3
4
5
6
7
8
9
10
11
12		Dim strChar,strNumber As String
Dim n As Integer=myString.Length
For i as integer=0 to n-1
      dim str as string=myString.Substring(i,i+1)
      If IsNumeric(str) then
      strNumber+=str
      else
      strChar+=str
      End if
      Next

Xletters = strChar
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 7 februari 2008 @ 11:07:05 #142
137408 DjowY
Ijskoud de langste
pi_56578384
Hoi wijze Excel- beheersers,

Klein vraagje, hoop dat iemand de oplossing weet.

Ik heb voor een hele Kolom een aantal keuze mogelijkheden per cel t.w.:

Registratie
Verhuizing
Registratie + Verhuizing

Dit heb ik d.m.v. gegevensvalidatie in een dropdown menu laten opkomen. Bij alle 3 de verschillende waarden hoort natuurlijk een ander tarief. Ik wil in een redelijk kleine cel daarnaast het tarief laten verschijnen, afhankelijk welke optie de invuller selecteert.

Nu heb ik dit met ALS functie gedaan, maar dan kan ik dus maar 2 van de 3 meepakken (=ALS(G5="Registratie";15;0). Die 0 op het laatst is logisch, want je hebt nog 2 opties over die ook gekozen kunnen worden.

Mijn vraag is dus: hoe kan ik de cel zo instellen dat hij aan de 3(!) opties 3 verschillende tarieven kan genereren? Of: hoe kan ik een ALS functie instellen zonder "waar of niet waar" maar met 3 verschillende criteria!

Mijn dank is alvast groot!
Nobody fucks with Frank de Grave!!
pi_56578494
Dit kan toch gewoon:

(=ALS(G5="Registratie";15;ALS(G5="Verhuizing";tarief;ALS(G5="Registratie + Verhuizing";tarief;0)))
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
  donderdag 7 februari 2008 @ 11:14:01 #144
15967 Frollo
You know I am a righteous man
pi_56578533
Ten eerste kun je ALS-functies nesten:

=ALS(Voorwaarde1;Tarief1;ALS(Voorwaarde2;Tarief2;0))

Ten tweede zou je in de help eens moeten kijken hoe VERT.ZOEKEN werkt, ik denk dat je daar ook wel iets aan kunt hebben.
pi_56578564
VERT.ZOEKEN werkt niet in een dropdown (combobox).
  donderdag 7 februari 2008 @ 11:18:25 #146
15967 Frollo
You know I am a righteous man
pi_56578627
quote:
Op donderdag 7 februari 2008 11:15 schreef DaFan het volgende:
VERT.ZOEKEN werkt niet in een dropdown (combobox).
Oh, dat zou kunnen, ik doe zelden iets met comboboxen.

En sinds ik Excel 2007 heb kan ik ook niet meer controleren wat ik hier allemaal neerzet.
  donderdag 7 februari 2008 @ 11:38:39 #147
137408 DjowY
Ijskoud de langste
pi_56579065
Bedankt heren, probleem opgeost!
Nobody fucks with Frank de Grave!!
  donderdag 7 februari 2008 @ 14:50:23 #148
12820 Doodkapje
CyanideCookies
pi_56583075
[stress-paniekmodus]

Op dit moment ben ik bezig met het samenstellen van mijn scriptie en wil ik bijlages een paginanummer geven. Aangezien dit bijlages zijn moeten deze dus doorgenummerd worden vanaf het aantal pagina's na een Word document. Ik ga ze apart uitprinten en dan samen in laten binden.

Ik heb 4 excel files met elk 40 werkbladen die tezamen een bijlage van 160 pagina's moeten vormen. Ik wil dus de paginanummering laten beginnen met "x" en eindigen met "x+160"

Ik had 2 ideeën waarmee ik dit kan oplossen, maar het lukt mij niet om het goed te krijgen:

1) Een koptekst maken met paginanummering en dan de nummering vanaf een bepaald nummer laten starten. Deze functie is goed te vinden in Word, maar niet in Excel.

2) De sheets importeren in een Word bestand en vervolgens de koptekst laten nummeren zoals ik dat gewend ben. Helaas krijg ik telkens alleen het eerste werkblad geïmporteerd in Word en komen de andere 39 niet mee.

Samenvattend: Kunnen jullie aangeven hoe ik in Excel zelf de paginanummering kan aanpassen óf hoe kan ik alle werkbladen uit 1 Excel file in één keer in een Word bestand importeren.

Ik gebruik MSO 2007 (Studenten editie) en de taal is Nederlands.

Thanks!

[/stress-paniekmodus]
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 14:58:36 #149
15967 Frollo
You know I am a righteous man
pi_56583251
Met de hand erop schrijven.

Whehe, ik ga even zoeken, brb.
  donderdag 7 februari 2008 @ 15:01:20 #150
12820 Doodkapje
CyanideCookies
pi_56583305
quote:
Op donderdag 7 februari 2008 14:58 schreef Frollo het volgende:
Met de hand erop schrijven.

Whehe, ik ga even zoeken, brb.
Thanks! Ik zat ook te denken aan VB-codes, maar daar weet ik echt geen snars van af...

EDIT: Wheehee... je bent in het Valkhof getrouwd!? Mooi man!
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 15:04:55 #151
15967 Frollo
You know I am a righteous man
pi_56583347
Goed nieuws, in Office 2002 (XP) kan het in elk geval: Bestand > Pagina-instelling > tabblad Pagina

  donderdag 7 februari 2008 @ 15:14:39 #152
12820 Doodkapje
CyanideCookies
pi_56583541
quote:
Op donderdag 7 februari 2008 15:04 schreef Frollo het volgende:
Goed nieuws, in Office 2002 (XP) kan het in elk geval: Bestand > Pagina-instelling > tabblad Pagina

[ afbeelding ]
Mijn dank is groot voor de moeite! Ik zoek ff waar ik dit kan vinden in de 2007 editie (=graf-versie )
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 15:15:12 #153
15967 Frollo
You know I am a righteous man
pi_56583548
En in Excel 2007 gaat het zo:

  donderdag 7 februari 2008 @ 15:18:11 #154
15967 Frollo
You know I am a righteous man
pi_56583611
Office 2007 is idd 13.gif.
Waarom ze zulke belangrijke functies onder zo'n piepklein knopje moesten stoppen is me werkelijk een raadsel.

Yep, we zijn in de Valkhofkapel getrouwd. Echt keigaaf was het, heel sfeervol!
  donderdag 7 februari 2008 @ 15:20:03 #155
12820 Doodkapje
CyanideCookies
pi_56583652
quote:
Op donderdag 7 februari 2008 15:15 schreef Frollo het volgende:
En in Excel 2007 gaat het zo:

[ afbeelding ]
AAAARGH!!! Is het zo simpel!? KILL KILL...

Leuk en aardig dat visuele... maar het is niet echt toegankelijk zo Heel erg bedankt!
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 15:28:35 #156
15967 Frollo
You know I am a righteous man
pi_56583816
Mooi zo, succes met je scriptie en vergeet niet af en toe te relaxen!
  donderdag 7 februari 2008 @ 16:03:18 #157
12820 Doodkapje
CyanideCookies
pi_56584414
quote:
Op donderdag 7 februari 2008 15:28 schreef Frollo het volgende:
Mooi zo, succes met je scriptie en vergeet niet af en toe te relaxen!
Whehehe... Excel trapt er niet in... nu krijg ik op elk werkblad dezelfde aangegeven begin paginanummer
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 16:10:02 #158
15967 Frollo
You know I am a righteous man
pi_56584546
Huh?

Bij mij gaat het goed hoor. Ik maak een kop (of voet-) tekst en daar zet ik het paginanummer in middels het knopje (wat resulteert in &[Pagina]), en dan stel ik in bij welk nummer hij moet beginnen. Kan niet fout gaan.
  donderdag 7 februari 2008 @ 16:19:18 #159
12820 Doodkapje
CyanideCookies
pi_56584699
quote:
Op donderdag 7 februari 2008 16:10 schreef Frollo het volgende:
Huh?

Bij mij gaat het goed hoor. Ik maak een kop (of voet-) tekst en daar zet ik het paginanummer in middels het knopje (wat resulteert in &[Pagina]), en dan stel ik in bij welk nummer hij moet beginnen. Kan niet fout gaan.
Ja dat heb ik ook gedaan... wat Excel dan doet is , volgens mij, de pagina's doornummeren als de sheet niet op 1 pagina past... het is niet zo dat als je de werkbladen afdrukt hij elk werkblad als een nieuwe pagina ziet. Ik heb even een voorbeeld-file gemaakt. Bij mij staat er op elke sheet gewoon "60 van 260"

Als dit niet lukt dan probeer ik het wel als volgt... ik verschuif de bovenste marge naar boven en maak met de gewone cellen wel een formule dat elke sheet dezelfde cel in de vorige sheet pakt en dan 1'tje erbij optelt...
gedoe ook
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 16:44:51 #160
15967 Frollo
You know I am a righteous man
pi_56585143
Ahhh fuck, dat is inderdaad wel een probleem ja.

Ik heb de opties helemaal nageplozen maar dit is volgens mij niet te verhelpen.
  donderdag 7 februari 2008 @ 17:04:04 #161
28946 mirelia
Neehee ik ben geen vrouw!!
pi_56585490
Als ik in een cel bijv. een naam invul en dan een opmerking invoeg met een e-mailadres en daarna de cel weer leegmaak dan blijft de opmerking staan.
Is het mogelijk deze dan ook automatisch te verwijderen?
Shuffle up and deal!!!
  donderdag 7 februari 2008 @ 17:04:43 #162
12820 Doodkapje
CyanideCookies
pi_56585503
quote:
Op donderdag 7 februari 2008 16:44 schreef Frollo het volgende:
Ahhh fuck, dat is inderdaad wel een probleem ja.

Ik heb de opties helemaal nageplozen maar dit is volgens mij niet te verhelpen.
Hehe... ik heb de hoop opgegeven... ik kan ook niet een relatieve verwijzing doen naar andere werkbladen, waardoor ik telkens naar dezelfde werkblad verwijs met als resultaat: ...hetzelfde paginanummer
Ik heb al een koptekst gemaakt... zodra ik de pagina's weet ga ik ze gewoon 160 keer nummeren... dat is uiteindelijk misschien maar een kwartiertje werk. Ik ben nu al twee uur aan het uitzoeken hoe het werkt en ga er niet nog twee uur aan zitten... MS bedankt! of het ligt gewoon aan mijzelf...

Thanks anyway Frollo!
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  donderdag 7 februari 2008 @ 17:08:05 #163
15967 Frollo
You know I am a righteous man
pi_56585567
Mja, dan toch maar met de hand inderdaad.

Succes met je scriptie iig.
  donderdag 7 februari 2008 @ 17:23:06 #164
12820 Doodkapje
CyanideCookies
pi_56585829
quote:
Op donderdag 7 februari 2008 17:08 schreef Frollo het volgende:
Mja, dan toch maar met de hand inderdaad.

Succes met je scriptie iig.
Tnx
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
pi_56649003
Zijn 160 paginas bijlagen ook niet een beetje veel van het goede?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  maandag 11 februari 2008 @ 11:50:57 #166
61284 Folkwin
Muisje op het kruisje!
pi_56662356
Daar ben ik weer..

Het Visual Basic-script waar ik eerder vragen over heb gesteld voldoet niet. Er moet een iets andere opzet komen.
Het volgende probleem doet zich voor.
Er is een kolom met verschillende artikelnummers. Al deze artikelnummers (afgeleid van eerste twee cijfers) behoren tot een categorie.
10338001 - 10 - Categorie 1
13172362 - 13 - Categorie 2
16602513 - 16 - Categorie 2

Nu moeten deze categorien beide een voorwaardelijke opmaak krijgen. Wanneer categorie 1 een procentuele afwijking heeft van -100 t/m -2 dan moet deze blauw worden. Wanneer deze afwijking -1 t/m 1 bedraagt gewoon wit en bij een afwijking van 2-100 moet dit rood zijn.
Ditzelfde geldt voor Categorie 2, alleen deze is van -3 t/m -100 en zo verder.

Nu was ik al bezig met de functie: ' =als(links(cel,2)=10,1,2' in een tweede cel om de verschillende artikelcodes een categorie mee te geven. Nu geeft Excel alleen altijd een 2 doordat de functie geen getal is maar een tekst. Nu pikt Excel het niet als ik dit met de hand aanpas naar getal.

Mijn opzet is dan om bij de voorwaardelijke opmaak een formule in te voeren die de opmaak toepast als aan alle bovenstaande voorwaarden wordt voldaan, in samenwerking met de tabel waar de categorie in voorkomt.

Heeft iemand de oplossing om de uitkomst van de formule als getal te laten worden.. of heeft iemand zo'n formule waardoor dit niet meer nodig is.

Mocht een voorbeeldje nodig zijn, dan hoor ik dit graag!

Alvast bedankt voor de hulp!
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_56662858
quote:
Op woensdag 6 februari 2008 19:56 schreef Deetch het volgende:
dat heeft te maken met de tweede regel van de code van ralfie omdat hij daar van je variabele X (de celverwijzing) alleen de meest linkse character pakt ( left(X,1) )
Je zou dus eerst de hele variable X character voor character moeten anlyseren en dan de letters in een aparte variabele (Xletters) opslaan. DE code van regel 2 wordt dan
[ code verwijderd ]

conceptje voor letters eruit filteren
[ code verwijderd ]
Ik krijg het toch niet voor elkaar om met behulp van je conceptje de letters eruit te filteren. Zou je nog iets kunnen helpen?
Met welk programma houd jij je geldzaken bij?
  maandag 11 februari 2008 @ 12:51:35 #168
12820 Doodkapje
CyanideCookies
pi_56663534
quote:
Op zondag 10 februari 2008 18:56 schreef Deetch het volgende:
Zijn 160 paginas bijlagen ook niet een beetje veel van het goede?
Nee... een vorige student had 700 pagina's... statistiek uitdraaien en individuele data van experimenten die erbij moeten... ben nogal mild met mijn 160 pagina's.
...kan het geen beat schelen...
D700 Nikonian www.schiet7kleuren.nl
  maandag 11 februari 2008 @ 13:13:35 #169
85514 ralfie
!Yvan eht nioj
pi_56663968
quote:
Op maandag 11 februari 2008 12:15 schreef its_me_ het volgende:

[..]

Ik krijg het toch niet voor elkaar om met behulp van je conceptje de letters eruit te filteren. Zou je nog iets kunnen helpen?
alternatief is iets als

1range=X & ":" & range(X).offset(53).Address
pi_56665008
quote:
Op maandag 11 februari 2008 11:50 schreef Folkwin het volgende:
Er is een kolom met verschillende artikelnummers. Al deze artikelnummers (afgeleid van eerste twee cijfers) behoren tot een categorie.
10338001 - 10 - Categorie 1
13172362 - 13 - Categorie 2
16602513 - 16 - Categorie 2

Nu moeten deze categorien beide een voorwaardelijke opmaak krijgen. Wanneer categorie 1 een procentuele afwijking heeft van -100 t/m -2 dan moet deze blauw worden. Wanneer deze afwijking -1 t/m 1 bedraagt gewoon wit en bij een afwijking van 2-100 moet dit rood zijn.
Ditzelfde geldt voor Categorie 2, alleen deze is van -3 t/m -100 en zo verder.
Is de artikelcode als tekst of getal ingevoerd? Indien als getal en altijd 8 cijfers lang en de eerste twee zijn altijd de categorie dan

1=trunc(celverwijzing/100000) gebruiken voor de categorie bepaling


en dan de grenzen voor de conditional formatting in extra kolommen plaatsen met een aanatal IF functies.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56721257
Ik heb een button gemaakt die wanneer je erop klikt in de cel ernaast de datum plaatst. Nu wil ik graag hele rijen kunnen kopiëren, waarmee de button wordt mee gekopiëerd. En daarmee dus de opdracht.

Weet iemand hoe ik dat kan doen?

Als je formules naar een cel lager kopiëert wordt automatisch de formule aangepast, maar bij buttons niet, toch?
Dixidito Online - inclusief mijn weblog
pi_56721422
Kan niet, want buttons zijn niet gebonden aan een rij en voeren de opdracht uit die eraan hoort, ongeacht op welke plek ze staan. Je kan dus geen relatieve verwijzing in je code gebruiken (zoals Offset(0,1) bijvoorbeeld) om een cel ten opzichte van de button aan te geven.

Als je 20 buttons maakt, moet je ook 20 (bijna identieke) codes maken.
pi_56724148
je zou wel een kolom kunnen maken waarin je een X zet en dan 1 knop die in alle rijen waar een X staat je gewenste code uitvoert.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  donderdag 14 februari 2008 @ 19:35:31 #174
85514 ralfie
!Yvan eht nioj
pi_56733556
of een soort van onclick/contextmenu/dubbelklik event gebruiken om de datum te plaatsen

Of, en dat is het simpelste, een sneltoets naar een macro die de datum in de actieve cell plaats, iets all

1
2
3		sub datumplaatser
     activecell.value=now()
end sub

en dan middels extra->macro's een sneltoets (bijv ctr+d) toewijzen
pi_56741351
in plaats van now() kun je ook DATE gebruiken.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_56878720
quote:
Op donderdag 21 februari 2008 09:12 schreef Piles het volgende:
Heb ik ook nog een andere vraag: Ik verwijs dus van het ene naar het andere blad, maar als de broncel leeg is, krijg ik in de doelcel een 0, en dat wil ik niet. Kan dit wel oplossen met ALS(), maar dat kan toch ook wel anders?
quote:
Op donderdag 21 februari 2008 09:36 schreef DroogDok het volgende:
Het weergeven van de getallen ) kan je uitzetten, maar dan zie je geen enkele waarde 0 meer, weet niet of dat is wat je wilt?
Via Extra -> Opties -> Weergave -> Nulwaarden (onderaan in het midden van het tabblad.)
Nee, niet echt wat ik zoek denk ik. Wat in de broncel staat moet gewoon exact overgenomen worden, ook als het een nul is. En als ie leeg is, moet de doelcel ook leeg blijven

[Edit] Toch maar via Opties gedaan, werkte uiteindelijk toch op de manier zoals ik wilde

[ Bericht 6% gewijzigd door Piles op 21-02-2008 12:21:41 ]
pi_56879117
Ik heb ook een vraagje. Wanneer ik de layout van een draaitabel met de opmaakt enz kopieer dan krijg je dat sommige getallen als tekst worden opgeslagen. Via deze getallen zoek ik via verticaal zoeken het goede onderwerp erbij. Maar dat lukt dus niet als ze opgeslagen zijn als tekst.

Als ik het getal overtyp, of via het groene stukje aan de linkerbovenhoek de tekst converteer naar getal kan ik er wel verticaal mee zoeken. Maar dat moet ik dan per cijfertje doen. Is er geen optie om dat over een geselecteerd stuk te doen??
  Moderator donderdag 21 februari 2008 @ 22:01:28 #178
9859 crew  Karina
Woman
pi_56894328
Vraag over kleuren "tellen".

Ik heb een excelsheet met twee kolommen. In de eerste kolom staat tekst, in de tweede kolom maak ik de cel rood, indien fout of groen, indien goed. Is het mogelijk om het aantal cellen te tellen dat rood is en het aantal cellen dat groen is?

Ik kan natuurlijk gaan werken met 0 en 1en voorwaardelijke opmaak, maar als het alleen met de kleuren kan, zou leuk zijn.

[ Bericht 4% gewijzigd door Karina op 21-02-2008 22:08:26 ]
Op donderdag 15 mei 2014 22:18 schreef sp3c het volgende:
niet zo tof doen
  zondag 24 februari 2008 @ 00:55:54 #179
15080 static
03.09.2006 - 11:35
pi_56939859
Hoe bepaalde waardes in een list niet te tellen?

Vaak maak ik een list van waardes uit een database-export om bepaalde velden/rijen te vergelijken door ze zichtbaar of onzichtbaar te maken; daar wil ik dan een calculatie van maken maar het probleem is dat de formules ook de waardes in de rijen meetelt die (express) niet zichtbaar zijn; hoe voorkom ik dat?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  dinsdag 26 februari 2008 @ 15:54:55 #180
15080 static
03.09.2006 - 11:35
pi_56988738
Niet allemaal tegelijk.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_57151139
Mijn vader heeft het volgende probleem, hij wil de middelste 3 getallen uit een cel automatisch verwijzen naar een andere cel.

Stel in cel B2 staat het nummer 123456789 en dan wil mijn vader een formule hebben die in B3 de middelste 3 getallen uit de cel B2 krijgt. Dus 456 in dit voorbeeld. Weet iemand hoe dit moet?
&lt;a href="http://www.cybernations.net/nation_drill_display.asp?Nation_ID=134818" rel="nofollow" target="_blank"&gt;http://www.cybernations.n(...)asp?Nation_ID=134818&lt;/a&gt;
pi_57151831
Zijn de nummers altijd even lang?
pi_57151878
quote:
Op dinsdag 4 maart 2008 16:12 schreef DaFan het volgende:
Zijn de nummers altijd even lang?
ja
&lt;a href="http://www.cybernations.net/nation_drill_display.asp?Nation_ID=134818" rel="nofollow" target="_blank"&gt;http://www.cybernations.n(...)asp?Nation_ID=134818&lt;/a&gt;
pi_57152002
quote:
Op dinsdag 4 maart 2008 15:39 schreef Timmehhh het volgende:
Mijn vader heeft het volgende probleem, hij wil de middelste 3 getallen uit een cel automatisch verwijzen naar een andere cel.

Stel in cel B2 staat het nummer 123456789 en dan wil mijn vader een formule hebben die in B3 de middelste 3 getallen uit de cel B2 krijgt. Dus 456 in dit voorbeeld. Weet iemand hoe dit moet?
Zet hetvolgende eens in B3

=MID(B2,3,3)
Sport is de belangrijkste bijzaak in het leven.
pi_57152657
quote:
Op zondag 24 februari 2008 00:55 schreef static het volgende:
Hoe bepaalde waardes in een list niet te tellen?

Vaak maak ik een list van waardes uit een database-export om bepaalde velden/rijen te vergelijken door ze zichtbaar of onzichtbaar te maken; daar wil ik dan een calculatie van maken maar het probleem is dat de formules ook de waardes in de rijen meetelt die (express) niet zichtbaar zijn; hoe voorkom ik dat?
Kan dat niet met SUM.IF functie?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_57153191
quote:
Op dinsdag 4 maart 2008 16:21 schreef Bruce117 het volgende:

[..]

Zet hetvolgende eens in B3

=MID(B2,3,3)
Dan krijg ik een foutmelding, heb wat met "MID" gegoocheld maar kom er niet uit.
&lt;a href="http://www.cybernations.net/nation_drill_display.asp?Nation_ID=134818" rel="nofollow" target="_blank"&gt;http://www.cybernations.n(...)asp?Nation_ID=134818&lt;/a&gt;
  dinsdag 4 maart 2008 @ 17:37:04 #187
15967 Frollo
You know I am a righteous man
pi_57153355
quote:
Op dinsdag 4 maart 2008 17:26 schreef Timmehhh het volgende:

[..]

Dan krijg ik een foutmelding, heb wat met "MID" gegoocheld maar kom er niet uit.
Dan heb je wellicht de Nederlandse Excel.
Vervang MID door DEEL en het zou moeten werken.
pi_57153542
Dit werkte hardstikke bedankt !
&lt;a href="http://www.cybernations.net/nation_drill_display.asp?Nation_ID=134818" rel="nofollow" target="_blank"&gt;http://www.cybernations.n(...)asp?Nation_ID=134818&lt;/a&gt;
pi_57173280
quote:
Op dinsdag 4 maart 2008 17:47 schreef Timmehhh het volgende:
Dit werkte hardstikke bedankt !
Daarom bij een vraag altijd evn je taal en versie van excel aangeven.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_57221294
Beste Excel-goeroe's

Ik heb een vraag die wellicht niet zo lastig is, maar helaas wel voor mij.
Ik ben bezig met een kalender in te vullen die inzetbaar is voor verschillende jaren. Deze kalender werkt prima, want wanneer ik het jaartal verander dan veranderen de dagen mee. Nu wil ik bijvoorbeeld nieuwjaarsdag bij 1 januari zetten, maar als ik het jaartal verander, dan wil ik dat de term mee gaat met de bijbehorende datum.

Kan iemand mij vertellen hoe dit moet?

Ik gebruik onderstaand template.
http://office.microsoft.c(...)oryID=CT101424401033
Liever niet...
pi_57223988
Als je hem alleen als afgedrukte versie gebruikt dan kun je in de eerste zeven cellen van de kolom de volgende formule zetten:
1=IF(B1=1,"nieuwjaarsdag","")

Als je hem digitaal wilt gebruiken kun je een Onchange event maken (ff googlen of voorgaande excel topics doorlezen) waarbij bij een verandering op de sheet de volgende code wordt uitgevoerd
1
2
3
4
5		Range("B1").Select
Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Value = "Nieuwjaarsdag"
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_57225794
Dank voor de hulp, Deetch.

Als ik de bovenstaande in mijn Nederlandse Excel 2007 zet en ALS voor IF, dan heb ik echter een rekenfout. Het bereik gaat dan toch van B10 tot en met B48? Als een waarde van 1 tussen B10 en B48 zit, dan wil ik de cel ernaast "Nieuwjaarsdag" te voorschijn zien komen.
Liever niet...
  vrijdag 7 maart 2008 @ 18:01:26 #193
15080 static
03.09.2006 - 11:35
pi_57226056
quote:
Op dinsdag 4 maart 2008 16:54 schreef Deetch het volgende:

[..]

Kan dat niet met SUM.IF functie?
Nee, ik kom er niet uit. Moet nu steeds de data naar de verschillende tabbladen kopieeren; beetje omslachtig.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_57260892
quote:
Op vrijdag 7 maart 2008 17:47 schreef Die-El het volgende:
Dank voor de hulp, Deetch.

Als ik de bovenstaande in mijn Nederlandse Excel 2007 zet en ALS voor IF, dan heb ik echter een rekenfout. Het bereik gaat dan toch van B10 tot en met B48? Als een waarde van 1 tussen B10 en B48 zit, dan wil ik de cel ernaast "Nieuwjaarsdag" te voorschijn zien komen.
In het nederlands moet je ook ipv , een ; gebruiken. En omdat nieuwjaarsdag altijd de eerste januari is kan deze nooit verder dan in de eerste 8 regels van je kalender staan. Maar je mag ook de formule in de hele kolom van junari gooien als je dat liever doet.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_57301246
Ik heb in Excel een e-mail-macro gemaakt waardoor hij de huidige sheet in een mail gooit. Nu zet hij alles er goed in, opmaak, tekst etc maar niet de dropdown-menu's die ik heb zitten. Hoe moet ik defineren dat hij ook de dropdownmenu's meestuurd met de e-mail? Ze zitten namelijk 'bovenop' de cellen, en dus is het theoretisch een lege cel en denkt excel dat hij daar niets hoeft te zetten..

macro:
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		Sub Mail_Sheet_Outlook_Body()
' 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
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 

    Set rng = Nothing
    Set rng = ActiveSheet.UsedRange
    'You can also use a sheet name
    'Set rng = Sheets("YourSheet").UsedRange

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "*************"
        .CC = ""
        .BCC = ""
        .Subject = "Waarnemingen Stadsgewestelijke Brandweer Vlissingen - Middelburg"
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
pi_57306479
hmmz ik kan je niet helpen maar vindt je email macro wel machtig interessant, bedankt voor het posten
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_57306854
En als je gebruikt
1[Naam dropdown].Select

En die bij rng gooit?
pi_57307894
Ik heb nu echt een vaag en irritant probleem. Ff simpel uitgelegd:
Ik heb in rij 1 een aantal getallen (1,2,3 enz). In cel A2 staat =A1, en geeft dus 1. Als ik de formule nu doorsleep over de rest van de kolommen veranderen de formules gewoon goed mee als ik in de formulebalk kijk (=B1, =C1 enz), maar toch krijg ik als waarde altijd 1 terug. Als ik dan in de formulebalk ga staan, en op enter druk, dan pakt ie m wel
pi_57308075
quote:
Op dinsdag 11 maart 2008 16:04 schreef Piles het volgende:
Ik heb nu echt een vaag en irritant probleem. Ff simpel uitgelegd:
Ik heb in rij 1 een aantal getallen (1,2,3 enz). In cel A2 staat =A1, en geeft dus 1. Als ik de formule nu doorsleep over de rest van de kolommen veranderen de formules gewoon goed mee als ik in de formulebalk kijk (=B1, =C1 enz), maar toch krijg ik als waarde altijd 1 terug. Als ik dan in de formulebalk ga staan, en op enter druk, dan pakt ie m wel
Ik krijg het niet voor elkaar om het fout te doen Geen idee wat er mis is met je excel
pi_57308504
Hoe krijg je zo'n code normaal in zijn totaliteit? Zoder dat hij afrond
7E+17
Het moet zijn 700678021019033978, maar in de regel staat: 700678021019033000 en in het veld dus 7E+17.

Hoe krijg ik dus gewoon 700678021019033978 (wat ik typ) in het veld te staan?
pi_57308750
quote:
Op dinsdag 11 maart 2008 16:12 schreef Thrilled het volgende:

[..]

Ik krijg het niet voor elkaar om het fout te doen Geen idee wat er mis is met je excel
Formules rekent ie dus helemaal niet meer automatisch door
Excel 2000 trouwens, en in de taakbalk van Excel (onderin) staat constant Berekenen.
pi_57309222
ga dan naar menu optie tools, opties en op tabblad berekenen zet je het vinkje voor automatisch bereken aan.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
actieve topics nieuwe topics
abonnement Unibet Coolblue
[EXCEL] Het grote Excel vragen topic, #4
Index

» digital corner

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')