MS Excel

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ěď >

cmuch1(4.11.2014 5:59)#022131

Toto ThisWorkbook.Name vrací název sešitu i s koncovkou.
Přidej za název sešitu i koncovku.citovat

eLCHa(4.11.2014 6:21)#022132

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

eLCHa(4.11.2014 6:55)#022133

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 Suba poradím, abyste si jej uložil jako šablonu.citovat

Dejavu(4.11.2014 22:37)#022153

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.

citovat

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje