Zo urgent is het nou ook weer niet Ben al lang blij dat je het wilt doenquote:Op vrijdag 31 oktober 2008 04:57 schreef DaFan het volgende:
Sorry Mark & Martijn, ik ben erg druk met mijn spullen pakken en de laatste voorbereidingen treffen voor mijn terugreis dus ik kan niet meer naar jullie problemen kijken tot in ieder geval woensdag.
1 2 3 4 5 6 7 8 | 1 15 2 13 3 15 4 10 5 11 . .. . .. |
Ik heb dit gezocht, echter kom ik alleen bij oplossingen als het typen van ctrl + shift + ;quote:Op zondag 2 november 2008 22:59 schreef DaFan het volgende:
Bazz het probleem zit erin dat je NU() gebruikt (of TODAY() ). Die wordt elke keer geupdate als je een nieuwe calculation doet in je worksheet. Er zijn daar veel oplossingen voor verkrijgbaar, ik raad je aan op TODAY() en je probleem te Googlen, denk dat je een heel eind komt (heeft geen nut om het wiel opnieuw uit te vinden )
1 2 | Leuk 2,4 stom |
1 2 3 4 5 6 7 | If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("B" & Target.Row).Value = Time End If End Sub |
Stel je maakt en 100% gestapelde staaf (met een gemiddelde er in). Dan kan ik links (primaire as) 'warm' zetten, hoe krijg ik dan rechts (secundaire waarde as) 'koud'?quote:Op dinsdag 4 november 2008 16:03 schreef DaFan het volgende:
Z hoe wil je Koud/Stom als een waarde hebben? Dit kan toch niet kwantitatief in een grafiek geplaatst worden?
Ook snap ik je hele uitleg niet zo goed
Thanks, ik ga straks even puzzelen of het lukt.quote:Op zondag 2 november 2008 22:56 schreef DaFan het volgende:
Ray: Maak een 'schaduw'kolom waarbij 1 = 18 t/m 18 = 1. Maak dan een 2e y-as aan in de grafiek, verberg de 1e en zet de 2e y-as aan de linkerkant.
Het is een beetje kloten want ik weet niet precies waar al die functies staan, maar je komt er denk ik wel uit
Dit werkt perfect. Iedere keer als het sjabloon geopend wordt, wordt het ordernummer met 1 opgehoogd (en daarna automatisch opgeslagen). Echter, als een bestaand bestand geopend wordt, wordt het ordernummer ook opnieuw gevuld.quote:Private Sub Workbook_Open()
Call LeesEnBewaarOrderNummer
End Sub
Sub LeesEnBewaarOrderNummer()
pad$ = "D:\"
controle = Dir(pad$ + "\OrderNummer.txt")
If controle = "" Then GoTo EerstAanmaken
Open pad$ + "\OrderNummer.txt" For Input As #10
Input #10, Nummer1
Close #10
EerstAanmaken:
Nummer1 = Nummer1 + 1
Open pad$ + "\OrderNummer.txt" For Output As #10
Print #10, Nummer1
Close #10
Application.Goto Reference:="Ordernr."
ActiveCell.FormulaR1C1 = Nummer1
End Sub
Het sjabloon is een blanco invulformulier (.xlt) welke voor iedere calculatie opnieuw kan worden gebruikt. Na het invullen wordt deze opgeslaan als een normaal Excel-bestand (.xls).quote:Op woensdag 5 november 2008 17:30 schreef DaFan het volgende:
Wat is het verschil tussen het openen van het 'sjabloon' en het bestand?
Je kan met een macro gewoon een textbestand inlezen (moet je ff Googlen, zelf nooit gedaan), dus je kan daar het ordernummer in kwijt en daarvan uitlezen/checken.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |