Příspěvky uživatele
< návrat zpět
Neviem či som to pochopil. Skúste taký stav ukázať v prílohe. Akože sa hľadá najbližšia nižšia séria v kalkulation!B:B, podľa toho čo je zadané v List1!C:C ?
A Vy máte tie dáta, čo sú v inom súbore, zoradené, tak ako je naznačené? Teda že presne sedia trojriadky s pozíciami v tomto súbore? Alebo je potrebné pozíciu dohľadávať, a nieje to tak, ako je ukázané.
Priložte ukážku zdrojovej tbl - ten druhý súbor (bez citlivých dát).
-Máte zošit save2.xlsm
-Iba jeden list "List1", a ten chcete exportovať ako IKM (TXT). Iné listy tam niesú?
-V ňom chcete kliknúť na čudlík, a spustené makro sa opýta na názov a umiestnenie toho IKM.
- "nedokazu prevzit jmeno a cestu ulozeni do dalsich veci jako je zavreni daneho sesitu a nasledneho prepsani koncovky" ??? zatvorenie akého zošitu ?
- "a dané excely se zavrou" ??? aké excely ? Veď máte otvorený len ten jeden zošit save2.xlsm!
EDIT1: 11.2.2021 12:58
Prípadne skúsiť niečo iné:
Sub SAVEjako()
Dim Soubor As String, S As String
Dim H()
Dim x As Integer, y As Long
Soubor = Application.GetSaveAsFilename(InitialFileName:="D:\DATA_import.ikm", FileFilter:="Textový soubor IKM (*.ikm), *.ikm", Title:="Export IKM")
If Soubor = "False" Then Exit Sub
H = List1.UsedRange.Value
For y = 1 To UBound(H, 1)
For x = 1 To UBound(H, 2)
S = S & IIf(x = 1, vbNullString, vbTab) & H(y, x)
Next x
S = S & vbNewLine
Next y
Open Soubor For Output As #1
Print #1, S
Close #1
End Sub
len tam treba dbať aj na formát dát.
EDIT2: alebo takto:
Sub SAVEjako2()
Dim Soubor As String
Soubor = Application.GetSaveAsFilename(InitialFileName:="D:\DATA_import.ikm", FileFilter:="Textový soubor IKM (*.ikm), *.ikm", Title:="Export IKM")
If Soubor = "False" Then Exit Sub
Application.DisplayAlerts = False
Application.ScreenUpdating = False
List1.Copy
ActiveWorkbook.SaveAs Filename:=Soubor, FileFormat:=xlText
ActiveWorkbook.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Porovnajte si oba výsledky.
"--("6")" prevedie číslo ako text "6" na skutočné číslo 6.
Je to možné, že Galéria v mobile nezobrazí korektne "priesvitnú" farbu PNG (možno bezfarbé bunky {ColorIndex=xlNone} uloží ako priesvitné???).
Skúste použiť fintu Graf-->JPG. Teda sa dočasne vytvorí list s prázdnym grafom, do ktorého sa vloží skopírovaná oblasť ako obrázok, a graf už umožňuje uložiť ako JPG. dočasný list s grafom sa zmaže. Už to tu bolo určo riešené, len sa mi to nechce hľadať. Mrk na mrexcel.
Nepamätám si ako to bolo s kvalitou.
Vložíte prílohu JPG a súbor zmažete napr. pomocou Kill.
Asi Vám robí problém získavanie čísel z riadkov, to môžete nahradiť malým poľom čísiel, alebo absolútne/relatívne adresovanie. Upravené.
Aplikovaný postup z daného zdroja + check kódov uvedených bánk v tom PDF.
Nevolajú sa stĺpce náhodou "Stĺpec 1", "Stĺpec 2", a pod. ? Excel to vraj môže vyhodnotiť ako duplu. A skúste zmazať staré položky v možnostiach KT.
Na prd je to, že def. názov. "Oblasť_tlače" si uchová svoj vzorec
=TISK
len nejakú dobu. Neprišiel som na to, prečo sa mi po nejakej dobe zmení na pevný rozsah 
No čo teda, frčí či nefrčí ?
Jedine pomocou makra. Teraz som to urobil tak, že Podmienené formátovanie volá makro funkciu na overenie označenej oblasti. Má to veľkú výhodu oproti obyčajnému vyfarbovaniu buniek v makre, a to tú, že nestrácate Undo.
Kód do Modulu:
Public bJeFarbene As Boolean
Public RNG As Range
Public Function UDF_Select_Oblast() As Range
Set UDF_Select_Oblast = RNG
End Function
Kód do udalosti listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RNG = Intersect(Selection, Range("B2:B109,E2:E109,H2:H109,K2:K109"))
If Not RNG Is Nothing Then
bJeFarbene = True: Calculate
ElseIf bJeFarbene Then
Set RNG = Nothing
Calculate
End If
End Sub
Vzorec do Podmieneného formátovania (pri označenej bunke B2):
=COUNTIF(udf_select_oblast();B2)>0
jeho rozsah
=$B$2:$B$109;$E$2:$E$109;$H$2:$H$109;$K$2:$K$109
Priložte nejakú prílohu, nech je vidieť aj čo robíte aj ako to robíte, aj požadovaný výsledok (na nejakých dátach, v nejakej forme, ...).
Nie je to môj vzorec, zdroj som uviedol na začiatku. Na tom linku je to po krokoch vysvetlené, čiže sa pochopiť dá. Akurát v tomto prípade odpadne potreba to rozdeliť na test čísla a textu samostatne.
No a čo sa týka toho zoradenia, ešte nad tým ak bude čas a chuť porozmýšľam, bo mi narýchlo nedáva zmysel prečo to tak je. Ak si totiž overím cez < alebo > alebo cez COUNTIF tak mi to zistí správne že napr. "200_1" je < ako "301", ale už to správne nezoradí. No uvidíme.
EDIT: 5.3.2021 18:37
Tak skúste takto. COUNTIF akoby počítal inak pri = a inak pri <, preto som ho vynechal a použil trochu zložitejší počet cez MMULT. Mrk na def. názov MENSI.
Tak skúste
Je to megavzorec, tak som použil 2 def. názvy pre zjednodušenie...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články