Příspěvky uživatele
< návrat zpět
Právě proto jsem přidal kód na zjištění jména a případně přejmenování. Ten rozdíl u různých verzí jsem si ani neuvědomil. Dobrá poznámka.
Pokud nepomůže přejmenování, tak potom už neumím poradit. Mně to fachčí i s původním automat jménem i s mnou přiřazeným jménem. Taky se můžou ty prc. odstranit a řešit to jinak.
Opravdu? V tom sešitě který jsem poslal? V něm ale je ten ovládací prvek pojmenován "Rectangle 1". Pokud jsi ten kód překopíroval do jiného sešitu, může být jméno ovládacího prvku jiné. V příloze je kód pro zjištění jména a přejmenování.
Nevím sice kdy TextBox65 vrací "True", ale pokud je "False", tak to znamená v tom tvém kódu konec.
Jak říkám, nevadí.
Myslím, že sloučené buňky nevadí. Dej přílohu.
Možná by bylo lepší ukládat ty sešity bez maker. Ne?
Sub SaveInvWithNewName()
Dim OldFN As String, OldPath As String
Dim NewFN As String, ExtFN As String
OldPath = "D:\" 'pokud jsou cesty ruzne
OldFN = ThisWorkbook.Name
ExtFN = Mid(OldFN, InStrRev(OldFN, ".")) 'pripona souboru
NewFN = "Faktura" & Range("H5").Value + 1 & ExtFN
Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & NewFN
ThisWorkbook.SaveCopyAs OldPath & OldFN
Range("H5").Value = Range("H5").Value + 1
Range("B18:F28").ClearContents
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub
Jasně, není problém. Jen mě to trochu vyvedlo z míry. I když jsem to už začal řešit jinak, pořád to v hlavě vrtá. Neuvědomil jsem si , že byla vlastně vytvořena nová kolekce, která s tou kolekcí Controls objektu UserForm asi nemá moc společného. Tak nějak to chápu. Díky za info.
Zkus
MsgBox UBound(vArray)
MsgBox UBound(vArray, 2)
Nevěděl by někdo, proč při tomto řešení Events je "Private Sub objTXT_Enter()" nefunkční? Zkusil jsem ty TXT i v Kolekci i v Poli a nic. Ostatní Události OK ?!
No podle mě, když je pole naplněno Range, tak vznikne dvourozměrné pole něco jako:
pro řádek "vArray(1 To 1, 1 To 5)"
pro sloupec "vArray(1 To 5, 1 To 1)".
A "Join" asi potřebuje "vArray(1 To 5)".
No a to dokážeme těma Transpozicema. Si myslím.
U column stačí jedna Transpozice na řádek, a Row prvni na column a pak zpět na řádek.
Lubo díky za vyhecování. Máš pravdu, je to parádní.
Teď si mě Lubo mo-mentálně naprd. Schválně to zkusím. Dík.
To jo, to je jasné. Jen jsem chtěl vědět, jestli neexistuje něco na způsob "Call Prc (ActiveControl)". Tady ten ActiveControl je samozřejmě nesmysl. Našel jsem na GG řešení, ale připadá mi zbytečně složité, přes Event v Modulu Třídy. Asi zůstanu u původního, je stejné jak uvádiš.
Ahoj lidi! Ve Formu mám nějaké Controls(TextBoxy) a k nim přiřazeny EventPrc(Mouse_Move). Z těchto EventPrc. volám další proceduru, které musím předat info o který Control(Object) se jedná. Jak získat v té událostní proceduře daný infoObject?
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články