• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Data Form tlačidlom

Zaslal/a monier 20.8.2017 11:59

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).

Příloha: 37327_data.jpg.jpg (19kB, staženo 48x)

Zaslat odpověď >

---

eLCHa(21.8.2017 11:32)#037337

Bez přílohy pouze tipuji, že spouštíte na jiném listu než chcete zobrazit formulář, přitom používáte ActiveSheet.citovat

monier(21.8.2017 11:59)#037340

celkovo mi už nejde tento riadok :
ActiveSheet.ShowDataForm

Příloha: 37340_data-form.zip (171kB, staženo 23x)

citovat

eLCHa(21.8.2017 13:26)#037343

Funguje mi toto

Odstranil jsem prázdné řádky 2:4 tak, aby data začínala na druhém řádku.
Takže první řádek si roztáhněte pro tlačítko. Pokud jsou nad daty 2 a více řádků, nefunguje to. Sloupce jsem netestoval.

Nazvat oblast Database (lze najít na internetu) mi také nefungovalo.

Příloha: 37343_data-form.zip (171kB, staženo 28x)

citovat

monier(21.8.2017 15:38)#037350

vdaka za vyrieseniecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse