Vraag : De macro blinkt binnen het doen van uit welk niet ik denk de code vraagt?

Ik heb een macro uitblink en aanpaste het binnen geregistreerd om wat te omvatten als furmulas

one van de code supossed is om op A1 te kijken en als de lege dan uitgezochte volledige kolom en delete.

I de volgende formule op de volgende manieren hebben geprobeerd. Alle opbrengs willekeurige resultaten: /> Kolommen

als IsEmpty (B1) Then
Application.CutCopyMode = de Verschuiving van False
Selection.Delete: =xlToLeft
Eind If

Or


als (B1) Then
Kolommen IsEmpty („B: B“). Select
Application.CutCopyMode = de Verschuiving van False
Selection.Delete: =xlToLeft
de Kolommen van If

Or („B: B“). Select
als (B1) = "" Then
Application.CutCopyMode = de Verschuiving van False
Selection.Delete: =xlToLeft
het Eind If



Elk van deze u ziet de macro selecterend de kolom en dan op sommige colums schrapt het als A1 enz. iets daarin heeft en op anderen doet het opposite

Antwoord : De macro blinkt binnen het doen van uit welk niet ik denk de code vraagt?

En om de volledige kolom voor de eerste lege cel (binnen usedrange) in rij 1 te schrappen kon u dit proberen - als de cel echt leeg is

Juicht toe

Dave

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

Sub KillA () Schemerige rng1 als Waaier Op Fout hervat daarna Plaats rng1 = Rijen (1) .SpecialCells (xlBlanks) Als niet rng1 niets toen rng1.Cells (1) .EntireColumn.Delete is Beëindig Sub