• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wie helpt mij met deze macro in excel

Status
Niet open voor verdere reacties.
S

sloopkogel

Gebruiker
Lid geworden
5 jul 2005
Berichten
10
Ik ben een echte excel-noob, vandaar dat ik hulp inroep van jullie.
Misschien wil iemand zich hier eens overheen buigen....
Het gaat om het volgende excel-bestand....

http://members.chello.nl/m.hulshoff1/ploeff.xls

Als je kijkt naar B7 tot Q7
Dit heb ik allemaal met de hand gedaan. Maar er moet toch een macro mogelijkheid zijn om het zo te krijgen dat ik alleen maar het artikelnummer in hoef te geven, welke lijn ( A5 t/m A13 ) gebruikt wordt, van hoe laat tot hoe laat die lijn loopt, en dat ie dan in een bepaalde kleur die tijdslijn vult, inclusief in elke cel het artikelnummer?

Nogmaals, heb er ERG weinig verstand van en hoop op een helpende hand......

Thanx!!
 
Sorry

Als je de basisbeginselen niet kent is het zeker moeilijk je aanteleren hoe een macro werkt.
Macro's maken is het laatste wat je je leren in een cursus.
Op pagina 19 van die cursus staat het beter uitgelegd dan ik u hier kan vertellen.

Jean
 
Geplaatst door jean42
Sorry

Als je de basisbeginselen niet kent is het zeker moeilijk je aanteleren hoe een macro werkt.
Macro's maken is het laatste wat je je leren in een cursus.
Op pagina 19 van die cursus staat het beter uitgelegd dan ik u hier kan vertellen.

Jean
Klik om te vergroten...

Punt is dat ik nog NOOIT heb gewerkt met Excel....( eerste keer dat ik hem heb opgestart )
En verders zal ik Excel waarschijnlijk ook nooit gebruiken......
Alleen wil ik dat macrootje gaan gebruiken....verders niet....
En om daar zoveel voor te moeten gaan bestuderen lijkt mij niet zinvol.....( omdat ik het verders toch niet gebruik )

Het enige waar ik mee werk is Exceed en AS400.

Snap je?
 
Ga naar extra-macro-nieuwe macro opnemen-geef een naam of snelfunctie, klik op ok en dan begin je te bewerken wat die macro moet doen. Is die bewerking gedaan dan klik je op het linkerblokje van je macrovenster en dan is die klaar.

jean
 
Met alle respect, toen ik de eerste keer in een auto stapte was het ook geen ferrari. Excel kan best veel en natuurlijk kan je ook uit programmeren wat jij wil, alleen denk ik dat je zelf ook een beetje er in mag verdiepen.

In mijn ogen is dit een hulp forum en geen maak voor mij eens .... forum. De mensen die je hier helpen verwachten denk ik ook wel een beetje eigen inzet.
 
Hallo,

Zoals eerder reeds opgemerkt: forums en nieuwsgroepen hebben tot doel om mensen te helpen iets zelf te maken. Niet een soort gratis hulp, waar je effe een bestelling plaatst, en dan maar verwacht dat één of andere goede ziel het wil oplossen.

Nu kan ik best begrijpen dat hetgeen je wil oplossen iets te hoog gegrepen is voor iemand die totaal niets met excel wil te maken hebben.

Je vraagt dus hulp, en probeert zelf in elkaar te steken wat men je voorstelt... of je zoekt iemand die het volledig voor jou wil maken. Mits een kleine vergoeding (Dat hoeft echt niet veel te zijn, vind je allicht mensen die je verder willen helpen. Excel is nu ook weer niet zo moeilijk dat je er ver naar zal moeten zoeken)

Zo je het zelf wil maken: Hier heb je een begin. Zonder macro's... maar daarom niet minder moeilijk. Via Matrix-formules en Voorwaardelijke opmaak.

Tussen elke rij moet je een rij invoegen. Deze rij mag je desnoods verbergen.
Stel dat (zoals in uw voorbeeld) uw eerste gegevens in rij 7 staan.
In Cel B6 zet je dan deze formule (Matrix-formule):

=SOM(ALS($B$7:B7<>"";1/AANTAL.ALS($B$7:B7;$B$7:B7)))

Invoeren, en afsluiten met de toetsencombinatie CTRL SHIFT Enter.

Deze formule trek je door tot Z6

Daarna selecteer je uw gegevens in B7:Z7
en via Opmaak => Voorwaardelijke opmaak kies je voor formule.
Als formule zet je:
=REST(B6;2)=1
En je kiest een passende opmaak.

Deze handeling herhaal je voor elke rij.

Succes,

Luc
 
Geplaatst door snabbi
Met alle respect, toen ik de eerste keer in een auto stapte was het ook geen ferrari. Excel kan best veel en natuurlijk kan je ook uit programmeren wat jij wil, alleen denk ik dat je zelf ook een beetje er in mag verdiepen.

In mijn ogen is dit een hulp forum en geen maak voor mij eens .... forum. De mensen die je hier helpen verwachten denk ik ook wel een beetje eigen inzet.
Klik om te vergroten...

Sorrie dat ik het zeg maar ik vind dit echt een hele stompzinnige opmerking.
Met name de eerste regel over de auto's.....slaat echt nergens op man......

Maar ik zal je het nogeens uitleggen......
ik heb een Office-pakket op mijn computer. Ik gebruik daar alleen, en uitsluitend Outlook en Word.
Pakketten als excel, powerpoint, acces.....nog nooit iets meegedaan......nog nooit niet dus........
Nu heb ik sinds kort een andere baan. Ik werk met Exceed en AS400, Word en Outlook. Dat zijn mijn tools. En pen en papier. That's it.....
Nu zit ik dagelijks met pen en papier een planningslijst inelkaar te breien. En ik las dat je dit soort dingen, wat ik dus wil, met excel kunt bewerkstelligen....
Dus ik ben eens gaan lezen over excel en de mogelijkheden.....kerel......daar wordt je toch niet vrolijk van?
Dus ik vind het absurd voor woorden dat ik zoveel basiskennis op moet gaan doen zodat ik zo'n sheet kan maken......

Voorbeeldje geven?

Ik ben ( alos ik dat mag zeggen van mezelf ) erg goed in het producen en mixen van house-music.....
Voor mij is het werken met tooregelingen, beatmixen enz. enz. een appeltje eitje......

Ik zit veel in dergelijke forums......

Als er iemand is die een ( voor mij klein probleempje ) wat ik effe voor hem kan oplossen.......en ik vertel hem ook hoe ik het gedaan heb en waarom........
Moet ik dan tegen die gozer gaan zeggen.....hallo.....ga jij eerst eens leren mixen, producen, enz. enz.....

Ik bedoel......tja.....hoe moet ik het uitleggen......

Als je iemand kunt helpen met jouw kennis.....waarom doen dan zoveel mensen moeilijk om die kennis te delen, of om met een simpele oplossing te komen.....

Maar ja......ik begrijp soms zovaak mensen niet.....
 
Hallo,

Ok... is best te begrijpen dat je om iets 'onozel' geen volledige cursus excel wil volgen.
En ik begrijp ook best dat je wat hulp verwacht.

Ik heb de VBA code die men je aangereikt heeft niet gezien. Ik weet dus ook niet hoe moeilijk die is.

Nochthans is de methode die ik je gegeven heb echt wel haalbaar. Het gaat hem tenslotte enkel om het invoegen van enkele rijen, en het typen van 2 formules (Inderdaad geen gewone formules.)

Ik stel dus voor: probeer het effe op de eerste rij, en kijk wat je er van bakt.

Enne... iedereen z'n bezigheid natuurlijk. Ikke wordt wel vrolijk van het werken met Excel.

Luc
 
Goed, is nu ook weer niet zo'n groot werkje. Ik heb het snel even voor jou gemaakt.
 

Bijlagen

Geplaatst door Luc Heyndrickx
Goed, is nu ook weer niet zo'n groot werkje. Ik heb het snel even voor jou gemaakt.
Klik om te vergroten...

Dank je wel voor je moeite....
Maar ik denk dat ik mij niet helemaal goed heb uitgelegd wat ik nou bedoelde.....
Ik bedoelde een soort van menu waarbij je 3 gegevens invoert.....enwel: starttijd - eindtijd - productcode
Het moet toch mogelijk zijn als je deze 3 gegevens invoert in een soort van menu dat dan de tijdslijn gevuld gaat worden met een kleur, en in elk vakje ( elk uur ) de productcode en een verkleuring van de cel....
Of ik heb het niet goed gezien wat jij hebt gemaakt maar volgens mij ben ik dan nog aan het knippen en plakken. en daar wilde ik juist vanaf.....
Hoop dat ik het wat beter heb uitgelegd.....

Thanx!!
 
Het verkleuren van de cellen gaat automatisch. Je moet echter wel nog steeds zelf de productcode invullen... en liefst niet met knippen en plakken, want je zou de Voorwaardelijke opmaak ook overplakken.

Nu kan ik dat alles wel maken. Maar uw vraag houd niet op met één probleempje. Het is een samenhang van een hoop zaken, waarbij je nog 's vraagt het goed uit te werken.

Logisch ook, als je het zelf niet wil maken. (Een behoorlijke studie van Excel vraagt immers meer tijd dan het programma zelf waard is).

Ik blijf dus bij m'n eerste mening:
Zoek iemand die dit alles wil uitwerken... desnoods voor een kleine vergoeding. Indien je geen professionele hulp wil, dan zit je hier aan het goede adres. Er zijn allicht mensen die je verder willen helpen.

Luc
 
Ik denk dat ik begrijp wat je wilt, ik vraag me alleen af waarom je twee keer de tijd 22 hebt.
Is de laatste of de eerste niet overbodig cq dubbel?

Dit maakt het wel lastig, hoe moet ik (de macro) weten welke 22 je bedoeld.

Welke 22 bedoel je als zowel begin als eind 22 is, de eerste 22, de laatste of de hele reeks van eerste tot laatste...
 
Laatst bewerkt:
Ik heb de laatste 22 verwijderd in dit voorbeeld (zie bijlage)

Dit zijn de macro's ik gebruikt heb.

Sub vullen()
Dim a, b, c, d, e, x, y, z, w
a = Range("C17").Value ' begin
b = Range("D17").Value ' einde
c = Range("E17").Value ' waarde
d = Range("F17").Value ' Rij
e = Range("G17").Value ' Kleur nummer

x = a + 4
If x = 26 Then x = 2 'correctie voor de lijn 22
If x = 27 Then x = 3 'correctie voor de lijn 23

y = b + 4
If y = 26 Then y = 2 'correctie voor de lijn 22
If y = 27 Then y = 3 'correctie voor de lijn 23

' cellen kleuren en vullen
For w = x To y
Cells(d, w).Value = c
Cells(d, w).Select
With Selection.Interior
.ColorIndex = e
.Pattern = xlSolid
End With
Next w
Cells(17, 3).Select 'klaar voor nieuwe invoer
End Sub

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

Sub Range_legen()
Dim a, b, c, d, e, x, y, z, w
a = Range("C17").Value ' begin
b = Range("D17").Value ' einde
c = "" ' wis waarde
d = Range("F17").Value ' Rij
e = 2 ' Kleur nummer 2 is wit

x = a + 4
If x = 26 Then x = 2 'correctie voor de lijn 22
If x = 27 Then x = 3 'correctie voor de lijn 23

y = b + 4
If y = 26 Then y = 2 'correctie voor de lijn 22
If y = 27 Then y = 3 'correctie voor de lijn 23

' cellen kleuren en vullen
For w = x To y
Cells(d, w).Value = c
Cells(d, w).Select
With Selection.Interior
.ColorIndex = e
.Pattern = xlSolid
End With
Next w
Cells(17, 3).Select 'klaar voor nieuwe invoer
End Sub

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

Sub Zet_kleuren()
Dim x, y, z
z = 0
For x = 15 To 23
For y = 15 To 22
z = z + 1
If z > 56 Then End
Cells(x, y).Select
With Selection.Interior
.ColorIndex = z
.Pattern = xlSolid
Cells(x, y).Value = z
End With
Next y
Next x
End Sub


@ Luc, hopelijk stoot ik hiermee geen mensen het brood uit de mond :)
Ik heb overigens al eens geld gekregen van mensen wiens vraag ik hier gratis beantwoord had...

@ sloopkogel, lijkt iets met eten te maken te hebben, kan ik eens langs komen voor een hapje??
 

Bijlagen

Laatst bewerkt:
Geplaatst door Withaar
Ik heb de laatste 22 verwijderd in dit voorbeeld (zie bijlage)

Dit zijn de macro's ik gebruikt heb.

Sub vullen()
Dim a, b, c, d, e, x, y, z, w
a = Range("C17").Value ' begin
b = Range("D17").Value ' einde
c = Range("E17").Value ' waarde
d = Range("F17").Value ' Rij
e = Range("G17").Value ' Kleur nummer

x = a + 4
If x = 26 Then x = 2 'correctie voor de lijn 22
If x = 27 Then x = 3 'correctie voor de lijn 23

y = b + 4
If y = 26 Then y = 2 'correctie voor de lijn 22
If y = 27 Then y = 3 'correctie voor de lijn 23

' cellen kleuren en vullen
For w = x To y
Cells(d, w).Value = c
Cells(d, w).Select
With Selection.Interior
.ColorIndex = e
.Pattern = xlSolid
End With
Next w
Cells(17, 3).Select 'klaar voor nieuwe invoer
End Sub

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

Sub Range_legen()
Dim a, b, c, d, e, x, y, z, w
a = Range("C17").Value ' begin
b = Range("D17").Value ' einde
c = "" ' wis waarde
d = Range("F17").Value ' Rij
e = 2 ' Kleur nummer 2 is wit

x = a + 4
If x = 26 Then x = 2 'correctie voor de lijn 22
If x = 27 Then x = 3 'correctie voor de lijn 23

y = b + 4
If y = 26 Then y = 2 'correctie voor de lijn 22
If y = 27 Then y = 3 'correctie voor de lijn 23

' cellen kleuren en vullen
For w = x To y
Cells(d, w).Value = c
Cells(d, w).Select
With Selection.Interior
.ColorIndex = e
.Pattern = xlSolid
End With
Next w
Cells(17, 3).Select 'klaar voor nieuwe invoer
End Sub

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

Sub Zet_kleuren()
Dim x, y, z
z = 0
For x = 15 To 23
For y = 15 To 22
z = z + 1
If z > 56 Then End
Cells(x, y).Select
With Selection.Interior
.ColorIndex = z
.Pattern = xlSolid
Cells(x, y).Value = z
End With
Next y
Next x
End Sub


@ Luc, hopelijk stoot ik hiermee geen mensen het brood uit de mond :)
Ik heb overigens al eens geld gekregen van mensen wiens vraag ik hier gratis beantwoord had...

@ sloopkogel, lijkt iets met eten te maken te hebben, kan ik eens langs komen voor een hapje??
Klik om te vergroten...




Kerel.....ik vind het HELEMAAL geweldig wat je gedaan hebt!! PRIMA!! Precies wat ik bedoel!
Je wilt niet weten hoeveel werk dit mij uit handen gaat nemen zodat ik andere werkzaamheden kan gaan doen. En dus nog produktiever kan zijn...
Uiteraard zitten er nog een paar hele kleine dingen in die ik liever anders had gehad......
Maar als ik zie je wat je gedaan hebt dan is dat nog maar peanuts.......uit de losse hand.....:-)
Uiteraard wil ik je betalen voor wat je gedaan hebt.....no problem......
Ik geef je mijn emailadres en dan gaan we via email wel verder.....en ja......het heeft wel met eten te maken. :D ....maar dat leg ik je wel uit via email over het hoe of wat....

Thanx man.....fijn dat er mensen zijn die met een oplossing komen en achteraf de beslissing aan een ander over laten of ie wel of niet betaald.....en ik wil best wel betalen......
Ik heb het niet zo op mensen die eerst geld willen zien...geldwolfjes.....

Zelf ben ik ook zo.....als mensen mij vragen om iets op muziekgebied iets te doen en het is voor mij een appeltje eitje, dan help ik hem......shure......en als ie na afloop er geld voor geven dan hou ik hem niet tegen....
Een echt een macro ontwikkelen die weken duurt.....tja......dan wordt het wat anders.....
Maar dit.......


Nee.....top hoor!

sloopkogel@chello.nl


Doei!!
:thumb:
 
Geplaatst door Withaar

Kan ik eens langs komen voor een hapje?? [/B]
Klik om te vergroten...

Daar hebben mijn vrouw en ik helemaal geen problemen mee......als je gezellig, spontaan en super relaxed ben.......:thumb:

Ps.....wat betreft de kookkunsten van mijn vrouw.....:D
Ik HEB wel eens dingen meegemaakt......waarvan je zegt.......:8-0:

Maar verders......:D
Soms lukt het wel......maar dan komt dat rechstreeks van de plaatselijke Shoarma-boer.......:D

Je kunt je nog bedenken......:D

doei!
 
Haal even je email adres weg van de helpmij site.
Onder de betreffende reactie even de button Aanpassen gebruiken.

Er zijn diverse robots op het net die de hele dag niets anders doen dan site nakijken op email adressen om die vervolgens te verzamelen.
Die verzamelingen worden vervolgens verkocht en jij krijgt de komende 2 jaar tig mailjes met de 'mooiste' aanbiedingen zo als viagra etz.... :)

Gaat me echt niet om het geld, en dit was ook niet veel werk. Uit eten lijkt me dan veel gezelliger.
Ik woon in Den Haag, maar heb een OV kaart, dus kan bijna overal wel komen.

Dat er nog veel te verbeteren valt mag duidelijk zijn, maar als dit niets was zou dat zonde van de tijd zijn geweest.

Je kunt je vragen gewoon hier neer zetten dan kan iedereen er naar kijken, met prive mail heb ik echter ook geen problemen.
Gebruik dan de button Email of bericht.

Zelf denk ik bv aan een pulldown lijst met de artikelcodes er in zodat mensen geen fouten kunnen maken, waar dacht je zelf aan?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan