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

Příspěvky uživatele

príklad

1. Dajte vo formáte bunky Zarovnanie - Zalomiť text
2. Vzorec upravte na:
=TEXT(I3;"dd.mm.yyyy")&CHAR(10)&"(týden "&I2&" )"
=HODNOTA.NA.TEXT(I3;"dd.mm.rrrr")&ZNAK(10)&"(týden "&I2&" )"
3. Pozor, hodnota bude už ako Text, nie ako dátum.

Upravená verzia. Lebo v predošlom prípade som použil Objekt Tabuľka, ktorý ale v XLS nepracuje správne. Rovnako ani rozsah odkazujúci na stĺpec v tomto Objekte. Takže úprava bez Objektu Tabuľka:

Veď normálny VLOOKUP/SVYHLEDAT, nie ?

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse