[EXCEL] Het grote Excel vragen topic, #3

donderdag 15 november 2007 @ 11:45:08 #276

Folkwin

Muisje op het kruisje!

quote:
Op donderdag 15 november 2007 11:11 schreef DaFan het volgende:
Ja Folkwin dat gaat via Visual Basic

Is er iemand die mij uit kan leggen hoe ik dat doe met Virtual Basic..
Zou die gene zeer erkentelijk zijn!

"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"

donderdag 15 november 2007 @ 11:47:02 #277

DaFan

quote:
Op donderdag 15 november 2007 11:45 schreef Folkwin het volgende:

[..]

Is er iemand die mij uit kan leggen hoe ik dat doe met Virtual Basic..
Zou die gene zeer erkentelijk zijn!

Ik kan het zo in elkaar klussen maar ben er toch wel een half uur mee bezig. Denk je dat je eruit komt als ik zelf een bestandje maak en dat naar je toemail? Dan kan je kijken hoe ik de code in elkaar heb gezet. Je moet hem zelf dan maar analyseren of aanpassen aan je wensen. Daar ga ik je niet mee helpen

Kom er nu niet aan toe maar eind van de middag heb ik waarschijnlijk wel wat tijd.

donderdag 15 november 2007 @ 11:59:34 #278

Folkwin

Muisje op het kruisje!

quote:
Op donderdag 15 november 2007 11:47 schreef DaFan het volgende:

[..]

Ik kan het zo in elkaar klussen maar ben er toch wel een half uur mee bezig. Denk je dat je eruit komt als ik zelf een bestandje maak en dat naar je toemail? Dan kan je kijken hoe ik de code in elkaar heb gezet. Je moet hem zelf dan maar analyseren of aanpassen aan je wensen. Daar ga ik je niet mee helpen

Kom er nu niet aan toe maar eind van de middag heb ik waarschijnlijk wel wat tijd.

Dat denk ik wel dat het me lukt, dat zou me in ieder geval heel veel opweg helpen!
Alvast hartelijk bedankt, ik hou het topic in de gate!

"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"

donderdag 15 november 2007 @ 11:59:51 #279

Frollo

You know I am a righteous man

quote:
Op donderdag 15 november 2007 11:44 schreef Freak187 het volgende:

Ik wil van cel E9 t/m Y300, Excel laten 'zoeken' naar de letter D en die cellen (waar die D instaat) groen kleuren.

Dan moet je voor E9 de voorwaardelijke opmaak instellen volgens de formules die ik net gepost heb (maar maak van A1 dan wel E9). Vervolgens kopieer je de opmaak van E9 naar de andere cellen. Ik weet niet welke Excel je hebt, dus kan daar geen precieze instructies voor geven. Zoek in de Help maar even op 'opmaak kopiëren'.

donderdag 15 november 2007 @ 12:54:05 #280

Freak187

Frollo, het werkt! Heel erg bedankt!

[ Bericht 82% gewijzigd door Freak187 op 15-11-2007 13:07:25 ]

donderdag 15 november 2007 @ 12:54:52 #281

Frollo

You know I am a righteous man

Mooi zo.

donderdag 15 november 2007 @ 13:07:31 #282

Freak187

Alleen één vraagje nog, ik heb alle drie de voorwaarden gebruikt, maar als ik de opmaakt kopieer dan gaat hij ook vrolijk over andere dingen heen. Ik heb eigenlijk 5 voorwaarden in m'n werkblad zitten. Is er een mogelijkheid om die cellen vast te zetten en/of ongevoelig te maken voor de voorwaardeljike opmaar? Is dat uberhaupt mogelijk?

donderdag 15 november 2007 @ 13:11:56 #283

Frollo

You know I am a righteous man

Oei, dat wordt lastig. Te lastig. Succes!

donderdag 15 november 2007 @ 15:50:31 #284

DaFan

Kijk eens hierboven of de vorige pagina naar de oplossing van Deetch, die had 300 voorwaarden.

donderdag 15 november 2007 @ 16:08:37 #285

DaFan

Folkwin check je mail.

donderdag 15 november 2007 @ 20:50:39 #286

SarahD.

Nostalgia.

Ik weet niet of dit mogelijk is met excel...

Ik wil dus een boek samenstellen, waarbij ik zeg maar in de eerste map de inhoudsopgave heb en daarna steeds per werkmap een hoofdstuk, maar zonder al die vervelende lijntje en het liefst met een witte achtergrond. En ook als ik in de inhoudsopgave op een hoofdstuk klik, dan ie daar naartoe springt, kan dit? En nog belangrijker hoe?

Toegang is geen open deur.

donderdag 15 november 2007 @ 21:32:11 #287

sylvesterrr

CTRL-A
Wit opvullen
Randen weghalen

Weg zijn de lijnen, en zie hier je witte achtergrond.

En je kunt prima navigeren door ergens op te klikken, maar dat moet allemaal met vba...

Echter, ik denk dat je het verkeerde middel voor je doel wil gebruiken...

donderdag 15 november 2007 @ 21:35:02 #288

DaFan

Excel gebruiken om een boek te schrijven is belachelijk. Kan met Word namelijk ook prima, en dat springen naar het hoofdstuk ook. Moet je automatische inhoudsopgave gebruiken.

vrijdag 16 november 2007 @ 08:38:56 #289

Folkwin

Muisje op het kruisje!

quote:
Op donderdag 15 november 2007 16:08 schreef DaFan het volgende:
Folkwin check je mail.

Ontvangen..!

Ik ga er eens even mee stoeien, hartelijk bedankt voor je hulp alvast!
Mocht ik vragen hebben dan weet ik je te vinden

"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"

vrijdag 16 november 2007 @ 08:43:10 #290

Folkwin

Muisje op het kruisje!

quote:
Op donderdag 15 november 2007 21:35 schreef DaFan het volgende:
Excel gebruiken om een boek te schrijven is belachelijk. Kan met Word namelijk ook prima, en dat springen naar het hoofdstuk ook. Moet je automatische inhoudsopgave gebruiken.

Zou ik ook zeggen, en desnoods converteren naar PDF..

"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"

donderdag 22 november 2007 @ 09:51:16 #291

tequi3

Ik heb een vraag, ik heb een tabel gemaakt in Excel. Nu moet er ook tekst in bepaalde cellen komen. Deze tekst past niet op een cel, hoe kan ik instellen dat als hij niet past hij automatisch verder gaat op de volgende regel?

Beetje stomme vraag, maar ik kan het niet vinden. Ook met samenvoegen werkt het niet.

O, ik heb het al.. tekstterugloop.

donderdag 22 november 2007 @ 22:58:29 #292

its_me_

Vraagje:
Ik heb een werkblad waarop gegevens worden ingevoerd en daarna worden berekend op dit zelfde werkblad.
Het is de bedoeling dat deze berekende gegevens worden doorgevoerd naar een volgend werkblad, op het moment dat er op een knop wordt gedrukt. De locatie waar deze gegevens terecht moeten komen is afhankelijk van de gekozen kolom. De kolom wordt gekozen door een waarde (letter/cijfer code) in een cel te zetten. Deze waarde is dan gekoppeld aan de kolom.
Nou wil ik met behulp van een macrotje dit automatisch uit laten voeren.
Hoe zou zo'n macrotje eruit moeten komen te zien?

Ik heb tot nu toe het volgende:

1
2
3
4
5
6
7
8
9

Sub Macro2()

Worksheets("Invoersheet").Range("F16:F69").Copy _

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

Application.CutCopyMode = False

End Sub

Nu is het de bedoeling dat het doel (vanaf G16 en dan omlaag) variabel wordt. Dit kan dus H16, etcetera worden.
In rij 14 worden de kolomnamen weergegeven. Aan de hand van deze naam, kan worden bepaald waar de juiste kolom zich bevind. Ik hoop dat dit duidelijk is.

Met welk programma houd jij je geldzaken bij?

vrijdag 23 november 2007 @ 11:45:45 #293

DaFan

Uhm je hebt hier 2 mogelijkheden wat mij betreft:
1) De macro laten draaien aan de hand van waar de cursor nu staat (even zoeken in de Help van Visual Basic, weet de code hiervoor zo even niet)
2) Popup scherm waarin je vraagt om de kolomnaam (G,H,etc). Kan je ook wel vinden in de Help ;) Ik ben er al een tijdje uit maar zo zou ik het aanpakken.

Voor 1 en 2 wordt Range dan als volgt:

1	Range(<variabele> & "16": <variabele> & <einde kolomnummer>)

Deetch had een keer een mooie macro om de laatste rij van een kolom te bepalen maar die heb ik al een tijdje niet in het topic gezien. Als je dat nodig hebt of er verder niet uitkomt, laat het maar weten :s)

vrijdag 23 november 2007 @ 13:55:43 #294

tequi3

Ik heb een Excel bestand, deze wil ik kopieren naar een ander excelbestand. Als ik alles selecteer en vervolgens op kopier druk en in mijn andere werkblad op plakken loopt Excel vast (Het is een vrij groot bestand). Vervolgens heb ik importeren geprobeert, Gevens -> Importeren -> Van XML-Gegevensimport (zo doe ik het wel vaker). Dat werkt wel, alleen klopt er niets meer van de opmaak, dit waarschijnlijk omdat dat werkblad in een eerdere versie van Office Excel gemaakt is.

Ik werk momenteel in Excel 2007. Is er een manier om het werkblad toch te kopieren, incl. juiste opmaak e.d.?

Edit:

Hmm, ik heb het in Excel 2003 geprobeert, daar ging het rechtstreeks kopieren wel goed zonder vastloper. Nu gewoon opgeslagen en verder in 2007. Toch ben ik wel benieuwd wat de officiele manier is om bladen te kopieren naar een heel ander werkblad, als die er is?

[ Bericht 19% gewijzigd door tequi3 op 23-11-2007 14:08:13 ]

maandag 26 november 2007 @ 19:44:31 #295

its_me_

quote:
Op vrijdag 23 november 2007 11:45 schreef DaFan het volgende:
Uhm je hebt hier 2 mogelijkheden wat mij betreft:
1) De macro laten draaien aan de hand van waar de cursor nu staat (even zoeken in de Help van Visual Basic, weet de code hiervoor zo even niet)
2) Popup scherm waarin je vraagt om de kolomnaam (G,H,etc). Kan je ook wel vinden in de Help ;) Ik ben er al een tijdje uit maar zo zou ik het aanpakken.

Voor 1 en 2 wordt Range dan als volgt:
[ code verwijderd ]

Deetch had een keer een mooie macro om de laatste rij van een kolom te bepalen maar die heb ik al een tijdje niet in het topic gezien. Als je dat nodig hebt of er verder niet uitkomt, laat het maar weten :s)

Uiteindelijk heb ik hem als volgt opgelost:

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

Sub Macro2()

Dim X As Variant

    If _
    Worksheets("Invoersheet").Range("J9") = "FF" _
    Then
    X = "E16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "FG" _
    Then
    X = "F16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M1F" _
    Then
    X = "I16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M1G" _
    Then
    X = "J16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M2F" _
    Then
    X = "M16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M2G" _
    Then
    X = "N16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M3F" _
    Then
    X = "Q16"

    ElseIf _
    Worksheets("Invoersheet").Range("J9") = "M3G" _
    Then
    X = "R16"

    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("F16:F69").Copy _

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

Application.CutCopyMode = False

Dim Y As Variant

    If _
    Worksheets("Invoersheet").Range("J9") = "FF" _
    Then
    Y = "U16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "FG" _
    Then
    Y = "V16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M1F" _
    Then
    Y = "Y16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M1G" _
    Then
    Y = "Z16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M2F" _
    Then
    Y = "AC16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M2G" _
    Then
    Y = "AD16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M3F" _
    Then
    Y = "AG16"
    End If

    If _
    Worksheets("Invoersheet").Range("J9") = "M3G" _
    Then
    Y = "AH16"
    End If



Worksheets("Invoersheet").Range("K16:K69").Copy _

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

Application.CutCopyMode = False

End Sub

Ik vind de code alleen niet zo netjes en erg lang. Ik denk dat dit korter moet kunnen.
Wie kan de code iets korter maken?

Met welk programma houd jij je geldzaken bij?

maandag 26 november 2007 @ 20:26:53 #296

DaFan

<variabele> = Worksheets("Invoersheet").Range("J9").Value

Select Case <variabele>
Case Is "FF"
X = "E16"
Case Is etc....
End Select

Denk dat je er wel uit komt, anders even Googlen

Select Case statement heet het.

dinsdag 27 november 2007 @ 14:05:16 #297

Roeji

Oost West Thuis is t ook niks

quote:
Op maandag 12 november 2007 19:30 schreef saban het volgende:
In Excel is dit mogelijk:
[ code verwijderd ]

Maar is dit ook mogelijk?
[ code verwijderd ]

Oke even een lekker blonde vraag.

Die bovenste code (oke hij staat er ineens niet meer, misschien nog in de originele post) dat is toch in VB gemaakt?

_{ik ben een complete leek op gebied van VB en macro's en probeer er eens voorzichtig wat van op te steken}

[ Bericht 24% gewijzigd door Roeji op 27-11-2007 14:07:17 (oeps foutje) ]

Ik ben zo blij, zo blij
Dat mn neus van voren zit en niet van opzij.
M.C.S.E = Minesweeper Consultant & Solitaire Expert

dinsdag 27 november 2007 @ 14:27:21 #298

Roeji

Oost West Thuis is t ook niks

Overigens is het me voor de helft gelukt om de template die ik wilde aanpassen wachtwoord-vrij te krijgen. Alleen het vba gedeelte lukt niet, daar voldoen de demo versies niet voor. En 30euro neerleggen om alleen maar te zien hoe het in mekaar is gezet, vind ik een beetje veel van het goede

Mocht daar iemand dus nog tips voor hebben dan zijn die van harte welkom.

Ik ben zo blij, zo blij
Dat mn neus van voren zit en niet van opzij.
M.C.S.E = Minesweeper Consultant & Solitaire Expert

dinsdag 27 november 2007 @ 14:59:22 #299

DaFan

Ja Roeji maar veel code is Excel-only (ofja, Office-only eigenlijk).

dinsdag 27 november 2007 @ 16:16:06 #300

Roeji

Oost West Thuis is t ook niks

quote:
Op dinsdag 27 november 2007 14:59 schreef DaFan het volgende:
Ja Roeji maar veel code is Excel-only (ofja, Office-only eigenlijk).

Ja dat wist ik wel. Ik heb wel een klein beetje programmeer kennis (uit een grijs verleden). Momenteel ben ik ook met Access bezig en ik merk daar dat het toch net iets simpeler kan zijn als je een goede excel kennis hebt (tenminste bij het knutselen met expressies enzo).

Het was eigenlijk meer een vraag om te weten/ontdekken hoe vb eruit kan zien. Of het op een of andere programmeertaal lijkt die ik ken of ooit heb moeten leren.

Ik geloof dat ik het een beetje warrig vertel, krijg het even niet uitgelegd.

In elk geval bedankt voor je antwoord. Ik ga me voor de zekerheid toch maar een cursusje zoeken, ipv het zelf te proberen.

Ik ben zo blij, zo blij
Dat mn neus van voren zit en niet van opzij.
M.C.S.E = Minesweeper Consultant & Solitaire Expert

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

» digital corner

» digital corner