Příspěvky uživatele

Neviem, aké presne použitie máte na mysli. Ak vzorcom s pevným umiestnením súboru, tak normálne predsa funguje VLOOKUP/SVYHLEDAT. Ak počas behu iného makra chcete vo VBA dohľadať z iného variabilného zošitu hodnotu funguje toto dole. Upresnite.

Matica? KT?

To musíte dať do modulu v súbore osobných makier PERSONAL.XLSB

Sub MenaEUR()
If TypeName(Selection) = "Range" Then Selection.NumberFormat = "#,##0.00 [$€]"
End Sub

Buď použite 2x podmienku
=IF(W14<>"";IF(VLOOKUP(W14;Tabulka1;5;FALSE)="";"";VLOOKUP(W14;Tabulka1;5;FALSE));"")
=KDYŽ(W14<>"";KDYŽ(SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA)="";"";SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA));"")
alebo použite na skrytie 0 vlastný formát bunky, ale ten skryje aj 0 nielen ""
General;General;
ak sú tam textové hodnoty, možete použiť
=IF(W14<>"";REPT(VLOOKUP(W14;Tabulka1;5;FALSE);1);"")
=KDYŽ(W14<>"";SVYHLEDAT(SVYHLEDAT(W14;Tabulka1;5;NEPRAVDA);1);"")

EDIT: Doplnený zabudnutý posledný parameter funkcie VLOOKUP aj príloha.

To je zase iba polodotaz.
Každé zatvorenie súboru má uložiť celú oblasť? Aj keď nič nezmením a iba otvorím a zatvorím súbor? Ak nie, tak ako identifikujem, že tam už tie isté dáta niesú?

Čo spôsobí podnet, že sa má ukladať? Nejaká zmena. Čoho? Musí to byť zmena I20:I40? Alebo inej oblasti? To sa mení vzorcom, či manuálne?
Ak vzorcom, treba sledovať zmenu toho, čo spôsobuje prepočet tohto vzorca. A to je?

Príloha?
...

Fuha !?
No ja si myslím, že ak nedáte poriadny popis problému, neoznačíte čo sa má kde za akých okolností a s čím sčítať, a neukážete nejaký konkrétny čiastkový manuálne a správne vypočítaný výsledok, tak pomôže jedine zohnať Ch.N.

Nie sú rovnaké rozostupy (2-3 riadky), dáta nie sú konzistentné (Iso243!A2:A7...), nie sú použité rovnaké stĺpce na rovnaký druh dát, nevedno čo sa mení a čo sa zrátava, odkazy výberových zoznamov ActiveX smerujú od brucha či ako (Iso243!C18->A2, E18->C2, C2->B2...)

Akože Vážne ?

Teda jedine makro pri udalosti požiadavky na zatvorenie zošitu.
Ale, buď to má byť do nového hárku, alebo do druhého konkrétneho hárku. Veď predsa keď to bude nový hárok, tak bude automaticky prázdny, nedá sa vložiť pod poslednú hodnotu, žiadna nieje. Tak ako?

A teraz úprimne, nepríde Vám to tak "trochu" zložité ?

Priložte reálnu tabuľku, bez dát, len pár vymyslených pôvodného typu. No zachovajte povahu názvov stĺpcov, rozsahy, formáty, a hlavne kde a ako má z ukážkových dát a parametrov vyzerať výsledok. Záleží na strašne veľa veciach. Toto je maticový vzorec, no musíte udržiavať výsledkovú tbl dostatočne vysokú.

Čo znamená "dotaz na vyhledávací fci"? V tejto tabuľke spĺňajú požiadavky 3 záznamy. Vyhľadávacia funkcia znamená, že nájde 1 záznam. Ak chcete všetky treba údaje filtrovať:
-normálny filter
-rozšírený filter
-filter na objekt Tabuľka
-SmartFilter na objekt Tabuľka
-kontingenčná tabuľka
-kontingenčná tabuľka s filtrovaním
-maticový výčet na iné miesto.

Ako má vyzerať výsledok? Použiť filter trvá rádovo pár sekúnd ...

Vymyslím si ... aktualizácia zabezpečenia kvôli ukončeniu vývoju a podpory Flash technológie... Skúste pozrieť, či sa v danom období neinštalovala do systému nejaká aktualizácia, a odobrať ju/ich. Alebo odstráňte postupne na kópii súboru všetky objekty, aby ste zistili ktorý za to môže. A potom ďalej hľadať už cielenejšie riešenie...

To pôjde bez súboru ťažko. Môže to spôsobovať všetko možné, dotaz na web, aktívny obsah, link na externý obrázok, použitie Flash-u vo WebBrowser-i ... a všetko čo Vás napadne.

Podľa mňa netreba transponovať:
Private Sub CommandButton1_Click()
Pocitadlo = 2
Do While Pocitadlo < 30 '
If Worksheets("List2").Cells(2, Pocitadlo) = "" Then
Worksheets("List2").Cells(2, Pocitadlo).Resize(4).Value = Worksheets("List1").Cells(3, 3).Resize(4).Value 'číslo zakázky a objednávky, datum objednávky a expedice
Worksheets("List2").Cells(7, Pocitadlo - 1).Resize(15, 4).Value = Worksheets("List1").Cells(9, 1).Resize(15, 4).Value 'položky
Exit Sub
Else
Pocitadlo = Pocitadlo + 5
End If
Loop
End Sub

Ak nevyhovuje naťahovanie vzorcov, tak použite jednoduché makro, ktoré zmaže staré, rozkopíruje nové hodnoty a naformátuje:
Sub Rozkopiruj()
Dim R As Long, RV As Long, S As Byte, D(), V(), i As Long, x As Byte, Poz As Long, Hlava As Range

With Worksheets("Hárok1")
S = 5
R = .Cells(Rows.Count, 1).End(xlUp).Row
D = .Cells(1, 1).Resize(R, S).Value
End With

Application.ScreenUpdating = False
With Worksheets("Hárok2")
.UsedRange.Clear
RV = R * (S + 1)
ReDim V(1 To RV, 1 To 1)

For i = 1 To R
Poz = Poz + 1
V(Poz, 1) = "Rovnaká hlavička"
If Hlava Is Nothing Then Set Hlava = .Cells(Poz, 1) Else Set Hlava = Union(Hlava, .Cells(Poz, 1))
For x = 1 To S
Poz = Poz + 1
V(Poz, 1) = D(i, x)
Next x
Next i

With .Cells(1, 1).Resize(RV)
.Value = V
.HorizontalAlignment = xlLeft
End With
.Activate
End With

With Hlava
.Interior.Color = 16576511
.Font.Bold = True
.Font.Italic = True
.Font.Size = 14
.HorizontalAlignment = xlCenter
End With
Application.ScreenUpdating = True
End Sub

Zatiaľ bez kontroly existencie adresára, predošlého súboru s rovnakým názvom, bez odchytu chyby pri uložení, a so zatvorením na konci. Je potrebné aby bol nový tiež XLSM?
Private Sub CommandButton1_Click()
Dim Jmeno As String, Cesta As String

Cesta = "C:\pokus\"
Jmeno = "sample_" & Worksheets("faktura").Range("A1").Value & ".xlsm"
Application.ScreenUpdating = False
Worksheets(Array("faktura", "doprava")).Copy
ActiveWorkbook.SaveAs Filename:=Cesta & Jmeno, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
EDIT: Odstránil som jedno ".xlsm" z názvu súboru, bolo tam omylom 2x :)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje