MS Excel

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

Zaslal/a r4ms3scz 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

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

eLCHa(29.4.2014 13:40)#019187

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 Subcitovat

r4ms3scz(29.4.2014 13:50)#019188

Luxusní, moc děkuji. Tohle bych v životě z hlavy nedostal :(citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.