abonnement Unibet Coolblue
pi_57919593
Het grote Excel vragen topic deeltje 5 al weer

Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!!
Tip 3: Zet macrocode even tussen [ code ] tags

Voorgaande deeltjes met veel informatie:

[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
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
pi_57919754
Volgens mij waren alle vragen uit het vorige topic al beantwoord, zo niet dan horen we het wel.
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
pi_57924048
nou jongen, je topic is er dan!! Ik zal morgen testen of je tip werkte, zo niet zie je het hier wel verschijnen
  dinsdag 8 april 2008 @ 23:51:59 #4
163252 Noway666
Nee weg nr666
pi_57924122
Ja leuke vraag heb ik even.

Als ik een lijst met gegevens heb uit een csv bestand en ik loop deze door dan is de 1-ste regel, waarin de kolomnamen niet meer zichtbaar.
Je kan met een soort van anchor of andere highlight deze altijd mee laten lopen als je scrollt. Hoe doe je dat ook alweer.
pi_57924528
Tweede rij selecteren, Window -> Freeze panes
pi_57927716
Deeeeeetch!!!! :P
quote:
Op dinsdag 8 april 2008 21:24 schreef Deetch het volgende:
als je de regels 2 tm 10 van je bericht van maandag 7 april 2008 @ 09:31 steeds direct boven de end sub kopieert en dan de celverwijzingen aanpast zou het goed moeten gaan.
Kan vast mooier maar het zou wel moeten werken.
Werkt niet ;(

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then
   If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then
    MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!"
   End If
  Else
Exit Sub
End If

  If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then
   If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then
    MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!"
   End If
  Else
 Exit Sub
End If

End Sub


De eerste werkt wel, de tweede niet. Krijg ook geen foutmelding o.i.d trouwens, gewoon.. niks? :P
pi_57927856
Uhm, als je eerste if niet geldt dan gaat hij uit de sub (in die else) toch? Dus je onderliggende code is onbereikbaar in dat geval. Als beide ifs tegelijk kunnen (ik ken de context van dit geval niet), dan heb ik niets gezegd
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
pi_57927967
quote:
Op woensdag 9 april 2008 09:22 schreef Pheno het volgende:
Uhm, als je eerste if niet geldt dan gaat hij uit de sub (in die else) toch? Dus je onderliggende code is onbereikbaar in dat geval. Als beide ifs tegelijk kunnen (ik ken de context van dit geval niet), dan heb ik niets gezegd :)
Je hebt gelijk, maar in een andere macro werkt het wel, op dezelfde manier. Maar ik ben es gaan kijken naar wat je zegt, en inderdaad.. door de 'end sub' eruit te slopen werkt het wel:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then
If Range("L3").Value > Date - 1 And Range("L3").Value < Date + 14 Then
    MsgBox "De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!"
End If
Else
End If

If Not Application.Intersect(Target, Me.Range("L5")) Is Nothing Then
If Range("L5").Value > Date - 1 And Range("L5").Value < Date + 14 Then
    MsgBox "1De aanvraag vindt plaats binnen 2 weken voor de ingangsdatum. Hiervoor gaarne de reden opgeven onder het kopje 'Toelichtingen' onderaan de pagina. Daarnaast wordt u verzocht contact op te nemen met 9876-123456", vbMsgBoxSetForeground, "FOUT BIJ INGEVOERDE DATUM!"
End If
Else
End If

End Sub
pi_57928217
Bij die andere macro zou het zo kunnenz ijn dat de eerste if waar was (dus uitgevoerd) en dan wordt er nog gechecked op de volgende if.
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
pi_57928435
Beide keer Else mag je in dit geval ook weglaten
  woensdag 9 april 2008 @ 10:28:00 #11
163252 Noway666
Nee weg nr666
pi_57929058
quote:
Op woensdag 9 april 2008 00:05 schreef DaFan het volgende:
Tweede rij selecteren, Window -> Freeze panes
Tnx, wist even niet waar ik op moest zoeken en heb weer alles op moeten spitten omdat ik een nederlandse excel heb.
Daar is het dus "venster -> titels blokkeren". Kut vertalingen.
pi_57929486
Ja sorry ik kon niet op de Nederlandse tekst komen. Maarja niet meer vergeten
pi_57934005
Hmm ik heb een vakje waarin een tijd (geen datum dit keer ) ingevoerd moet worden in digitale versie. (treintijd ) Maar nu ziet hij tijdstip 0:00 niet als tijd, en maakt de cel weer leeg na invoeren. 0:01 en 23:59 ziet hij wel goed, behalve 0:00, hij ziet dit als 'geen data' denk ik..?
pi_57934135
Options -> Display options -> Show zero in cells that have a zero value.
pi_57951495
quote:
Op woensdag 9 april 2008 14:08 schreef DaFan het volgende:
Options -> Display options -> Show zero in cells that have a zero value.
Ik heb hem in het nederlands, en met vertalen/fantasie kom ik nergens waar dat op lijkt..?
pi_57951639
In office 2003: tools->options->view tabblad (staat het al op) en dan zero values aanvinken
Ik weet niet welke versie je hebt?
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
pi_57951668
juistem, thnx
pi_57952467
2007 heb ik, vandaar.
pi_57952702
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
pi_57952740
quote:
Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
Horror als je ze inderdaad allemaal nodig hebt
pi_57952928
quote:
Op donderdag 10 april 2008 10:59 schreef Thrilled het volgende:

[..]

Horror als je ze inderdaad allemaal nodig hebt
Tja, als je een tekstlogging hebt van 160 mb die je eens netjes doorzoekbaar wilt maken
Maar goed, het gaat er om dat je workarounds hebt, dus alles is op te lossen
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
pi_57953256
Ah, dat is wel handig. tegen de tijd dat mijn baas bedenkt dat we allemaal aan de office 2007 moeten dan laat ik hem dat stukje software wel zien.
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
  donderdag 10 april 2008 @ 11:26:37 #24
85514 ralfie
!Yvan eht nioj
pi_57953363
quote:
Op donderdag 10 april 2008 10:57 schreef Pheno het volgende:
Dat dacht ik al, daarom altijd naar de versie vragen
Waarom MS altijd die menustructuur moet aanpassen is me een raadsel, maar goed.
Laat ze maar eens eerst meer rijen dan 65636 ondersteunen in Excel 2003, daar erger ik me dan weer dood aan
vind de max van 256 rijen erger (althans voor office 97). Kan geneens een jaaroverzicht maken voor alle dagen van een jaar...
pi_57953554
Tweede worksheet maken? Of een worksheet per maand met max 31 rijen , zodat je naast een jaaroverzicht (die dan in 12 rijen nodig heeft) ook een prima maandoverzicht hebt? Of als je het een beetje slim aanpakt uit de maandoverzichten, ook een jaaroverzicht kan genereren?
Op dinsdag 21 februari 2012 22:30 schreef JoanFranka het volgende:
PINGUINS RULEREN!! Dat zijn echt een van de grappigste dieren op aarde hahahaa
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')