Příspěvky uživatele

Pokiaľ máš záujem, tak mi pošli súkromnú správu. Mohli by sme to potom riešiť cez teamviewer niekedy večer po 18:00, pokiaľ bude vyhovovať...

Isteže existuje, páč kopírovaniu dát zo skrytého listu nič nebráni. Sheet1 v doleuvedenom kóde má vlastnosť visible nastavenú dokonca na veryhidden a i tak je možné dáta kopírovať inam:Sub testCopy()
Sheet1.[B1:B5].Copy Sheet2.[A1]
End Sub

@all: mimochodom, pokiaľ sa majú dáta z listu1 prenášať vždy do jednej a tej samej adresy na liste2 (napr. do bunky A1, B2 apod., proste vždy sa majú "kopírovať" do tej samej bunky), tak na to žiadne makro nepotrebujete, na to stačí jednoduchý vzorec vyžívajúci funkcie INDEX, POZVYHLEDAT, prípadne ešte POČET2, eventuálne POSUN, možností je spústa na úrovni funkcií excelu, makro v tomto prípade pokladám za cvičenie, zďaleka nie za jedinú možnosť riešenia, on vám k tomu určite povie svoje časom i eLCHa

@Merlin: nejako mi uniká, v čom podstatnom sa tvoj dotaz líši od Adelinho, je to stále variácia na jednu a tú istú tému. Pokiaľ sa chceš VBA skutočne naučiť, tak by si asi mal viac skúšať sám, miesto toho aby si pokladal v podstate jednu a tú samú otázku.Sub Pom1()
Dim colToCopy As Integer, rngToCopy As Range
With List1
colToCopy = WorksheetFunction.Match(.[B2], .[D2:K2], 0) + 3
Set rngToCopy = .Cells(2, colToCopy)
Set rngToCopy = rngToCopy.Resize(WorksheetFunction.CountA(.Columns(colToCopy)), 1)
End With
rngToCopy.Copy List2.[D3]
Set rngToCopy = Nothing
End Sub

@Adel: potrebuju aby se mi sloupec zkopiroval na listu2 na pole C6
v tomto prípade sa nejedná o kopírovanie celého stĺpca, čiže môj pôvodný kód je potrebné modifikovať. Pri rozložení dát, ktoré vo svojej prílohe použil dream, by som to napísal nejako takto, aby to vyhovovalo tvojmu zadaniu Sub Pom1()
Dim colToCopy As Integer, rngToCopy As Range
With List1
colToCopy = WorksheetFunction.Match(CLng(CDate(.[B2])), .[D2:K2], 0) + 3
Set rngToCopy = .Cells(2, colToCopy)
Set rngToCopy = rngToCopy.Resize(WorksheetFunction.CountA(.Columns(colToCopy)), 1)
End With
rngToCopy.Copy List2.[C6]
Set rngToCopy = Nothing
End SubVzhľadom k tomu, že VBA je objektovo orientovaný jazyk, tak používam v kóde objektové premenné, pokiaľ možno.

@Merlin: každý nejak začínal ale nie každý má asi tvoju odvahu publikovať svoje pokusy

@dream: po niekoľkých dňoch si bol schopný vytvoriť akurát uvedenú ukážku tabuľky? Tož, i tebe patrí obdiv

tu máš príklad kódu, ďalej sa snaž trochu sámSub Pom()
Dim colToCopy As Integer
With List1
colToCopy = WorksheetFunction.Match(CLng(Date), .Rows("1:1"), 0)
.Columns(colToCopy).Copy List2.[A1] 'miesto List2.[A1] napis, kam chces kopirovat
End With
End Sub

Len ako námet k úvahe:=CHOOSE(RANDBETWEEN(1;10);"A";"A";"A";"A";"A";"A";"B";"B";"B";"B")

Makro nepotrebuješ, resp. bude stačiť udalostné makro Worksheet_Change, ktoré bude spúšťať refresh jednoduchého dotazu vytvoreného v MS query. Tak by som to riešil ja.
Asi by to šlo riešiť i kontingenčkou, ale do prílohy som nepozeral, tak pivotka je len tip.

@lubo Zapni si okno "výběr a viditelnost"
Nájdem to niekde v Excel2010? Mohol by si popísať v krokoch eventuálne dať screenshot, prosím?

edit: už som to našiel, dík

vtip asi nie, skôr tipujem na nudu a nedostatok iných podnetov k aktivite
dá sa makrom, v ktorom treba zakomponovať formátovanie príslušnej časti textu na preškrtnutý, ale dopredu upozorňujem, že to makro písať nebudem

achjo, posielam v prílohe

Kluci, dík za snahu pomôcť.
Paloo, nerozchodil som to, mohol by si eventuálne, keď si nájdeš čas, dať jednoduchý vzorový súbor s nejakou pivotkou nalinkovanou na externý zdroj a kód ktorým sa dá riadiť jej aktualizácia?

Lubo, mám za to, že QueryTables nemám vytvorené, ale nie som si tým na 100% istý.

Každopádne po cca 4 hodinách pokusov a omylov som našiel naprosto jednoduché riešenie, spočívajúce prakticky v 1 riadku kódu:ActiveWorkbook.Connections("DshBrdSrc").OLEDBConnection.EnableRefresh = FalseDshBrdSrc je názov toho môjho datového pripojenia.
Do workbook open eventu dám parameter false a pod helsom dám kód s parametrom true

skúšam, zatiaľ to nedokážem rozchodiť, dám vedieť, díky

Mám súbor, v ktorom sa nachádzajú kontingenčné tabuľky napojené na externý zdroj dát - query v MS access.
Aktualizácia pivotiek nie je problém, stačí kliknúť na Data - Refresh All (Ctrl+Alt+F5) a je to.
Ja by som ale potreboval, aby aktualizácia bola možná až po tom, čo užívateľ zadá heslo. Ide to nejako vyriešiť? Nenašiel som vhodný event, tak neviem.
Díky za nápady.

Pokiaľ to nemá byť iba hádanie, tak mám za to, že na zodpovedanie dotazu nie je dostatok informácií z tvojej strany

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje