• 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.

Code aanpassen voor kalender in te voegen.

Status
Niet open voor verdere reacties.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste, ;)

Wat ik zou willen is, van zodra ik een cel selecteer in kolom A, dat dan automatisch de kalender te voorschijn komt.
Na het ingeven van de datum moet de cel rechts geselecteerd worden.

Zie bestandje voor aan te passen.

Heb al wat zitten uitproberen met het volgende, maar zonder resultaat.

Code: 
If Target.Column = 1 Then
Userform1.Show

Groetjes Danny. :thumb:
 

Bijlagen

Beste, ;)

Ben al een stapje dichterbij geraakt met de volgende code:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Userform1.Show
End If
End Sub

Nu enkel nog dat de cel rechts naast de datum moet geselecteerd worden.

Groetjes Danny. :thumb:
 
En als je Offset gebruik in combinatie met de Target?

Bijv.:

Code: 
Target.Offset(0,1).Select

Met vriendelijke groet,


Roncancio
 
Beste Roncancio ;)

Had het nu juist ook gevonden, alleen is het bij mij:

Code: 
ActiveCell.Offset(0, 1).Select

Wat is nu het verschil tussen die twee en welke is nu de beste ?

Code: 
Target.Offset(0, 1).Select

Nog een probleempje opgedoken, nu kan ik ook geen enkel cel leegmaken.
Van zodra ik op de cel klikt komt de kalender te voorschijn.
Is dit te omzeilen ?

Groetjes Danny :thumb:
 
De actieve cel kan veranderd zijn, terwijl de Target cel de cel is die de Event activeerde.
Ik neem aan dat je alleen de kalender wilt zien als je bepaalde cellen van de A-kolom selecteert.
In dat geval:
Code: 
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then UserForm1.Show

Alleen als een cel in het bereik A1 T/m A10 wordt geselecteerd, verschijnt Userform1.

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
De bijlage bij de post van SNB zie ik niet, mogelijk moet je ingeschreven zijn?

Wanneer je de intersect van Rocancio combineert met een beforedoubleclick krijg je het volgende

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Userform1.Show
Cancel = True
End Sub

De cancel zorgt ervoor dat de dubbelklik ongedaan wordt gemaakt, je kunt natuurlijk ook de offset gebruiken.
De range is natuurlijk naar behoefte aan te passen

mvg leo
 

Bijlagen

Laatst bewerkt:
@ Leofact,

Inderdaad, je moet je even melden als lid van dat forum wil je een bijlage kunnen downloaden.
:thumb:
 
Beste Roncancio ;)

De volgende code werkt:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Userform1.Show
End Sub

Wil ik hier nu
Code: 
Target.Offset(0, 1).Select
aan toevoegen, dan gaat het fout.
En de End If wil hij niet aanvaarden.

Deze werkt ook perfect:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Userform1.Show
Target.Offset(0, 1).Select
End If
End Sub

Kan men eventueel de kalender sluiten van zodra men op een datum klikt.


@ leofact en snb

Bedankt voor jullie bijdrage, maar het was de bedoeling dat er niets anders kan geschreven worden in kolom A dan alleen maar datums.
Met BeforeDoubleClick kan men achteraf nog iets plaatsen in kolom A en dat mag niet.

Groetjes Danny. :thumb:
 
Code: 
Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

    ActiveCell.NumberFormat = "dd/mm/yyyy"
[COLOR="Red"]Me.Hide[/COLOR]
End Sub
 
Laatst bewerkt:
Beste Warme bakkertje ;)

Ik wil verder werken met de volgende code:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Userform1.Show
End Sub

Graag had ik deze code er in verwerkt gezien

Code: 
Target.Offset(0, 1).Select

Van zodra hij de datum plaatst in kolom A dat hij dan naar kolom B gaat en tergelijkertijd de kalender sluit.

Is dit mogelijk ?

Groetjes Danny. :thumb:
 
Beste Warme bakkertje ;)

Sorry, je had het wel bij het rechte eind :eek:

De code die je gaf zat achter de kalender en had er niet aan gedacht. :D

Bedankt Rudi.

Groetjes Danny. :thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan