< návrat zpět

MS Excel

Téma: Data Form tlačidlom rss

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: jpg37327_data.jpg.jpg (19kB, staženo 48x)
37327_data.jpg.jpg
Zaslat odpověď >
icon eLCHa(21.8.2017 11:32)#037337
eLCHa
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
avatar
celkovo mi už nejde tento riadok :
ActiveSheet.ShowDataForm
Příloha: zip37340_data-form.zip (171kB, staženo 23x)
citovat
icon eLCHa(21.8.2017 13:26)#037343
eLCHa
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: zip37343_data-form.zip (171kB, staženo 28x)
citovat
monier(21.8.2017 15:38)#037350
avatar
vdaka za vyrieseniecitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje