Code aanpassen voor kalender in te voegen.

[danny147]

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.

If Target.Column = 1 Then
Userform1.Show

Groetjes Danny. :thumb:

 

[danny147]

Beste,

Ben al een stapje dichterbij geraakt met de volgende 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:

 

[Roncancio]

En als je Offset gebruik in combinatie met de Target?

Bijv.:

Target.Offset(0,1).Select

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

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

ActiveCell.Offset(0, 1).Select

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

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:

 

[Roncancio]

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:

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

 

[snb]

Staat hier al voor je klaar.

 

[leofact]

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

 

[DCWDPT]

@ Leofact,

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

 

[Warme bakkertje]

Voor, de gëinteresseerden

Mvg

Rudi

 

[danny147]

Beste Roncancio

De volgende code werkt:

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

Target.Offset(0, 1).Select

aan toevoegen, dan gaat het fout.
En de End If wil hij niet aanvaarden.

Deze werkt ook perfect:

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:

 

[Warme bakkertje]

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

    ActiveCell.NumberFormat = "dd/mm/yyyy"
[COLOR="Red"]Me.Hide[/COLOR]
End Sub

 

[danny147]

Beste Warme bakkertje

Ik wil verder werken met de volgende 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

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:

 

[Warme bakkertje]

Bij deze

 

[danny147]

Beste Warme bakkertje

Sorry, je had het wel bij het rechte eind

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

Bedankt Rudi.

Groetjes Danny. :thumb: