Příspěvky uživatele

Strana: 1 ... « předchozí 99 100 101 102 103 104 105 106 107 další » ... 289

Maticový vzorec. (1.4.2020 11:03)

=IFERROR(INDEX($F$3:$F$7;MATCH(1;($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7);0));"Chyba")
=IFERROR(INDEX($F$3:$F$7;POZVYHLEDAT(1;($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7);0));"Chyba")
alebo nematicový
=IFERROR(INDEX($F$3:$F$7;SUMPRODUCT(($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7)*(ROW($F$3:$F$7)-2)));"Chyba")
=IFERROR(INDEX($F$3:$F$7;SOUČIN.SKALÁRNÍ(($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7)*(ŘÁDEK($F$3:$F$7)-2)));"Chyba")
či
=IFERROR(INDEX($F$3:$F$7;SUMPRODUCT(($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7)*{1;2;3;4;5}));"Chyba")
=IFERROR(INDEX($F$3:$F$7;SOUČIN.SKALÁRNÍ(($D$1>=$B$3:$B$7)*($D$1<=$D$3:$D$7)*{1;2;3;4;5}));"Chyba")

VBA Skrýt / zobrazit listy na základě hodnoty (31.3.2020 23:19)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, Name As String, iName As Integer, vShow, iShow As Integer

If Not Intersect(Range("A1"), Target) Is Nothing Then
vShow = Range("A1").Value

If Not IsEmpty(vShow) And IsNumeric(vShow) Then
iShow = Val(vShow)

Application.ScreenUpdating = False

For Each ws In ThisWorkbook.Worksheets
With ws
Name = Replace(.Name, "List", "")
If Name <> "Master" And IsNumeric(Name) Then
iName = Val(Name)
If iName <= iShow Then .Visible = xlSheetVisible Else .Visible = xlSheetHidden
End If
End With
Next ws

Application.ScreenUpdating = True
End If

End If
End Sub

jak vygenerovat a vložit QR platbu (29.3.2020 9:39)

Máte tam priloženú chybnú prílohu. Nahrajte ju znova.

VBA název cílového listu z buňky (29.3.2020 3:43)

Prílohu XLSM môžete pridať iba zabalenú do ZIP. Tu máte návrh riešenia, bez kontroly či obsahuje list nejaké dáta, či existuje list a pod.:
Sub Copy2Sheet()
Dim LastRow As Long, List As String
With Sheets("TABKOL")
LastRow = .Cells(Rows.Count, "B").End(xlUp).Row
List = .Range("AB2").Value
Sheets(List).Range("A1:Y" & LastRow).Value = .Range("B1:Z" & LastRow).Value
Application.Goto Sheets(List).Range("A1")
End With
End Sub

Jak vložit statický obrázek do VBA formuláře (27.3.2020 16:36)

A nebude stačiť použiť písmo WingDings na Label ?

Porovnání dvou stejných buněk z různých sešitů (23.3.2020 22:06)

Mne to fachá. Tak veľa zdaru.

Obarvení řádků (23.3.2020 22:01)

Ten 1 pomocný stĺp bych tam nechal pre PF
=XOR(D3<>D2;U2)

EDIT: Sorry marjankaj, nevšimol som si. Keď som reloadoval, tak to tu nebolo.

Porovnání dvou stejných buněk z různých sešitů (23.3.2020 21:42)

Chýbajú tam apostrofy
CESTA = "'[" & ThisWorkbook.Name & "]" & "List1'!D5"
ale hlavne to postráda zmysel, načítať hodnotu otvoreného súboru cez EVALUATE. Veď poznáte meno zošitu aj listu aj adresu bunky, tak si dajte
Workbooks("TEST5.xlsm").Worksheets("List1").Range("D5").Value
a
ThisWorkbook.Worksheets("List1").Range("D5").Value

Obarvení řádků (23.3.2020 18:02)

OT: @ marjankaj : Ale prd, len som lenivý, nechce sa mi, som taký nejaký poklesnutý a demotivovaný z tej celej situácie okolo covitu ... nikoho neumravňujem

Obarvení řádků (23.3.2020 11:12)

Dajte nejakú prílohu, nech si to nemusíme vytvárať zase sami. Aspoň pár kategórií a dát. Dáta nemusia byť tie Vaše, kľudne vymyslené, ale rovnakého formátu, typu a rozmiestnenia.

Hypertextový odkaz v outlooku (22.3.2020 22:24)

Návod ako to sprevádzkovať.

Scitani hodnot na zaklade casoveho intervalu (22.3.2020 21:23)

marjankaj má pravdu, v týchto 2 prípadoch tam treba ešte pridať kontrolu na samotný deň. V druhom prípade sa naopak vypúšťa kontrola času.

Scitani hodnot na zaklade casoveho intervalu (22.3.2020 16:52)

Nie som teraz pri PC, ale myslím, že bude stačiť tie dve časové podmienky obaliť do NOT().

Jak vypsat určité hodnoty ze sloupce (22.3.2020 13:44)

Pr.

Scitani hodnot na zaklade casoveho intervalu (21.3.2020 8:28)

Pomocné stĺpce asi ani nepotrebujete.