< návrat zpět

MS Excel


Téma: VBA\Smazání sloupců s podmínkou rss

Zaslal/a 29.4.2014 13:19

Ahoj,

chtěl bych poprosit o pomoc.

Potřebuji vytvořit makro, které smaže sloupec za podmínky, ze buňky v daném sloupci budou prázdné. Pokud byť jedna buňka ve sloupci bude čímkoliv vyplněna, sloupec ponechat. Sloupec vyhodnocovat od druhé buňky do buňky 10 001, takže např. A2:A10001. vyhodnocovat každý sloupec zvlášť a vyhodnocovat sloupce A až např BZ (A:BZ). Nevyhodnocovat první buňku ve sloupci, tam vždy bude hlavička.

snažil jsem se na to přijít sám, ale vždy mi z toho vylezl nějaký paskvyl :( který se choval nevyspitatelne.

Děkuji 1

stop Uzamčeno - nelze přidávat nové příspěvky.

icon #019187
eLCHa
Sub subDeleteEmtyColumns()
Dim rCol As Range, rDel As Range
For Each rCol In Range("A2:BZ10001").Columns
If Application.WorksheetFunction.CountBlank(rCol) = rCol.Rows.Count Then
If rDel Is Nothing Then
Set rDel = rCol
Else
Set rDel = Union(rDel, rCol)
End If
End If
Next rCol
Set rCol = Nothing

If Not rDel Is Nothing Then
rDel.EntireColumn.Delete
Set rDel = Nothing
End If
End Sub
citovat
#019188
avatar
Luxusní, moc děkuji. Tohle bych v životě z hlavy nedostal :(citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09