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

Příspěvky uživatele

Vyskúšajte, či som Vás pochopil správne. Na červenú oblasť som Vám doplnil Overenie dát (ANO, NE), a na skrývanie riadkov je makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Riadok As Long, i As Integer, RNG As Range
If Not Intersect(Target, Cells(1, 8)) Is Nothing Then
On Error Resume Next
Riadok = WorksheetFunction.Match(Cells(1, 8), Columns(1), 0)
If Err = 0 Then
With Worksheets("1.SL")
For i = 1 To 17
If Cells(Riadok, 21 + i) = "NE" Then
If RNG Is Nothing Then Set RNG = .Cells(17 + i, 2) Else Set RNG = Union(RNG, .Cells(17 + i, 2))
End If
Next i
.Cells(18, 2).Resize(17).EntireRow.Hidden = False
If Not RNG Is Nothing Then RNG.EntireRow.Hidden = True
End With
Else
MsgBox ("Neregulérní hodnota řádku.")
Application.Undo
End If
End If
End Sub

Pred chvíľou som nad tým rozmýšľal presne rovnako, ako píšete. Veď to by malo byť principiálne úplne jedno. Tým pádom, je to warez, a to by sa tu riešiť nemalo.

Takže týmto ďakujem AL-ovi za usmernenie, a verejne prehodnocujem svoju snahu "pomôcť" Petr_07. Takže nie.

Áno, váhal som. A v SZ som dotyčnému uviedol, že ak to bude čokoľvek od vývojárov z tohto fóra tak do toho nejdem, a iné si ešte rozmyslím. Ale súhlasím s Vami, uvidím či mi príde nejaký súbor, a čo to bude ... rozhodnem sa následne.

Čo, kde, koho, kedy, kam ???
Absolútne netuším "wo co tady go". Prosím urobte ešte jednu prílohu, kde vyfarbíte na červeno, čo chcete kde zmeniť a na akú hodnotu, a na zeleno vyfarbíte čo by sa malo kde všade zobraziť. Lebo sa fakt v popise strácam.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RZdroj As Long, RCiel As Long, D As Date, Nazvy, i As Integer
If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
D = Cells(1, 1): Nazvy = Array("X", "Y", "Z")
On Error Resume Next
For i = LBound(Nazvy) To UBound(Nazvy)
With Worksheets(Nazvy(i))
RZdroj = WorksheetFunction.Match(Nazvy(i), Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row), 0)
RCiel = WorksheetFunction.Match(CLng(D), .Cells(1, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row).Value2, 0)
If Err = 0 Then .Cells(RCiel, 2).Resize(1, 6).Value = Cells(RZdroj, 2).Resize(1, 6).Value Else Err.Clear
End With
Next i
End If
End Sub

Skúste

Urobte zo svojho súboru jednoduchú kópiu, s pár riadkami v každom liste, citlivé firemné info nahradte somarinami, a pošlite nám prílohu (zabaliť do ZIP/RAR). Určite Vám niekto skôr pomôže, ak si nebude musieť vymýšľať štruktúru dát, a následne ju po piatich konzultáciách úplne prekopávať...

SZ

Ten Váš príklad aj tak nedáva zmysel. To Vám stačí len vypísať pomocou COUNTIF počet výskytov, a nie (stále tie isté) vypisovať, daný počet krát. Skôr ma napadá druhá metóda. Kontrola obsahu bunky na hodnotu. Viď posledná pridaná položka v hodnotách a druhá metóda.

Prílohu musíte zabaliť do formátu ZIP alebo RAR, inak Vám ju nezoberie. Alebo iba za názov súboru na koniec za príponu ".XLSX" pripíšte ".ZIP", ale dopredu na to upozornite :)

Opäť vymýšľanie bez prílohy...

Buď ste to neskúšal na súboroch, so skladbou akou ste poslal, alebo ste si iba skopíroval makro (bez vytvoreného pripojenia na import XML), alebo neviem čo. Ja som to teraz skúšal prehodiť do rôznych adresárov, premenovať, meniť počet súborov, obsah súborov, počet riadkov DETECTION v súboroch. Bez problémov. Na Office 2013 x64 Pro SK a Win 8.1.1 x64 SK Pro.
Máte pripojenie na karte Údaje - Pripojenia - Názov pripojenia - Vlastnosti - Definícia - Súbor prepojenia ?
Robil som to takto :
Údaje - Z iných zdrojov - Z importu údajov XML - vybral som prvý XML súbor. Vypíše, že zadaný zdroj neobsahuje schému, potvrdím. Nechám vybrané Tabuľka XML v existujúcom hárku - $A$1 - Vlastnosti - Názov "SEARCH_Map", voľby nastavím na Nie, Áno, Áno, Áno, Áno, Pripojiť nové údaje k existujúcim tabuľkám XML - OK. Ešte raz OK, a načíta mi do tabuľky ten súbor ktorý som zadal. V tomto momente máme prepojenie. Môžeme nakopírovať a makro NESPÚŠŤAŤ (pozor na názov "SEARCH_Map", ak ste dal iný, treba v makre zmeniť). Rovnako buď si zmente názov objektu Tabuľka tak ako sa volá v mojom príklade "tblImport", alebo inak, každopádne opäť treba v makre nastaviť správny názov.
Súbor najskôr uložíme, lebo makro berie cestu k súborom predvolene tak, že cesta kde sa nachádza tento súbor XLSM + podadresár s XML súbormi
.Path & "\XML súbory\"
ak to chcete inak, opäť to upravte.
Spustite makro.
MUSÍ Vám to ísť. Pozrite sa, čo som kvôli Vám popísal, podrobný a presný návod, na rovnakom Office, niekoľkokrát skúšal, a funguje. Na dátach, ktoré mám.

EDIT:
Ešte ma napadlo, že ak sa pokúsite vymazať už raz vymazanú oblasť DataBodyRange Tabuľky, tak to samozrejme nepôjte, tak si ten riadok
.DataBodyRange.Clear
zmente na
On Error Resume Next
.DataBodyRange.Clear
On Error GoTo 0
Samozrejme tiež vyskúšané, tak mi netvrdte, že nende

Tuším otestujem aspoň to, čo som si len tak tipol v "PS". To bude ten bod 3. a 4. Ale všetky tie podmienky sklbiť dokopy .... moje nervy, to dokáže eLCHa, ale to už bude asi HardCore.

Napr aj (akýkoľvek dlhý reťazec):
=MID(A1;MIN(IFERROR(FIND(ROW($1:$10)-1;A1);FALSE));1)
=ČÁST(A1;MIN(IFERROR(NAJÍT(ŘÁDEK($1:$10)-1;A1);NEPRAVDA));1)
S maticami sa dá blázniť

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse