MS Excel

Téma: Odstranění celého sloupce

Zaslal/a Poseidon 27.3.2017 12:23

Dobrý den,

neuměl by, prosím, někdo napsat jednoduché makro, které by odstranilo celý sloupec, kdyby na konci tabulky našlo v konkrétní buňce číslo 999?

Např. pokud B36 = 999, pak odstraň sloupec B, pokud X36 = 999, pak odstraň sloupec X atd.

Tabulka je až po sloupec Z a řádek s hodnotou (999) je vždy konstatntní (36.).

Děkuji mnohokrát za případné návrhy.

Zaslat odpověď >

elninoslov(27.3.2017 12:46)#035785

Príklad:
Sub OdstranSloupce()
Dim i As Integer, rngDEL As Range, Radek()
Const HDN = 999
With Worksheets("Data")
Radek = .Range("A36:Z36").Value
For i = 1 To UBound(Radek, 2)
If Radek(1, i) = HDN Then
If rngDEL Is Nothing Then Set rngDEL = .Columns(i) Else Set rngDEL = Union(rngDEL, .Columns(i))
End If
Next i
If Not rngDEL Is Nothing Then rngDEL.Delete: Set rngDEL = Nothing
End With
End Subcitovat

Poseidon(27.3.2017 12:57)#035787

Dobrý den,

děkuji za rychlou odpověď. Vyzkouším a dám vědět.

Poseidoncitovat

Poseidon(30.3.2017 10:42)#035867

elninoslov: Děkuji mnohokrát, pracuje to výborně! :-)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.