Příspěvky uživatele

zdravím €Ł мσşqμΐτσ,
už jsem implementovat vaši první verzi, ale tahle vypadá ještě úžasněji. Mockrát děkuji

nevěděl jsem, že .xlsm se musí zabalit, budu si to pamatovat, # el, mosquito ten soubor vzpadá moc dobře zkusím se v tom povrtat.

Ahoj exceloví guruové, mám prosbu, chtěl jsem vytvořit progress bar pro vymazání neuzamčených buněk v listu. Zkoušel jsem to navlíknout na ukázku, která už bylo do fóra poslána, ale asi dělám něco špatně. Furt to po mě křičí i ze spaní a já nevím jak dostat vypočet nebo odečet řádků do procedury, aby se posouval ukazatel, který detekuje vymazané řádky.
Níže jen soubor s čísly a kódem pro vymazání buněk. Pokud víte jak na to, prosím poraďte
děkuji a to tak, že velmi

Moc děkuji, je to naprosto úžasné. Mám se ještě hodně co učit. Ještě jednou moc děkuji

J.

Veny, děkuji za odkaz
ne, je to cca 10 listů v jednom souboru se stejnou skladbou sloupců. Potřebuji z těch dat vygenerovat podklad pro fakturaci, která firma ve kterém měsíci tu měla lidi, kteří neplatili hotově
Ještě jednou díky

J

Ahoj Lugre,
děkuji za tvůj příspěvek, jelikož v makrech trochu plavu, mohu požádat o popis funkcí makra? Předpokládám, že po sloučení jednotlivých listů do jednoho jsi KT udělal ručně
Děkuji za odpověď

J

Ahoj všichni,
chci se zeptat, je-li možné a pokud ano, tak jakým způsoben lze vytvořit filtry v kontingenční tabulce složené z více listů. V ukázkovém souboru jsou dva listy a v každém z nich je KT, ale já bych potřeboval vyrobit jednu KT z více listů a filtry. Poradí někdo, kdo je v KT více než doma? Děkuji za vaše podněty.

Ahoj, příkaz VBA.Right, zafungoval bezvadně, přečelt jsem si i článek, kde tento problém řešili.
Mockrát děkuji za radu

Zkusím, díky za radu

Ahoj jedná se o evidenci úrazů. Je to inicializační makro ve formuláři. Připojuji i soubor, aby bylo patrné kde to hází chybu.
Děkuji za pomoc

Ahoj všichni, chtěl bych požádat o pomoc s jedním makrem.
Přešel jsem na excel 2019 a při spuštění excelovského sešitu, který byl vytvořen v některé z nižších verzí mi to při aktivaci formuláře hlásí u funkce Right a mid chybu, že nebyla nalezena v knihovně nebo projektu.
níže je makro, které hlásí chybu a nemůžu přijít na to, co je špatně. Může mi někdo poradit?
Děkuji za případnou radu či pomoc

Private Sub datum_Change()
Dim Char As String
Dim x As Date
Dim y As Date
Char = Right(datum.Text, 1)
Select Case Len(datum.Text)
Case 1 To 2, 4 To 5, 7 To 10
If Char Like "#" Then
If Len(datum) = 10 Then
On Error Resume Next
x = DateValue(datum.Text)
y = DateSerial(Right(datum, 4), Mid(datum, 4, 2), Left(datum, 2))
If Err = 0 And x = y Then
On Error GoTo 0
Exit Sub
Else
Err.Clear
On Error GoTo 0
datum.SelStart = 0
datum.SelLength = Len(datum.Text)
MsgBox "Please enter a valid date in the form dd/mm/yyyy", vbCritical + vbOKOnly, "Error"
Exit Sub
End If
Else
Exit Sub
End If
End If
Case 3, 6
If Char Like "/" Then Exit Sub
End Select
Beep
On Error Resume Next
datum.Text = Left(datum.Text, Len(datum.Text) - 1)
datum.SelStart = Len(datum.Text)

End Sub

Ahojky,
jo to je přešně to co potřebuju. Otrocky bych musel otevřít každý soubor a opsat základní data. Souborů bude +- 500, v závislosti na tom jak se budou či nebudou nakupovat elektrické spotřebiče.
Ještě jednou děkuji

J.

Ahoj lidi, mám problém. Potřeboval bych vytvořit seznam obsahu buněk z různých souborů. Abych to upřesnil, mám adresář plný excelovských protokolů obsahující revizní zprávy a já bych potřeboval vygenerovat seznam názvů přístrojů ze všech souborů do jednohho seznamu.Názvy mají vždy stejné umístění. Myslíte, že je to možné?
Díky za vaše nápady

Zkoušel jsem to, ale výsledek byl neuspokojivý.
Potřebuji datum ve formátu dd/mm/yyyy a ať jsem dělal co jsem dělal, vždy se mi uložil ve tvaru dd.mm.yyyy :-(

Nakonec jsem se přiklonil k tomuto kódu
'Převod textu na datum
Range("V4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "dd\/mm\/yyyy;@"
Range("V4:V10000").Select
Selection.NumberFormat = "dd\/mm\/yyyy;@"
Selection.TextToColumns Destination:=Range("V4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

díky všem za ochotu

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje