Příspěvky uživatele
< návrat zpět
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ý )
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
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"))
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
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.
...nebo...
4)=ZPRAVA(A2;11)*1....čas
=ZLEVA(A2;5)*1......datum
Ahoj.....
3)=HODNOTA(ZPRAVA(A2;11))....čas
=HODNOTA(ZLEVA(A2;5))......datum
Pokud nebude vadit změna na čárku, tak dej "nahradit" tečku, čárkou....
Uživatelské menu
\nMenu
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.
RSS nejnovější články