(přidán další k prodeji - již 3ks)

Zdravím, třeba takto? Sub WriteCountErr() Dim lastrow As Integer, i As Integer Dim MyDate, MyMonth With Sheets("OPEN") 'posledni radek v sl.N lastrow = .Cells(.Cells.Rows.Count, "N").End(xlUp).Row 'opakuj pro vsechny radky krom zahlaví For i = lastrow To 2 Step -1 MyDate = .Cells...

Prodám SSD 1. Patriot Flare 120GB za 1000 kč - pokud platba předem tak poštovné zdarma, jinak + 100kč SSD_cdi_pf2008012152.png 2. Patriot Flare 120GB za 1000 kč - pokud platba předem tak poštovné zdarma, jinak + 100kč SSD_cdi_pf2008012159.png 3. Kingston SSDNOW300 120GB za 1000 kč - pokud platba pře...

A co ten vzorec poupravit, concatenate tam být přece nemusí. =HYPERTEXTOVÝ.ODKAZ("mailto:"&SVYHLEDAT($E$3;Data!$A$1:$C$6;3;NEPRAVDA)&"?subject=Reakce na email od pana "&E3;SVYHLEDAT($E$3;Data!$A$1:$C$6;3;NEPRAVDA)) Pro to zobrazeni v buňce složí 2.parametr HT

Jedine makrem na zaklade neceho.
Vzorcem to nepujde nakombinovat.

Z makra jsem odstranil select. Spadne to na tom řádku Strikethrough? With Range("B33:U" & pocet_radku) .FormatConditions.Add Type:=xlExpression, Formula1:="=$j33=""LOST""" .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1...

Tak zkusit jestli na těch PC jde nastavit přeškrtnutí písmen https://support.office.com

Nechybí na těch počítačích nějaký font, který je použit v tom souboru?

Ahoj, použij toto makro, ale pozor, zaškrtávací políčka (checkboxy) musí být pojmenovány jako listy. Sub Zobrazeni_skryteho_listu() 'checkbox musi byt pojmenovat jak list With ActiveSheet 'xlOff = odskrtnuto, xlOn = zaskrtnuto If .CheckBoxes(Application.Caller).Value = xlOff Then 'zobrazit list Shee...

No asi nikdo tady nepoužívá VISIO.

Již má vyřešeno na jiném fóru.

Tak pak přes VBA