Příspěvky uživatele
< návrat zpět
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));" ");"")
lubo napsal/a:
Třeba RANDBETWEEN
Aj toto je dobrá odpoveď na "geniálnu" otázku.
No keďže príloha žiadna nie je, tak možno takto pre tri zošity
=SUM(SUMIF([Zošit2]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit2]Hárok1!$B$1:$B$10);SUMIF([Zošit3]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit3]Hárok1!$B$1:$B$10);SUMIF([Zošit4]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit4]Hárok1!$B$1:$B$10))
SUM=SUMA pre český excel
V bunke b1 na Hárku1 v Zošit1 je zadané konkrétne meno. Ale to asi nebude pre teba problém zistiť.
No nejaký spôsob by bol. Ale to by chcelo viac ako si uviedol. Čo napríklad robí ten hyperlink???
@Vovka
Makro som zobral z prílohy od Opičáka. Samozrejme že GoTo ex je zbytočné. Iba som tam vložil dva riadky. Nemám potrebu sa v tom ďalej špárať.
Urob si na to procedúru. Ani mne sa nechce pridávať prílohu. 
Merlin99 napsal/a:
Jen mě napadlo nebylo by možný aby se kazdy makro spustilo jen jednou i kdyz kliknu jinam do bunky tak se zpusti zase to same slo by to bez toho? díky moc
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K2")) Is Nothing Then
Application.EnableEvents = False
Select Case Range("K2")
Case 1: Call Makro1: GoTo ex
Case 2: Call Makro2: GoTo ex
Case 3: Call Makro3: GoTo ex
Case 4: Call Makro4: GoTo ex
Case 5: Call Makro5: GoTo ex
End Select
ex:
Application.EnableEvents = True
End If
End Sub
pepe74287 napsal/a:
eLCHa: Jednoducha a zaroven genialni myslenka :-)
Diky
Neviem prečo geniálna. Veď pomenovanie oblasti predsa slúži na podobné účely.
Uživatelské menu
\nMenu
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.
RSS nejnovější články