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

Příspěvky uživatele

Na liste B je v I1 teraz aktuálny dátum vložený funkciou, ak si tam chcete napísať iný dátum, len funkciu prepíšte iným dátumom.

@Tartyf: Skúste toto. Vysporiada sa to aj s hromadnou zmenou. Posledné AKTIVACE sú vždy na konci. Na konci makra si len zvoľte či to chcete mať na druhý list, alebo na ten istý (v tomto prípade premiestnite apostrof z toho Cells... na to Worksheets...).

@marjankaj: "nová záložka" Tartyf tým myslí nový list.

@xlnc: uživateľa Pitr tiež nechápem.

@Pitr: Skúste dať prílohu. Váš popis je pre Vás zrozumiteľnejší ako pre nás.

@xlnc: Dobrý návrh. Ak bude vyhovovať takéto riešenie, tak tu je jeden návrh:
=HYPERLINK("#'List1'!"&ADDRESS(1;MATCH(TODAY();List1!$1:$1;0));"Skok na List1")

Tak ?
Ak áno, tak si môžete previesť tabuľku na ExcelTable, a ten vzorček Vám bude samé pridávať do nových riadkov.

alebo niečo takéto bez cyklu:
Sub SkocNaDatum2()
Dim V
V = Application.Match(Format(Date, "d.m.yyyy"), Worksheets("List1").Rows(1).Value, 0)
If IsError(V) Then MsgBox ("Dátum " & Date & " sa na List1 nenachádza.") Else Worksheets("List1").Activate: Worksheets("List1").Cells(1, V).Select
End Sub

Public wbPracovni As Workbook

Sub pok1()
Set wbPracovni = ThisWorkbook
End Sub

Sub pok2()
MsgBox wbPracovni.Name
End Sub

To nastavenie premennej urobte rovno v Workbook_Open
Ale prečo nepoužijete rovno volanie ThisWorkbook namiesto wbPracovni ?

PS: A naplnenie môžete robiť pri otvorení zošita
Private Sub Workbook_Open()
Call pok1
End Sub

Presne tak, skopírovať si najmä dlhší príspevok pred odoslaním, je veľmi dobré si osvojiť. Veľa krát pomohlo. Ale zase na druhej strane tu nie sú reklamy - zatiaľ.

No to nepôjde, pretože to je proti logike filtra. Ja som to čo požadujete sprevádzkoval tak, že som druhý list vôbec nepoužil. Stĺpce C:I som skopíroval do listu 1. Na A1:J1 som aplikoval štandardný filter (klik na lievik). Potom v C1 kliknite na šípku - Clear - AK. A máte to, môžete vypĺňať relevantné dáta v ostatných stĺpcoch. Ak chcete zobraziť/upravovať iné alebo všetky, tak opäť klik na šípku v C1 a Select All alebo Clear - FR (alebo čokoľvek iné).
Iba takto Vám ja dokážem pomôcť.
PS: Názov mesiaca by som vymenil s prvým riadkom, aby sa nevyfiltrovával.

OT: Keď už sa niečo dostane do červených čísel, tak za to väčšinou môže management

Podľa mňa bude potrebné, aby aj tie ostatné stĺpce boli v tej zdrojovej tabuľke v prvom liste.

Toto Vám vypíše ale aj keď pridávate prílohu priamo vo formáte XLS, alebo je príloha v RAR/ZIP väčšia ako 256 KB.

No skúsim to ešte raz. Odmyslite si tú medzikrokovú tabuľku, vôbec na ňu nemyslite, nemáte ju, nikdy ste ju nevideli. Viete ako by mal vyzerať výsledok v tej (nechcem povedať transponovanej) "poslednej" tabuľke. Viete aké výpočty nad dátami zo zdrojových tabuliek máte urobiť. Tak si tie výpočty urobte priamo vo vzorcoch, koncipované tak, že budú zohľadňovať rozdielnosť orientácie zdroj-cieľ. V prvom rade by sme potrebovali vidieť tie vzorce, aby sme usúdili, či sa to tak bude dať. Ak áno, môžete rovnako ako predtým urobiť jeden, a pretiahnuť ho.

Ak chcete makro, tak si to kludne urobte na tlačítko, ktoré Vám to preklopí, ale opäť treba myslieť na to, aký druh vzorcov tam je (a to tajíte), pretože na normálny vzorec použijete "bunka.Formula" ale na maticový "bunka.FormulaArray".

Niečo takéto, a to zavoláte tlačítkom:
Sub Rel2Abs()
Dim rng As Range, bunka As Range
On Error Resume Next
Set rng = Application.InputBox("Zadajte oblasť :", "Zmeniť relatívne odkazy na absolútne", Default:=Worksheets("List1").Range("B12:O17").Address(0, 0), Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each bunka In rng
If bunka.HasArray Then
If Len(bunka.FormulaArray) < 255 Then
bunka.FormulaArray = Application.ConvertFormula(Formula:=bunka.FormulaArray, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Else
If Len(bunka.Formula) < 255 Then
bunka.Formula = Application.ConvertFormula(Formula:=bunka.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
End If
Next bunka
End Sub

A nedajú sa Vám tie vzorce urobiť už priamo v tej transponovanej tabuľke, čiže bez medzikroku v tabuľke prvá+druhá?

xlnc myslel niečo takéto:

Ak by hrozilo, že sa bude zošit používať na inej jazykovej verzii Excelu ako CZ, tak si ten objekt obrázku premenujte. Ak je totiž objekt nazvaný defaultným menom, ktoré mu dá Excel, tak toto meno je lokalizované, a to znamená že na EN/SK Exceli sa bude hľadať lokalizovaný názov, čiže napr. Picture7. Bác, chyba makra. Akonáhle to ale premenujete, tak sa bude všade používať ten premenovaný názov.
Napr. takto to môžete premenovať:
http://wall.cz/index.php?m=topic&id=27237#post-27237

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse