Příspěvky uživatele

Súbor - Uložiť ako - Nástroje - Všeobecné možnosti - tam sa nastavuje heslo aj predvolený typ otvorenia.

Ak je to skutočne iba tak ako popisujete, tak to makrom určite nerobte.

Pridal som aj maticovú verziu, ktorá nepotrebuje žiadny pomocný stĺpec. Ale stále je tu otázka, či sa jedná o Office 2019.

A dajte si pozor, lebo "AUS" nieje "AUS " !!! Máte tam bordel s medzerami aj v hornom zozname aj v dolnej tabuľke. Ja som tieto problémy už v mojej predošlej prílohe odstránil, len som o tom zabudol napísať.

V tomto konkrétnom prípade napr. takto

2 príklady

Set Oblast = Worksheets("Data").Cells(c.Row, 3).Resize(pocet, 13)

To je dobrý hlavolam ...
???

Tak si vymyslím z brucha napr. funkcia TODAY/DNES alebo NOW/NYNÍ spôsobí prepočet, teda zmenu.

Tak za Close pridajte False
xlApp.Workbooks(poleNazvu(c)).Close False

Tak napr.
Private Sub CommandButton2_Click()

Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
Dim ExtensionLenght As Byte

'File Path of Text File
FilePath = Cells(5, 1) '& ListBox1.Value & "\" & ListBox2.Value
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Read State

Open FilePath For Input As TextFile
'Store file content inside a variable
FileContent = Input(LOF(TextFile), TextFile)
ExtensionLenght = Len(FilePath) - InStrRev(FilePath, ".") + 1
FilePath = Left$(FilePath, Len(FilePath) - ExtensionLenght) & "_" & Right$(FilePath, ExtensionLenght)
'Clost Text File
Close TextFile

'Find/Replace
FileContent = Replace(FileContent, "L M30", ";edit")
'Determine the next file number available for use by the FileOpen function
TextFile = FreeFile
'Open the text file in a Write State

Open FilePath For Output As TextFile
'Write New Text data to file
Print #TextFile, FileContent
'Close Text File
Close TextFile

End Sub

Neviem, čo presne myslíte. Buď priložíte podstatne viac info (napr. formát hodín je desatinné číslo alebo čas, ...) + prílohu, alebo sa inšpirujete z nasledujúceho príkladu.

EDIT: Prílohu pridávam aj na GoogleDrive, lebo tu mi v editácii príspevku ukazuje, že príloha XLSX je priložená, ale v samotnom príspevku ju neukazuje.

Nech sa páči, príklad vzorcami, bez makra (ktoré je tam fakt zlé). Ošetril som aj možnosť rovnakého počtu bodov.

Hovoríte o tomto súbore? Veď v bunke O41 máte počet odpracovaných hodín. A v bunke Q4 je pracovný fond. Teda Q4-O41 máte počet hodín koľko chýba do naplnenia fondu. Ak bude záporné číslo, máte nadčasy. Alebo pre pochopenie priložte odkaz na súbor (napr. GoogleDrive, Ulož.to, ....) kde máte vyplnené, a označený očakávaný výsledok v požadovanom formáte a umiestnení.

Ja nevidím žiadnu prílohu. Xlsm musíte zabaliť do Zip. Inak o hľadaní posledného stĺpca ste doteraz nič nepísal. To môže byť najschodnejšie pomocou vzorcov. No priložte tú zabalenú prílohu a určo sa dočkáte. Aj by som Vám dal príklad ale z mobilu to nejde... záleží na tom, čo tam presne máte INDEX/MATCH/HLOOKUP/OFFSET/matica ... možnosti sú.

Treba uviesť to makro fungujúce pod Win. Potom sa niekto môže pozrieť na to, čo znamená "nefunguje", na ktorom riadku to hádže akú chybu ale zlú hodnotu, a následne sa môže pokúsiť nájsť riešenie. Ja Mac nemám, ale mal som niekde virtuálku, no vymýšľať si všetko odznovu ? ...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje