Jeg har støtt på en ny utfordring:
Har et script som fyller visse celler i en range med en bakgrunnsfarge:
SPOILER ALERT! Vis spoiler
Kode
Private Sub skjemaOK_Click()
Dim lngRow As Long
Dim lngCol As Long
'Fjerner farge i alle celler
ThisWorkbook.ActiveSheet.Cells.ClearFormats
'figurens høyde og bredde
Range(Cells(2, 2).Address(), Cells(høydeBoks * 2 + 2, breddeBoks * 2 + 2).Address()).Interior.ColorIndex = 15
'tegner inn ruter
For lngRow = 3 To (høydeBoks * 2 + 2) Step 2
For lngCol = 3 To (breddeBoks * 2 + 2) Step 2
With ActiveSheet
.Cells(lngRow, lngCol).Interior.ColorIndex = 2
End With
Next lngCol
Next lngRow
'lukker userform
Unload byggInfo
End Sub
Hvis høydeBoks.value = 4 og breddeBoks.value = 3 blir figuren slik:
Dette kjøres når jeg klikker OK i en userform.
Jeg ønsker å aktivere dobbeltklikk-event for de samme cellene. Altså, når userform lukkes skal det skje noe når jeg dobbelklikker de hvite cellene.
Jeg forstår ikke hvordan dette skal gjøres når jeg ikke kan legge inn en sub som aktiverer dobbelklikk-event inni skjemaOK_click-subben. Håper dette gir mening.