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

Příspěvky uživatele

Iný príklad riešenia. Ak prezradíte, na základe čoho sa má zistiť posledný rok, tak to upravím. Je totiž rozdiel v prístupe, podľa toho, či sú tam na pevno vložené "prázdne" roky až do 2035, alebo či sa nejako postupne pridávajú tabuľky s rokmi.
Teraz je to tak ako som popísal v komentári bunky O2.
Súbor

Pre ukážku som natvrdo zmenil dáta v riadkoch 17,18,22 pre rok 2035. Obnovte si tam potom prípadne vzorce.

Nerobia tie výpočty na iných listoch makrá ? Ak áno, tak je to jasné - XLSX neobsahuje makrá, na to je XLSM.

Automatický výpočet vzorcov máte zapnutý ? karta Vzorce - Možnosti výpočtov - Automaticky ?

Ak stlačíte F9 tiež sa nič nezmení ?

Odkazy v prípadných vzorcoch na tých listoch sú validné ? Označte jednu takú bunku, skontrolujte aby nebola formátu Text, vojdite do editácie vzorca a stlačte ENTER. Ani teraz ho nevyráta? Odkrokujte si výpočet (Vzorce - Vyhodnotiť vzorec).

Ak ten korektný XLS otvoríte v Exceli a uložíte ako XLSX (alebo XLSM - podľa odpovede na 1. vetu), počíta to ? Ak áno, tak používajte metódu XLS, pretože tá záhadná Aplikácia nefunguje korektne s novším formátom.

Overte to na viacerých kombináciách verzií Win/Office.

Vložte nejaké príklady, prílohy.

Ak ste to ani nečítal, ani nepochopil, teda ani nekontroloval a hneď odoslal, urobil ste asi to najhoršie, ale budiš ... Vaša voľba.
Dobrú noc.

Tie makrá si skráťte napr. na
Range("E1").Value = "ctrl + o vymaže data"
Range("A5:B44644").ClearContents
a
Range("A7:B44646").ClearContents
tých zbytočných asi 750 riadkov tam mať skutočne netreba.
Tie dáta v RK DATA nemôžete mať odátumované (+formát)? Lebo mesiace sú pevný text. Bolo by to jednoduchšie.

Z ktorej tbl sa majú ťahať údaje ? Z tej z r.18-22 alebo z r.27-31 ?

Standing Ovation, blištivý metál na stole, vecné prezenty pod stolom, elity v zástupe, 15, 14, 13, 12 ... pozametať konfety.
NIE, 15s slávy je mi šuma-fuk. Excel ma proste fakt iba baví. Za PC sedím 15h/deň a často mám prestoje (či presedy?), a vtedy relaxujem Excelom. Som proste dobrák (čítajte "blbec"), ktorý rád pomáha vo všetkých sférach života. Citácia z môjho obľúbeného snímku "Nie som na to hrdý, ale nehanbím sa.". A áno, som si vedomý princípu "Žiadny dobrý skutok, nesmie ostať nepotrestaný". Napriek tomu neprestávam, je to náplasť na iné príkoria života. Ale spovedať, sťažovať, či ospravedlňovať sa za to nemienim. Nič viac.

Riešenie akejkoľvek otázky na ktoromkoľvek fóre je diskutabilné. Majoritná časť (nechcem povedať rovno 100%, lebo nájde sa občas nejaký ten samouk) rieši pracovné/študijné veci. A čo teda s tými, ktorý za to potom ešte zoberú plat? Uchádzač na základe CV ešte žiadny plat neberie. Z princípu by sa teda nemalo odpovedať a riešiť nič, lebo všetko je v konečnom dôsledku potom lakovanie šéfa, že "som si urobil prácu".
Ale súhlasím s Vami, že práca s nekvalifikovaným antizamestnancom je hrôza. No stále platí, že dôsledky údajov v CV odtrhnutých ad reality si nesie sám uchádzač. A nie pre pána ten, kto mu poradil vyriešiť problém. Veď ja ho nenútim neučiť sa. Ba naopak, ak bude vidieť riešenie, možno (ale iba možno) si s toho aj niečo poberie. Ak nie, mňa to netrápi ani nehnevá.

Dnes síce vyrástla generácia zamieňajúca asertívnosť s aroganciou, otrlá voči slušnosti, drzá voči morálke, a chňapajúca po všetkom pýtajúc to hneď a zadara ... ale nelámem hneď palicu. Nemám ilúzie, ale nemám ani problém pomôcť aj takému užívateľovi, ktorý sem napíše len preto, aby nestrácal svoj drahocenný postbubertálny čas na úkor nejakej kalby. Možno, sa k tomu vráti a poriadne si to pozrie, pretože to má bez popisov, a ak ho profák vyzve k obhajobe riešenia je v ... , a naopak, ak to zvládne, tak to čítal a pochopil. Teda úspech.

Pridávam teda aj napriek miestnej nevôli, jedno z možných riešení. Celé riešené makrom.

Toto mi funguje na
Win 10 Pro x64 SK
MacOS X Sierra

Sub ExportPDF()
#If Mac Then
ActiveWorkbook.SaveAs Filename:="/Users/admin/Documents/Makro PDF Mac-Win.pdf", FileFormat:=xlPDF
#Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\PokusPDF_Win.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
#End If
End Sub

Nastavte si len cesty k uloženiu na Mac a Win. Sú totiž iné.

Ja som si teda pozrel pravidlá slabikovania, a teda jednoduché to rozhodne nebude. Príliš veľa podmienok a pravidiel, a často pre nás "dávno zo školy" nič nehovoriace termíny ...

Tak len tak zo srandy...

Na požiadanie som urobil ešte inú verziu predošlého súboru.

Pr.
Sub Zapis()
Dim R As Long, i As Long, D(), S() As String
With ActiveSheet
R = .Cells(Rows.Count, 1).End(xlUp).Row - 1
If R = 0 Then Exit Sub
D = .Cells(2, 3).Resize(R, 8).Value2
ReDim S(1 To R, 1 To 1)

For i = 1 To R
Select Case D(i, 8)
Case "Dutch": S(i, 1) = "Factuur " & D(i, 1) & " - EUR" & D(i, 3) & ", verlopen op " & Format(D(i, 5), "d-m-yyyy") & Chr(10) & "Betaallink: https://payments.invoice.com/" & D(i, 2)
Case "English": S(i, 1) = "Invoice " & D(i, 1) & " - EUR" & D(i, 3) & ", due on " & Format(D(i, 5), "d-m-yyyy") & Chr(10) & "Payment link: https://payments.invoice.com/" & D(i, 2)
Case Else: S(i, 1) = "ERROR_LANGUAGE"
End Select
Next i
.Cells(2, 11).Resize(R).Value2 = S
End With
End Sub

?

Napr. takto. Kód si dajte do formu, kde máte vytvorený ListBox1.
Dim S(), Pocet As Long

Private Sub UserForm_Initialize()
Dim FSO As Object, fsoAdresar As Object

Const Cesta = "C:\2017\"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set fsoAdresar = FSO.getFolder(Cesta)

Call ZoznamSuborov(fsoAdresar)

Set FSO = Nothing: Set fsoAdresar = Nothing

If Pocet > 0 Then ListBox1.List = S
End Sub

Sub ZoznamSuborov(ByRef fsoAdresar As Object)
Dim fsoSubor As Object, fsoPodAdresar As Object, PocS As Long

With fsoAdresar
PocS = .Files.Count
If PocS > 0 Then
ReDim Preserve S(1 To Pocet + PocS)

For Each fsoSubor In .Files
Pocet = Pocet + 1
S(Pocet) = fsoSubor.Path
Next fsoSubor
End If

For Each fsoPodAdresar In .subFolders
Call ZoznamSuborov(fsoPodAdresar)
Next fsoPodAdresar
End With

Set fsoPodAdresar = Nothing: Set fsoSubor = Nothing
End Sub

Pridávam radšej aj prílohu...

Zopár príkladov...

Na karte "Informace o autě" som pridal položku "Měna", kde si volíte Kč / €. Formátovanie meny sa prepne všade. Nahradil som aj nešťastné formátovanie "rrrr", ktoré je iba v CZ Exceli, a v SK Exceli znefunkční kontinkenčné tabuľky.

Príloha je asi veľká, neberie mi ju server, tak tu je aj na Google Drive

Blbé bude pri zoradení, ak bude u viac položiek rovnaký dátum.
Ak budú položky oddelené riadkom alebo prvá ďalšia neprázdna bunka v A od nájdenej položky je už druhá položka, tak potom napr. takto. Ale ako to bude náročné pri 3000 položkách. No neviem neviem. To možno skôr nejaký pomocný stĺpec.
Nastavte si iba primerane veľký rozsah v OBLAST_OZN.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse