Meerdere 'datapickers' op één blad.

[Meaurk]

Hallo,

Is het mogelijk om meerdere datapickers op één blad te maken?

Momenteel heb ik een datapicker actief wanneer je dubbelklikt op een cel in kolom L. Ik wil nu dat dit kolom J en L gaat worden. Vele mogelijkheden geprobeerd via andere forums, helaas krijg ik het niet aan de praat.

Hieronder de formulie die ik nu gebruik voor kolom L.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("L9:L" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
  Datapicker.Show
End Sub

Alvast bedankt!

 

[ExcelAmateur]

Meaurk,

Als je het zo gebruikt werkt het dan?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("J1:L100" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub
  Datapicker.Show
End Sub

 

[Meaurk]

Dat werkt inderdaad, alleen heeft kolom K dan ook de datapicker. Echter heeft kolom K een andere vba code. En mag deze dus geen datapicker hebben.

 

[ExcelAmateur]

Test het zo eens

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("J1:J100,L1:L100" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then Exit Sub  
  Datapicker.Show
End Sub

 

[Meaurk]

Het werkt helemaal, super!