[EXCEL] Het grote Excel vragen topic, #4

maandag 28 januari 2008 @ 17:15:36 #126

Deetch

WTF?

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

maandag 28 januari 2008 @ 19:12:09 #127

its_me_

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

ralfie

!Yvan eht nioj

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

donderdag 31 januari 2008 @ 06:59:45 #129

its_me_

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?

donderdag 31 januari 2008 @ 14:03:49 #130

Deetch

WTF?

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

donderdag 31 januari 2008 @ 14:17:18 #131

DaFan

Je kan ook in VB dit gewoon afvangen met If IsError(verhaal).

maandag 4 februari 2008 @ 11:31:06 #132

Folkwin

Muisje op het kruisje!

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"

maandag 4 februari 2008 @ 11:54:44 #133

Bruce117

D-0

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

Folkwin

Muisje op het kruisje!

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

Folkwin

Muisje op het kruisje!

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"

woensdag 6 februari 2008 @ 11:05:50 #136

Bruce117

D-0

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.

woensdag 6 februari 2008 @ 11:49:59 #137

RayMania

Doei.

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

Frollo

You know I am a righteous man

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

Folkwin

Muisje op het kruisje!

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"

woensdag 6 februari 2008 @ 17:57:04 #140

its_me_

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?

woensdag 6 februari 2008 @ 19:56:52 #141

Deetch

WTF?

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

1	range=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

DjowY

Ijskoud de langste

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!!

donderdag 7 februari 2008 @ 11:12:44 #143

RayMania

Doei.

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

Frollo

You know I am a righteous man

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.

donderdag 7 februari 2008 @ 11:15:29 #145

DaFan

VERT.ZOEKEN werkt niet in een dropdown (combobox).

donderdag 7 februari 2008 @ 11:18:25 #146

Frollo

You know I am a righteous man

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

DjowY

Ijskoud de langste

Bedankt heren, probleem opgeost!

Nobody fucks with Frank de Grave!!

donderdag 7 februari 2008 @ 14:50:23 #148

Doodkapje

CyanideCookies

[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

Frollo

You know I am a righteous man

Met de hand erop schrijven.

Whehe, ik ga even zoeken, brb.

donderdag 7 februari 2008 @ 15:01:20 #150

Doodkapje

CyanideCookies

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

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

» digital corner

» digital corner