• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Tak ten předchozí MsgBox mi taky jede bez problému. Co se týče toho druhého můžeš si ho nastavit stejně jako ten první.
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """" & Jmeno_souboru & """" & _
vbCrLf & "v adresáři:" & vbCrLf & """" & Adresa & """" & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."


Jestli těmi mezerami myslíš mezeru mezi uvozovkami tak se koukni na toto:
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """ " & Jmeno_souboru & " """ & _
vbCrLf & "v adresáři:" & vbCrLf & """ " & Adresa & " """ & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."

COUNTIF
COUNTIFS

Jen taková střela od boku

TextBox2.Text = Format$(Time, "hh:mm")

Ahoj, jelikož máš přístup do VBA v souboru "Opravy lokomotiv...." chráněn heslem, tudíž se tam nedostanu. Tak sem upravil makro v původním souboru "spočítej", tak se na to mrkni.

PS: Když budeš chtít, je možnost nezapisovat nulový počet (nulu) do buněk ve sloupcích AK a AL nebo ji nahradit jiným znakem.

Ahoj, Tvůj soubor žádná makra neobsahuje, tak sem zkusil narychlo jedno slepit.

Jelikož mi soubor nejde vložit, tak si ho stáhni zde:
http://leteckaposta.cz/282163487

Ačkoliv jsem si Tvůj dotaz několikrát přečet, nejsem si jistej jestli chápu?
Jestli hledáš max hodnotu GHL pro určitý rok, tak se koukni do přiloženýho souboru. Pokud to tak není zkus otázku lépe zformulovat.

PS: v souboru jsou použity "pomocné sloupce" i a j, které můžeš skrýt. Rok pro který hledáš max hodnotu se zapisuje do buňky G4 ve formě posledního dvojčíslí.

http://wall.cz/index.php?m=topic&id=5237

Osobně bych to zamčení listu řešil jednodušeji
Private Sub workbook_open()

List1.Protect ("111")

If Application.UserName = "Acer" Then
List1.Unprotect ("111")
End If

End Sub


Není potřeba využívat "pomocný" list2

Pokud sem to dobře pochopil tak:
Private Sub workbook_open()
List1.Protect ("111")
List2.Cells(1, 1) = Application.UserName

If List2.Cells(1, 1).Value = "Acer" Then
List2.Cells(1, 2) = "O" 'zde je použito velké O
Else: List2.Cells(1, 2) = "1"
End If

If List2.Cells(1, 2).Value = "0" Then 'zde je použita nula
List1.Unprotect ("111")
End If
List2.Visible = xlSheetHidden
End Sub

Pokud máš "stálý" text Nmap scan report for a končí závorkou (něco)
tak vyzkoušej: (platí pro buňku A1)
=ČÁST(A1;22;NAJÍT("(";A1;1)-22)

Tak sem v chytré knize našel řešení na Tvou otázku. Jedná se o řešení pomocí makra, která musíš mít povolená.

Šel bych na to pomocí maticových vzorců

Pokud trváš na "rozložení" buňky A1 do 4 buněk.

Postup importu excel 2007

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse