Zelle finden, aktive Zelle machen und wiederholen

Ich habe diesen einfachen Code beim Start zu starten, es funktioniert gut, außer ich brauche es, um die aktuelle Zelle mit der "True" -Anweisung ActiveCell zu machen und den "Call" darauf ausführen ActiveCell, und gehen Sie dann zum nächsten "wahren" Fund und machen Sie das ActiveCell und wiederholen Sie den Vorgang.Zelle finden, aktive Zelle machen und wiederholen

For Each c In sheet1.Range("AU5:AU1000")  
    If c.value = True Then  
     Call startup.VALUES  
    End If  
Next c

Problem ist es, alle „wahren“ Werte findet, sondern wiederholen Sie den Vorgang auf aktuellen ActiveCell

Quelle

2017-04-01 Werner Du Preez

Wo befindet sich Ihr Code? ist es in einem Event-Handler oder in einem Standard-Modul? – user3598756

Bitte teilen Sie auch Ihr anderes Modul 'startup.VALUES'. Sind sie im selben Modul? befindet sich einer von ihnen in einem Arbeitsblattmodul? –

Wenn Sie dabei helfen können, werde ich den Rest tun: Für jede c In sheet1.Range ("AU5: AU1000") Wenn c.value = True Dann 'etwas hier, die Zelle neben "wahr" versetzt und lässt sagen Sie setzen einen Wert von "1" dort Ende Wenn Nächste c –

Versuchen Sie, „True“ zu dem Unter „Startup“, wenn „True“ zu senden ist der Wert der Zelle?

Dim rng As Range, c As Range 

Set rng = Worksheets("Sheet1").Range("AU5:AU1000") 

For Each c in rng 
    If c.value = True Then 
    valToSend = c.value 
    Call startup(valToSend) 
End If 
Next c

Ich kann das nicht testen, da ich auf meinem Handy bin.

Quelle

2017-04-02 00:19:44 billcw

Zelle finden, aktive Zelle machen und wiederholen

Antwort

Verwandte Themen