• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

A taký filter by ti nestačil?

A zobrazenie -> lupa si skúšal?

A prečo nepriložíš súbor ako ostatní?

A taký SINUS by si nechcel? Aj ten je v exceli.
A čo tak zobrať si učebnicu štatistiky?

Ešte si zabudol poďakovať.

@elninoslov.
No keď je zadanie diletantské, tak ťažko možno očakávať perfektné riešenie.
Raz napíše:"ale jen dokud nepride nejaky cislo vetsi jak nula."
Potom zase: "kolik nul je od zacatku do tehdy nez pride nejaky cislo"

Ani Einstein by to nevedel, nieto ešte nejaký PhD.

No ak by ten LABEL bol prekážkou, tak takto
Sub aaa()
Columns(WorksheetFunction.Match(10, Range("1:1"), 0)).Delete
If WorksheetFunction.CountIf(Rows(1), 10) > 0 Then Call aaa
End Sub

Úplne blbuvzdorné to nie je. Ak v riadku nebude žiadna hodnota 10, tak to skončí chybou.

No na rekurziu by to išlo aj takto. Skončí to síce chybou, ale zadanie splní.
Sub rekur()
Columns(WorksheetFunction.Match(10, Range("1:1"), 0)).Delete
Call rekur
End Sub

Takže takto?
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).Replace What:="10", Replacement:="=na()", LookAt:=xlWhole
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).SpecialCells(xlCellTypeFormulas, 23).EntireColumn.Delete

Za predpokladu že sa tam nenachádza prázdna bunka asi takto

Range(Cells(1, 1), Cells(1, 1).End(xlToRight)).Replace What:="10", Replacement:=""
Selection.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

Keby len vzorec. Celé zadanie je akési divné.

Ale fungovala. Keď nenašla, tak zahlásila chybu.

Ano hloupá otázka. Nikto netuší o čo tu ide.

Možno =SUMA(99;A1:X1)

=IFERROR(IF(FIND("A";A1;1);MID(A1;1;FIND("C";A1;2));" ");"")

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje