Příspěvky uživatele

zámek sešitu (7.10.2011 5:23)

Sub mail()
ActiveSheet.Copy

With Application
.Dialogs(xlDialogSendMail).Show _
"bla@bla.cz", _
"Pošta!"
End With

ActiveWorkbook.Close Savechanges:=False
End Sub
.....nový sešit bych potřeboval makrem zamknout ( celý )

zámek sešitu (6.10.2011 11:41)

Lze do kódu, který mi odesílá mailem přes makro zvolený list ( vytvoří si nový sešit ), nějakým způsobem dostat zamčení tohoto nvého sešitu, ?
Dík

Vyhledat a vyhodnotit (17.9.2011 7:56)

excel 2007
=KDYŽ(B2="";"";IFERROR(SVYHLEDAT(B2;$A$2:$A$9;1;0);"nenalezeno"))

excel 2010
=KDYŽ(B2="";"";CHYBHOD(SVYHLEDAT(B2;$A$2:$A$9;1;0);"nenalezeno"))

řádek (26.7.2011 10:13)

Private Sub CheckBox1_Click()
For i = 5 To 21
If CheckBox1.Value = True Then
If Cells(i, 3).Value = ActiveCells Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Else
Rows(i).Hidden = False
End If
Next i
End Sub

Zdravím, potřeboval bych, když vložím nový řádek mezi data ( 5 - 20 ), zadám hodnotu do sloupce 2, zadám skrýt, aby se mi zobrazil i řádek nad vloženým. Čili vložený řádek + řádek nad ním.
Díky

rozdělení čas. údaje (22.7.2011 15:16)

TO POKI...
ok, díky za radu, nejsem žádný odborník na excel, ani matematik, nicméně jsem zkusil variantu 4) na Vámi zmíněné datumy a výsledek je stejný, podotýkám, že mám e..2010, které se po aktualizaci v některých případech začali chovat jako e..2007
př: =CHYB.HOD před aktualizací, po =IFERROR...je možné, že mám špatné nastavení, nějak jsem to hlouběji neřešil.

rozdělení čas. údaje (22.7.2011 11:19)

...nebo...

4)=ZPRAVA(A2;11)*1....čas
=ZLEVA(A2;5)*1......datum