OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Aha jsem blbej a nečtu
SC = 2
SR = 1
EC = 6
ER = 5

Jen je zvláštní jak jede jakoby ze shora dolů, jako by jste četl čínský text. Asi to nebude mít na výsledek vliv, jen je to opticky jakoby nepřehledné.

Možná jen dotaz, jak zvolím jiný sloupec? Vím že se počítá od nuly ale nevím kterou tu nulu přepsat.

První sloupec má vždy popis takže začínám od druhého řádku. Zatím to dělám vzorcem v druhém sloupci na druhém řádku "B2"

=IF(ISBLANK(A2);B1;A2)

Akorát mi jde o to že teď ručně musím přidat sloupec "B" abych tam udělal onen vzorec. Právě bych rád to samé aby se aplikovalo v tom samém sloupci tj ve sloupci "A".
Jak říkám zatím si poradím ručně takto ovšem jelikož to dělám prakticky každý den tak mě napadlo si to ulehčit

Aha takže ono číslo 99 by mělo být vždy větší než li je prohledávaná oblast.
_
Funguje to parádně, dohromady bych takový vzorec nedal ale tento už naplno využívám každý den.
_
Děkuji moc.

Tak jsem si říkal super vypadá to funkčně. Jenže to vůbec nechápu
Poprvé slyším o něčem jako jsou maticové funkce. To bude asi toto že

_
Jenže ono to nejde kopírovat do jiného sešitu a když to zkopíruji je to bez těch spešl závorek, jsem si říkal že ty závorky napíšu ale tak to nefunguje.
_
Potom také ve vašem případě jsem nedocílil onoho "protažení" vzorce z buňky C3 dolů. Možná jsem to jen nepochopil.
_
Děkuji za pomoc.

Tak veliké díky neutr
Vzhledem k tomu že výsledek je lepší než li jsem očekával tak jsem upravil i původní požadavky.
V principu to funguje takto. Máte soubor Tabulka.ods kde v buňce X3=Zákazník aktivního listu máte jméno zákazníka a po spuštění tohoto makra se soubor sám uloží kam si ho nasměrujete ve formátu Zákazník_6_7_2022_Tabulka.ods
Jistě se toto může hodit každému kdo často ukládá něco dle nějakého pravidla
_

REM  *****  BASIC  *****

Sub Ulozit_jako_datumem
Dim oSheet
Dim sVar, sVal as string
Dim iCount, iLeft as integer
Dim Propval()
Sheets = ThisComponent.getSheets()
oSheet = ThisComponent.CurrentController.ActiveSheet
sVar = ConvertFromUrl(ThisComponent.URL)
sVal = oSheet.getCellRangeByName("X3").String
sVal = sVal & "_" & Day(NOW) & "_" & Month(NOW) & "_" & Year(NOW)& ThisComponent.Title & ""
sVar = FilPickFolder()
FileURL = convertToURL(sVar & "/" & sVal)
ThisComponent.StoreAsURL(FileURL, Propval())
End Sub

Function FilPickFolder()
	Dim oFolderPicker As Object
	Dim oAccept As Integer
	Dim oFolder()
	Dim oFolderURL as String, oGetFolderName as String
		oFolderPicker = createUnoService("com.sun.star.ui.dialogs.FolderPicker")
		oFolderPicker.setTitle ("Vyber složku kam uložit")
		oFolderPicker.setDisplayDirectory("file:///home/uživatelské_jméno/Plocha/") '<-toto je cesta v Linuxu kde chete aby se Vám průzkumník otevřel. Ve windows by cesta začínala takto bez file:/// -> D:/   Nebo tento řádek odstraňte a bude Vám nabízet výchozí adresář systému.
		oFolderPicker.setDescription("Vyber adresář")
		oAccept = oFolderPicker.execute()
		If oAccept = 1 Then
			oFolder() = oFolderPicker.getDirectory()
     		oFolderURL = oFolder(0)
     		oGetFolderName = ConvertFromURL(oFolderURL)
     		FilPickFolder = oGetFolderName
     	else
     		oFolderPicker.cancel()
   		End If
End Function

Dobrý den, máte pravdu že jsem to popsal zmatečně. Omlouvám se.
Je fakt že jsem si to u druhé odpovědi rozmyslel a proto ten zmatek.
Zkusím to popsat znova
_2022_SALE.ods je vzorový soubor do kterého vyplňuji objednávku, proto ho nepřepisuji ale ukládám jako nový soubor.
Po spuštění makra by bylo stejné jako bych klikl na "Uložit jako..." s tím že by se předvyplnil název souboru a já bych si jen zvolil kam si ho chci uložit.

_
Nyní to dělám stejně jen s tím že si název souboru vyplňuju ručně.

Funguje :-)
Moc děkuji.

Omlouvám se byl jsem chvíli mimo a pak jsem si hrál s novým Ubuntu co teď vyšlo
_
Když jsem četl co jste napsal tak jsem šel testovat "šestou" verzi trochu skepticky. Vaše vzorová tabulka funguje dokonale a řekl jsem si že to je jen tím že je "malá" proto jsem se rozhodl to otestovat na mé největší tabulce s cca 10tis obrázky a celkové velikosti přes 13MB, pokud v takové tabulce se pokusím ručně smazat listy tak je to i několik minut. Nastavil jsem tedy Vaše "šesté" makro s spustil...
Za pár vteřin hotovo bez chyb Nádhera moc děkuji, tato verze je dokonalá.
_
a děkuji za předpřipravený řádek 54, ihned jsem využil.
Jste mistr

Jsem nějak umřel na svátky...
_
Tak jsem testoval jak ve virtuílním tak přímo na svém počítači a přišel jsem na zajímavou věc.
Pokud otevřu tabulku a dám exportovat list do XLSX a stisknu to žluté tlačítko tak to hodí naší známou hlášku anic se nestane. A je jedno zda nastavím "Wait" na jakkoukoliv hodnotu.
_
Ale pozor tady jsem narazil na tu záhadu. Otevřu li dialogové okno Moje makra a nechám ho otevřené a nic v něm nedělám a dám si ho někam bokem. Pak mohu zavřít a znova otevřít onu tabulku a vše funguje dokonale, dokud to okno s úpravou maker nezavřu.
_
Pro ilustraci jsem to nahrál na VIDEO
_
Hádám že Vám to fungovalo úplně stejně když jste to testoval.