Samsung6713
Gebruiker
- Lid geworden
- 24 dec 2019
- Berichten
- 209
Goedeavond,
Ik heb de volgende code
in combinatie met een selection change event, die een combobox opent op iedere cel die gegevensvalidatie bevat.
Ik gebruik die code gelijk om een aantal query's te refreshen bij het veranderen rij.
Nu heb ik het bestand aangepast en bevat de laatste kolom geen gegevensvalidatie en worden de query's niet gerefreshd.
Hoe krijg ik het voor elkaar dat deze query's gerefreshd worden bij het veranderen van rij?
Ik heb de volgende code
Code:
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 9 'Tab
If Columns(ActiveCell.Offset(0, 1).Column).Hidden Then
ActiveCell.Offset(1, -7).Activate
With Worksheets("planning")
.ListObjects(1).QueryTable.Refresh BackgroundQuery:=True
.ListObjects(2).QueryTable.Refresh BackgroundQuery:=True
.ListObjects(3).QueryTable.Refresh BackgroundQuery:=True
.ListObjects(4).QueryTable.Refresh BackgroundQuery:=True
.ListObjects(5).QueryTable.Refresh BackgroundQuery:=True
.ListObjects(6).QueryTable.Refresh BackgroundQuery:=True
End With
Else
ActiveCell.Offset(0, 1).Activate
End If
Case 13 'Enter
ActiveCell.Offset(1, 0).Activate
Case Else
'do nothing
End Select
End Sub
in combinatie met een selection change event, die een combobox opent op iedere cel die gegevensvalidatie bevat.
Ik gebruik die code gelijk om een aantal query's te refreshen bij het veranderen rij.
Nu heb ik het bestand aangepast en bevat de laatste kolom geen gegevensvalidatie en worden de query's niet gerefreshd.
Hoe krijg ik het voor elkaar dat deze query's gerefreshd worden bij het veranderen van rij?