< návrat zpět
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)
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 vyriesenie
citovat