Příspěvky uživatele

;)))
Mno - vidím, že vás opět baví spekulovat, o co by mohlo tak asi jít ;)))
Kdybych se k vám měl přidat, tak klidně to může být i ten formát a v buňce je číslo 72137 ;))
(např. "TU "0"/13" změnit na "13/"0)

@Lenka
asi budete muset být konkrétnější a nejlépe bude, když vložíte přílohu.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 2 Then
Cells(.Row, 4).Value = Application.Evaluate("MAX(D2:D" & .Row - 1 & "*(B2:B" & .Row - 1 & "=B" & .Row & "))+1")
End If
End With 'Target
End Sub

mno - moc geniální to není ;))

PS.: - já také ne

66 tisíc řádků? - určitě VBA a ano, přesně tak.

Mimochodem, přesně to dělá ten vzorec. Vyhledá maximum - protože to je rovno poslední hodnotě a přičte 1
Vy tam nemáte to +1 a hlavně jsem zmaten z toho, že
101 v řádku 3 má číslo 9140003 (napevno vložené)
101 v řádku 7 má číslo 9140015 (napevno vložené) - nemělo by být 9140004?

200 v řádku 4 má číslo 1140010 (napevno vložené)
200 v řádku 6 má číslo 9140005 (napevno vložené) - nemělo by být 1140011?

Absolutně zapomínáte na písmenka R a C

Moc pěkný kód to není, je to pouze upravený ten váš
radek = 2
LC = 7
prvni_sloupec = 2

ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R" & radek & "C" & prvni_sloupec & ":R" & radek & "C" & LC & ",RC[" & -(LC - prvni_sloupec + 1) & "]:RC[" & -1 & "])"
ActiveCell.Offset(1, 0).Select

Jesli jsem to pochopil, tak maticový
=MAX(D$2:D7*(B$2:B7=B8))+1Řekl bych dvě věci:
- ta příloha mi moc smysl nedává.
- nevím, kolik těch řádků se vzorci tam bude, ale možná bych se přikláněl k VBA a konstatntním hodnotám v buňkách

Ano, to jsem taky zkoušel. Není třeba rozdělovat do dvou sloupců. Použijte vlastní formát např.:
0%;0%;0%; a hodnotu nechte zobrazenou.

edit: už jste na to přišel ;)))

Nepoužil jsem ikony. Pokud to takhle bude stačit, vysvětlím.

Tak abychom si rozuměli, nesnažím se docikať výše než vy a nepochybuji, že víte o tom, že VBA se dá prolomit stejně jako to ví většina pravidelných přispěvatelů. To, že to nechci uvést znamená, že nechci dávat návod těm co to neznají. Já sám znám jeden ovšem naprosto spolehlivý způsob, pokud jich je více je mi to jedno, protože jeden stačí. Považuji ovšem za správné upozornit všechny, že vkládat heslo do kódu je jako napsat ho na papírek a dát pod klávesnici. Pokud tedy někdo píše, že se jedná o citlivá data, měl by se tomu vyhnout.
Pokud jde o zaheslování sešitu, tam se přiznám, že jsem jednou zapoměl heslo a snažil se najít způsob jak ho prolomit. Čas, který jsem tím ztratil byl delší než znovuvytvoření. Pokud existuje, tak ho nehledám, protože pokud někdo hesluje soubor, tak to respektuji.

Ale hlavně, v tomto případě pravděpodobně není potřeba použít kód, protože excel poskytuje dostatek nástrojů k uspokojivému řešení.

už musím jít, ale i pokud bude jen na chvíli takové heslo načtené v kódu, tak si ho můžu stopnutím toho kódu zjistit (jak to udělám, to o mně nechtějte vědět, protože vám to neřeknu).
Nene - VBA není dobrý nástroj na takovéto věci ;)

Pokud bude v kódu napsané heslo, např. ...Password:="Heslo"tak bohužel není problém toho heslo zjistit ani v zamknutém projektu.

Sub subDeleteEmtyColumns()
Dim rCol As Range, rDel As Range
For Each rCol In Range("A2:BZ10001").Columns
If Application.WorksheetFunction.CountBlank(rCol) = rCol.Rows.Count Then
If rDel Is Nothing Then
Set rDel = rCol
Else
Set rDel = Union(rDel, rCol)
End If
End If
Next rCol
Set rCol = Nothing

If Not rDel Is Nothing Then
rDel.EntireColumn.Delete
Set rDel = Nothing
End If
End Sub

@marjankaj
To by mohlo být zajímavé řešení, ale muselo by se znát konkrétní případ. Zatím mi přijde zbytečně složité.

Nicméně po zkušenosti, kdy jsem USB vložil do PC, pracoval s ním, pak vyjmul, hned zase vložil a už nikdy nerozjel k tomu nemám důvěru. Samozřejmě, důležitá data by měla být zálohována a já je samozřejmě neměl ;))) (naštěstí nebyla tak důležitá), nicméně když to heslo budu potřebovat teď a tady a záloha bude někde jinde...

Mno - v tom případě je asi těžko poradit nějaké řešení na dálku.
Pokud se jedná o citlivá data, tak bych asi nedoporučoval otevírání makrem - protože není nic jednoduššího, než dostat heslo z kódu.
Možné řešení je skrýt list a heslem uzamknout sešit - to znemožní zobrazit skrytý list bez hesla. Soubor, ale otevřít půjde takže se data aktualitují bez hesla.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje