Frage : Makro übertreffen innen nicht, tuend, was ich denke, dass der Code bittet?

Ich habe ein Makro innen übertreffe und anpaßte es, um einiges mit einzuschließen notiert, wenn furmulas

one der Teil des Codes supossed, um A1 oben zu schauen und wenn leere dann auserwählte gesamte Spalte und delete.

I die folgende Formel auf die folgenden Arten versucht haben. Alle liefern gelegentliche Resultate:

Spalten („B: B“). Select
, wenn IsEmpty (B1) Then
Application.CutCopyMode = False
Selection.Delete Verschiebung: =xlToLeft
Ende If

Or


, wenn IsEmpty (B1) Then
Spalten („B: B“). Select
Application.CutCopyMode = False
Selection.Delete Verschiebung: =xlToLeft
Ende If

Or Spalten („B: B“). Select
, wenn (B1) = "" Then
Application.CutCopyMode = False
Selection.Delete Verschiebung: =xlToLeft
Ende If



All von diesen sehen Sie das Makro, die Spalte und dann auf etwas colums vorzuwählen, die sie löscht, wenn A1 usw. etwas in ihm hat und auf anderen es das opposite
tut

Antwort : Makro übertreffen innen nicht, tuend, was ich denke, dass der Code bittet?

Und die gesamte Spalte für die erste Raumzelle (innerhalb des usedrange) in Reihe 1 zu löschen konnten Sie dieses versuchen - wenn die Zelle wirklich leer ist

Beifall

Dave

1: 2: 3: 4: 5: 6:

VorKillA () Schwaches rng1 als Strecke Auf Störungs-Zusammenfassung zunächst Einstellen rng1 = Reihen (1).SpecialCells (xlBlanks) Wenn nicht rng1 nichts dann rng1.Cells ist (1).EntireColumn.Delete Unterseeboot beenden