Příspěvky uživatele
< návrat zpět
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
Mám trochu problém s tím, že někdy to funguje a někdy ne a netuchám, gdě ašybka slučilas :-(
ano, ta data jdou z textboxu v userform
ahoj všichni, abych nemusel klikat do bezvědomí "F2", "ENTER", pokusil jsem se použít násobení buněk ve sloupci číslem jedna. Funguje to, ale při velkém množství dat je to časově značně náročné. existuje nějaká jednodušší cesta převodu textového formátu na datum?
Zde je kód, který jsem použil
Range("B1").Select
Selection.Copy
Range("I4:I,K4:K,M4:M").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd\/mm\/yyyy;@"
děkuji za pomoc
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