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

Příspěvky uživatele

SUMIF nebo SUMA maticově.

Nastavený rozsah vzorce (C1:C4) nesmí obsahovat prázdné buňky.

Excel 2013 a vyšší -> Funkce ISFORMULA

V tom případě - viz elninoslov

No z popisu mi to vychází právě na ověření dat + funkce SVYHLEDAT. V ověření dat se vybere název a funkce k němu přiřadí hodnotu ze seznamu.

Něco sem zkusil za pomoci polí. Možná to k něčemu bude.

Ahoj vyzkoušel sem zde uvedené kódy a všechny se chovají stejně jak popisuješ. Zpráva zůstane viset v poště k odeslání. Přístup Outlooku k poště mám nastavený přes POP3. Možná by pomohlo nastavit přístup přes SMTP?

V souboru kopírování funguje, případně si kód uprav jak radil marjankaj - Namiesto List2 daj sheets("List2").

@marjankaj
Máš pravdu, nevím. Buď si kód upraví nebo se doptá

Např:
Sub Kopiruj()

Dim i As Long
Dim maxRadek As Long
Dim maxRadek2 As Long
Dim x As Byte
x = 0

maxRadek = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To maxRadek
If ActiveSheet.Cells(i, 4).Value = "Hotovo" Then
maxRadek2 = List2.Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Rows(i).EntireRow.Copy List2.Rows(maxRadek2 + x)
x = 1
End If
Next i

MsgBox "Kopírování dokončeno", vbInformation, "INFO"

End Sub

Hodnoty = buňky A1 a A2, podmíněné formátování = buňka H1

Co takto? viz soubor

?
Sub SkrytRadkyPodminkou_nove5()
Dim wSheet As Worksheet, i As Integer
For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
For i = 400 To 50 Step -1
If .Cells(i, "A").Value Like "254.420" Or .Cells(i, "A").Value Like "254.423" Or .Cells(i, "A").Value Like "254.424" Then
.Rows(i).Hidden = True
End If
Next i
Next wSheet
End Sub

Jo, to by šlo
Díky

Tak sem dospěl k tomuto:
Sub Rozdel()
Dim Pole() As String
Dim Pocet As Integer
Dim Hodnoty As String
Dim i as Integer
Hodnoty = Cells(1, 1).Value
Pole = Split(Hodnoty, ", ")
For Pocet = LBound(Pole) To UBound(Pole)
Cells(Pocet + 1, 5).Value = Trim(Pole(Pocet))
Next
Erase Pole
For i = 1 To Pocet
Pole = Split(Cells(i, 5).Value, " ")
With Cells(i, 5)
.Value = Pole(0)
.Offset(, 1).Value = Pole(1)
End With
Next
End Sub
Máte někdo lepší - elegantnější řešení?
Díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje