Nullwerte basierend auf einem anderen Zelleninhalt

Ich bin nach ein bisschen Code bitte.Nullwerte basierend auf einem anderen Zelleninhalt

Ich möchte Spalten AB, AD, AF, AL, AN, AP alle auf 0 zurückgesetzt, wenn Spalte Q geschlossen ist. Dies gilt für jede Zeile.

Quelle

2016-07-13 Chris

Was haben Sie versucht, so weit? –

Erforschen Sie das Ereignis "Worksheet_Change" und prüfen Sie, ob das Ihren Anforderungen entspricht. – arcadeprecinct

Public Sub SetZeroForClosed() 
 
Dim TRange As Range 
 
    Set TRange = ActiveSheet.UsedRange 
 
    For i = 1 To TRange.Rows.Count 
 
If VBA.LCase(VBA.Trim(TRange.Cells(i, 17).Value)) = VBA.LCase("Closed") Then 
 
    TRange.Cells(i, 28).Value = 0 
 
    TRange.Cells(i, 30).Value = 0 
 
    TRange.Cells(i, 32).Value = 0 
 
    TRange.Cells(i, 38).Value = 0 
 
    TRange.Cells(i, 40).Value = 0 
 
    TRange.Cells(i, 42).Value = 0 
 
End If 
 
    Next i 
 
End Sub

Quelle

2016-07-13 11:09:58

Verwenden Sie diesen VBA-Code und in Makro, haben Sie eine Idee, richtig, wie Sie diesen Code ausführen und ausführen. –

Ja lief es hält mir einen Kompilierfehler – Chris

senden Sie mir Snap dieses Fehlers, sowie das Snap des Codes –

Nullwerte basierend auf einem anderen Zelleninhalt

Antwort

Verwandte Themen