Hoi iedereen,
Ik heb een tabel kolom met zegmar kleuren,datum1,datum2,resultaat
Geel | 11-11-07 | 12-11-07 | 1
Groen | 12-01-07 | 01-01-07 | 0
enz...
De laatste kolom bevat een formule waarbij er wordt gekeken of datum2 groter is dan datum1 als dat zo is wordt er een 1 gezet anders een 0. Nou heb ik op een andere tabblad een formule gemaakt dmv IF functie waarin er de kleur, datum1, datum2 geplatst worden als resultaat 1 is. Tot zover gata alles naar wens, heellaas plaatst de formule regels met een FALSE of nul als de resultaat false is en wat ik wil is een schone lisjt met alleen kleuren waar resultaat 1 is. Ik heb gedacht aan een macro die regels verwijderd nadeel er van is dat rechts van mij tabel een andere tabel staat en die dus deels meeverwijderd word. Nou ben ik geen held met formules en heb niet echt een ideee hoe ik dit verder aan zou moeten pakken. Alle hulp is welkom!
IF formule:
=IF(Tracker!L3;Tracker!I3;)
MACRO:
Ik heb een tabel kolom met zegmar kleuren,datum1,datum2,resultaat
Geel | 11-11-07 | 12-11-07 | 1
Groen | 12-01-07 | 01-01-07 | 0
enz...
De laatste kolom bevat een formule waarbij er wordt gekeken of datum2 groter is dan datum1 als dat zo is wordt er een 1 gezet anders een 0. Nou heb ik op een andere tabblad een formule gemaakt dmv IF functie waarin er de kleur, datum1, datum2 geplatst worden als resultaat 1 is. Tot zover gata alles naar wens, heellaas plaatst de formule regels met een FALSE of nul als de resultaat false is en wat ik wil is een schone lisjt met alleen kleuren waar resultaat 1 is. Ik heb gedacht aan een macro die regels verwijderd nadeel er van is dat rechts van mij tabel een andere tabel staat en die dus deels meeverwijderd word. Nou ben ik geen held met formules en heb niet echt een ideee hoe ik dit verder aan zou moeten pakken. Alle hulp is welkom!
IF formule:
=IF(Tracker!L3;Tracker!I3;)
MACRO:
code:
1
2
3
4
5
6
7
8
9
| Sub DeleteRowsWithZeroVal()
Dim DelRows As Long
For DelRows = 84 To 53 Step -2
If Worksheets("Load Formulas").Range("a" & CStr(DelRows)).Value = 0 Then
Worksheets("Load Formulas").Rows(CStr(DelRows) & ":" & CStr(DelRows)).Delete shift:=xlUp
End If
Next
End Sub |