< návrat zpět

MS Excel


Téma: If..Else..End If rss

Zaslal/a 4.11.2014 5:00

Ahojte, asi sem něco špatně pochopil a potřeboval bych radu..

Private Sub Workbook_Open()

' Vložení Data při spuštění sešitu

If ThisWorkbook.Name = "VZOR_NEUPRAVOVAT_ Evidence kontroly" Then
GoTo 1
Else

Sheets("Hárok1").Select

Application.EnableEvents = False
If Cells(3, 7) = "" Then
Range("G3").Select
ActiveCell.FormulaR1C1 = Date
Range("A32").Select
Else

End If
Application.EnableEvents = True

1:

MsgBox (" Tento sešit je určen pouze jako šablona")

End If
End Sub

Tušíte, jak je možné, že mi vloží datum, ať je název sešitu jakýkoliv, dokonce i "VZOR_NEUPRAVOVAT_ Evidence kontroly" ?

Díky za každou připomínku, případně korekci kódu.

Zaslat odpověď >

#022131
avatar
Toto ThisWorkbook.Name vrací název sešitu i s koncovkou.
Přidej za název sešitu i koncovku.citovat
icon #022132
eLCHa
To co napsal cmuch je sice pravda, ale mně napadá jiná věc.
Toto mi přijde podivné If ThisWorkbook.Name = "VZOR_NEUPRAVOVAT_ Evidence kontroly" ThenProtože předpokládám, že událost Open je spuštěná sešitem VZOR_NEUPRAVOVAT_ Evidence kontroly a tím pádem je ThisWorkbook.Name zbytečná.
Jedině bych pochopil, že nechcete, aby sešit někdo přejmenoval, ale o to dle následujícího kódu nejde. Takže ta podmínka je tam dle mého zbytečná.

Edit:
Pokud používáte šablonu, tak by to možná smysl dávalo, pak zkuste použítIf ThisWorkbook.FileFormat = xlTemplate Thencitovat
icon #022133
eLCHa
Mno jo, ale teď mi došlo, že asi neuvažujete stejně jako já a máte sešit uložený v klasickém formátu (xls resp xlsm) a jen mu říkáte šablona ;)))
Pak má cmuch pravdu ;) a já jsem si aspoň pokecal (sám se sebou ;) )

Alespoň Vám odstraním zbytečnosti (goto, select)Sub test()
If ThisWorkbook.Name = "VZOR_NEUPRAVOVAT_ Evidence kontroly.xlsm" Then
MsgBox " Tento sešit je určen pouze jako šablona"
Else
If Sheets("Hárok1").Cells(3, 7).Value = "" Then
Sheets("Hárok1").Cells(3, 7).Value = Date
End If
End If
End Sub
a poradím, abyste si jej uložil jako šablonu.citovat
#022153
avatar
Tak o tom jsem neuvažoval, jako šablonu bych to zkusit mohl, každopádně oběma děkuju za pomoc a taky za korekci kódu.. člověk se neustále učí.. takže díky, jdu to testnout. 1citovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09