Příspěvky uživatele
< návrat zpět
Mam taky problem. Vytvoril som excel program pre hry so systemom pridania bodov. Vsetko fungovalo, ale akonahle som ho otvoril na inej verzii (2007 na inom PC), tak mi neprebehne macro so zoradenim tabulky.
Avsak ked tuto cast vymazem a nahram to iste macro (record macro - je uplne to iste), tak uz prebehne bez problemov.
Budem velmi vdacny za vyriesenie.
Vdaka vsetkym za radu
Naskytol sa mi problem. Mam dlhu uzku tabulku (asi 4 stlpce) a rad by som ju mal na obrazovke celu, kedze budem premietat na platno. Takze logicky som ju rozdelil na viac stlpcov.
Problem ale je, rad by som filtroval poradie (č.) od najmensieho v obidvoch castiach a to mi akosi neide.
Nie som si isty, ci je to nejako mozne, v kazdom pripade dakujem za odpoved ci pripadnu radu ako by ste to robili.
Trošku chaoticky som to napísal.
Ide o to, či viem filtrovať údaje pomocou rozšíreného filtru, ale s nie tým istým formátom.
To znamená chcem vyfiltrovať údaj z tabuľky s červeným pozadím na iné miesto, ale už s NIE červeným pozadím, ale s preddefinovaným modrým pozadím.
prikladám obrázok.
Chcel by som sa opýtať, či je možné, vložiť do klasického kódu rozšireného filtru vložiť niečo v tom zmysle, že prilepenie bez formátu.
Range("data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _("Criteria"), CopyToRange:=Range("M3:R3000"), Unique:=False
dik
Chcem sa spýtať na rozšírený filter (Advance filter).
Akonáhle ho použijem, je jedno či na iné miesto alebo v tom zozname, v pôvodnej tabuľke mi zmizne jednoduchý filter na záhlaví.
Je možné nejak tomu zabrániť ??
Dik za odpoveď
vdaka za vyriesenie
celkovo mi už nejde tento riadok :
ActiveSheet.ShowDataForm
Dobrý deň,
keď tento kód zadám do hárku tak mi všetko ide :
If WorksheetFunction.CountIf(Sheet2.Range("T8:T108"), [CurrentUser]) > 0 Then
If MsgBox("Chcete vložiť novú výpožičku?", vbYesNo, "Výpožička") = vbYes Then
SendKeys "%N", False
ActiveSheet.ShowDataForm
End If
End If
avšak keď tento kód chcem prepojiť na tlačidlo, tak mi vypisuje vždy chybu (viď v prílohe).
Mám taký problém a chcem sa spýtať, či je ho možné vyriešiť v prípade ako.
Môj excel súbor je dostupný na stiahnutie. Na 1 liste je taký "dotazník". Ak ho niekto vyplní, chcem aby mi ho poslal. Nie každý využíva službu Outlook, tak som chcel to riešiť uložením ako PDF pomocou 1 tlačítka v exceli a VBA kódom.
Avšak ako pozerám kódy na uloženie ako PDF, tak všade píše cestu C:/User/xxxx/Deskop a keďže pochopiteľne daný človek to bude robiť na svojom PC, tak to meno bude vždy iné.
Nedá sa to nejak preskočiť. Alebo nejak na sieť uložiť ??
Vdaka
Príloha je tu.
Mam na hárku výpožičky makro :
Private Sub Worksheet_Activate()
Dim Name As Variant
For Each Name In Sheet2.Range("T8:T108")
If Name = CurrentUser Then
i = MsgBox("Chcete vložiť novú výpožičku?", vbYesNo, "Výpožička")
Select Case i
Case vbNo
Case vbYes
SendKeys "%N", False
ActiveSheet.ShowDataForm
End Select
Exit Sub
End If
Next Name
End Sub
CurrentUser je zadefinovaný názov jednej bunky.
Problém je, že keď je CurrentUser z oblasti G8:G108, tak mi tiež vybehne msg a to nechcem.
Vďaka za pomoc.
vdaka xlnc
mozte zavriet
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