Zie het even niet meer :-(

[NajKwin]

Hallo,

Ik heb een bestand gemaakt wat op zich doet wat hij moet doen.

Maar op de radiobutton wil ik graag een msgbox zetten die je herinnert aan dat je een geslacht en moet aangeven of het nieuwe ouders betreft.

Nu lukt me dat ook nog wel maar waar plaats ik die dan.

Ben als aan het proberen geweest en waar die nu staat komt de invoer er dan 2 keer in te staan zet ik hem hoger dan word en de autonummering niet uitgevoerd en het geslacht niet ingevuld.

Wie kan en wil mij op weg helpen?

GR Jan

 

[edmoor]

Probeer dat stukje eens zo:

[COLOR="#008000"]'Geslacht[/COLOR]
If Not opt_man And Not opt_vrouw Then
    MsgBox ("Geef een geslacht op")
    Exit Sub
End If
ws.Cells(iRow, 2).Value = IIf(opt_man, "Man", "Vrouw")

En dan maar hopen geen problemen te krijgen wegens geen genderneutraliteit
Voorkom ook het gebruik van uitroeptekens in een berichten venster.

 

[NajKwin]

Hallo Edmoor,

Dank je probleem wat de MSGbox opgelost. Loop nu nog tegen een ander probleempje aan.

De autonummering in kolom A stagneert enig idee hoe dat kan?

Gebruik daar voor de volgende Code in Blad1(LL):

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = 3 Then    'Kolom voor invoer

    If Target.Offset(0, -1).Value = "" Then
       Target.Offset(0, -2).Value = Application.WorksheetFunction.Max(Columns("A")) + 1 'rij voor mummering
    End If
End If
Range("B13:d100").Sort key1:=Range("d13")
'Columns(4).NumberFormat = "dd-mmm-yyyy"
End Sub

GR Naj

 

[edmoor]

Dat "stagneert" zegt niks.
Leg precies uit wat er niet goed gaat.

 

[NajKwin]

Hallo Edmoor,

Als ik die controle op de radiobuttions weghaal telt hij in kolom A na invoer gewoon door.

en met de controle telt hij niet meer op (dat bedoel ik met stagneert)

 

[edmoor]

Dat zou raar zijn.
Als geen Man of Vrouw is aangevinkt krijg je de melding dat dat moet gebeuren.
Als 1 van de 2 wel is ingevuld gaat de code gewoon door.
Laat dus zien wat je nu hebt, dus hoe je mijn voorbeeld hebt toegepast.

 

[NajKwin]

Bij deze

 

[edmoor]

Dat heeft niets met de controle te maken.
De code in de Worksheet_Change doet alleen z'n werk als de actieve kolom C is.
Zet er dus dit eens in voor de controle op geslacht:

ws.range("C" & activecell.Row).select

 

[NajKwin]

Hallo Edmoor,

ws.range("C" & activecell.Row).select

Geeft helaas niet het gewenste resultaat.

Wat ik dan zo vreemd vind. Als ik die controle weg haal doet hij het wel gewoon

 

[edmoor]

Ik ook.
Zal er vanavond nog eens naar kijken.

 

[NajKwin]

Hallo Edmoor,

Ik ben nog even aan het stoeien geweest en heb het gevonden denk ik

Ik ben nog even aan het stoeien geweest met "De code in de Worksheet_Change"
er stond:

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = 3 Then    'Kolom voor invoer

    If Target.Offset(0, -1).Value = "" Then
       Target.Offset(0, -2).Value = Application.WorksheetFunction.Max(Columns("A")) + 1 'rij voor mummering
    End If
End If
Range("B13:d100").Sort key1:=Range("d13")
'Columns(4).NumberFormat = "dd-mmm-yyyy"
End Sub

en heb er van gemaakt

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = [COLOR="#FF0000"][B]5[/B][/COLOR] Then    'Kolom voor invoer

    If Target.Offset(0, -1).Value = "" Then
       Target.Offset(0, [COLOR="#FF0000"][B]-4[/B][/COLOR]).Value = Application.WorksheetFunction.Max(Columns("A")) + 1 'rij voor mummering
    End If
End If
Range("B13:d100").Sort key1:=Range("d13")
End Sub

Nu telt hij wel door
m.v.g

Naj Kwin