Deze formule kloppend maken??

[TIMO83]

bij de volgende formule wil ik dat de cellen die gevuld zijn met een 0 in het werkblad komen relaties en de 1 op het werkblad clusters. Maar hij wil niet werken, kan iemand mij vertellen wat ik fout doe???

Sub Macro2()
If ("D43500") = "1" Then macro3
If ("D43500") = "0" Then Macro4
End Sub
Sub Macro4()
Select Case ("D43500")
If objcel.Value = "0" Then
Range("a" & objcel.Row).EntireRow.Copy _
Destination:=Sheets("Relaties").Range("A" & i)
End If
End Sub
Sub macro3()
Select Case ("D43500")
If objcel.Value = "1" Then
Range("a" & objcel.Row).EntireRow.Copy _
Destination:=Sheets("Clusters").Range("A" & i)
End If
End Sub

 

[RGTMO]

Als je je code wat netjeser neerzet en je probleem wat beter omschrijft misschien wel ja

 

[jheesterbeek]

Ik heb de indruk dat je IF-statements en CASE-statements door elkaar gebruikt
Verder maak je gebruik van "i" om waarden naartoe te kopieren, maar "i" is niet gedifinieerd

Laat eens weten wat je wilt beriken en plaats eventueel een (gezipte) voorbeeldfile. Dat maakt adviseren makkelijker

John