Is er iemand die mij uit kan leggen hoe ik dat doe met Virtual Basic..quote:Op donderdag 15 november 2007 11:11 schreef DaFan het volgende:
Ja Folkwin dat gaat via Visual Basic
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 helpenquote: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!
Dat denk ik wel dat het me lukt, dat zou me in ieder geval heel veel opweg helpen!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.
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'.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.
Ontvangen..!quote:Op donderdag 15 november 2007 16:08 schreef DaFan het volgende:
Folkwin check je mail.
Zou ik ook zeggen, en desnoods converteren naar PDF..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.
1 2 3 4 5 6 7 8 9 | Worksheets("Invoersheet").Range("F16:F69").Copy _ Worksheets("Invoer").Range("G16").PasteSpecial Paste:=xlPasteValues _ Application.CutCopyMode = False End Sub |
1 |
Uiteindelijk heb ik hem als volgt opgelost: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)
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 | 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 |
Oke even een lekker blonde vraag.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 ]
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).quote:Op dinsdag 27 november 2007 14:59 schreef DaFan het volgende:
Ja Roeji maar veel code is Excel-only (ofja, Office-only eigenlijk).
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |