eric2001
Terugkerende gebruiker
- Lid geworden
- 23 mrt 2001
- Berichten
- 1.600
Hallo,
Een vraagje voor de "macro-bakkers" onder ons.
De macro "balken" maakt in een selectie om en om gekleurde balken. Dit werkt goed.
De macro "lijnen" zet verticale lijnen in de selectie. Dit werkt goed.
Alleen, dan zijn mijn gekleurde balken verdwenen en andersom zijn mijn lijnen verdwenen.
Wat is hier fout?
Sub balken()
'
' balken Macro
' De macro is opgenomen op 22-3-2004 door Sparrow.
'
' Sneltoets: CTRL+b
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(RIJ(A1);2)=1"
Selection.FormatConditions(1).Interior.ColorIndex = 37
End Sub
Sub lijnen()
'
' lijnen Macro
' De macro is opgenomen op 11-3-2004 door Sparrow.
'
' Sneltoets: CTRL+l
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(KOLOM(A1);2)=0"
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Een vraagje voor de "macro-bakkers" onder ons.
De macro "balken" maakt in een selectie om en om gekleurde balken. Dit werkt goed.
De macro "lijnen" zet verticale lijnen in de selectie. Dit werkt goed.
Alleen, dan zijn mijn gekleurde balken verdwenen en andersom zijn mijn lijnen verdwenen.
Wat is hier fout?
Sub balken()
'
' balken Macro
' De macro is opgenomen op 22-3-2004 door Sparrow.
'
' Sneltoets: CTRL+b
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(RIJ(A1);2)=1"
Selection.FormatConditions(1).Interior.ColorIndex = 37
End Sub
Sub lijnen()
'
' lijnen Macro
' De macro is opgenomen op 11-3-2004 door Sparrow.
'
' Sneltoets: CTRL+l
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(KOLOM(A1);2)=0"
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub