Příspěvky uživatele

Dajte sem prosím prílohu, kde farebne vyznačte a popíšte čo kde chcete mať.

Nájdi poslednú prázdnu bunku v C ??? To bude vždy posledná bunka, ktorú aktuálny Excel dokáže adresovať, čiže Rows.Count, čiže E2013 = 1 048 576.
Vy asi hľadáte poslednú neprázdnu bunku, nie prázdnu. V tom prípade tam máte toto dobre:
PosledniPlnyRadek = Cells(Rows.Count, "C").End(xlUp).Row
Potom teda doplnte:
If PosledniPlnyRadek > 4 Then Cells(5, "B") = Cells(PosledniPlnyRadek, "C")

Ak to chcete doplniť do predošlého kódu, tak:
Sub IncreaseNumber()
Dim Hodnota, Riadok As Long
With ThisWorkbook.Worksheets("Hárok1")
Hodnota = .Cells(5, 3)
If Hodnota = "" Or Not IsNumeric(Hodnota) Then
.Cells(5, 3) = "0001"
Else
Riadok = .Cells(Rows.Count, 3).End(xlUp).Row
If Riadok + 1 > 5 Then
.Cells(Riadok + 1, 3) = Format(Val(.Cells(Riadok, 3)) + 1, "0000")
.Cells(5, 2) = .Cells(Riadok, 3)
End If
End With
End Sub
Vykoná sa to ale iba keď sa bude meniť číslo na N+1. Záleží na tom, kde sa čo v kóde umiestni, neviem ako to presne chcete.
Píšem iba z tabletu, bez overenia...

No, budeme Vám veriť

Mne to hodí #NEDOSTUPNÝ. O fnc PROB som ani netušil, a SOUČIN.MATIC/MMULT som videl v reále tuším raz (myslím, že tu na fóre). Skúmať sa mi to nechce. Hlavné je, že máte výsledok

Prečo nemôžete použiť takúto prevodnú tabuľku ? Hoďte ju opravenú (máte tam chybné relatívne adresovanie), na skrytý list a máte to bez makra, ktoré by Vám znemožnilo Undo, pretože by ste musel použiť OnChange udalosť.

EDIT: Napr takto. Len si buď dopredu rozšírte výberovú tabuľku, alebo pred zadaním nového mena, o jedno potiahnite dole pravý spodný roh.

A keby ste niečo také chcel, musíte použiť makro. Napr. takto. Parametrov zadajte koľko chcete sčítať TextBoxov. Musíte poznať meno TextBoxu. Je nanajvýš vhodné si ich premenovať. A potom ich zapíšete ako text spolu s názvom listu, tak ako je v ukážke.

No mňa porazí druhý krát! Tak to je potom poriadny průser! To som si vôbec nevšimol. Fujtajbl, to bude zase bordel v tom. 365-ťka je ekonomicky výhodnejšia. Tento model naozaj vo veľkom pred rokmi zaviedlo Adobe na svoje CC, a už sa to odvtedy vezie, kancelársky SW, hry, myslím, že už som počul o 3D SW. Aj voľakedy to tak bolo (také účto a iné), ale to bolo v malom merítku.

Výpočet IBAN. Nikde mi to tu nenašlo, tak keď niekto potrebuje, vyskúšajte. Robil som to podľa tohto návodu a testoval na pár známych už prepočítaných číslach, aj podľa NBS, a sedí to.

Niet, čo viac dodať. Taká blbosť...

Úprava podľa SZ.

Tak skúste niečo takéto (Stĺpec C má formát Text):
Sub IncreaseNumber()
Dim Hodnota, Riadok As Long
With ThisWorkbook.Worksheets("Hárok1")
Hodnota = .Cells(5, 3)
If Hodnota = "" Or Not IsNumeric(Hodnota) Then
.Cells(5, 3) = "0001"
Else
Riadok = .Cells(Rows.Count, 3).End(xlUp).Row
If Riadok + 1 > 5 Then .Cells(Riadok + 1, 3) = Format(Val(.Cells(Riadok, 3)) + 1, "0000")
End If
End With
End Sub

Tak?

Vracia to číslo riadku. Pre vrátenie hodnoty z iného stĺpca sa to upraví na:
{=INDEX(B1:B10;MATCH(TRUE;SUBTOTAL(9;OFFSET($A$1;;;ROW(A1:A10)))=3000;0))}
{=INDEX(B1:B10;POZVYHLEDAT(PRAVDA;SUBTOTAL(9;POSUN($A$1;;;ŘÁDEK(A1:A10)))=3000;0))}
Ak nieje presný súčet vráti chybu #NEDOSTUPNÝ

EDIT: Jáj, a keby ste hľadali prvý súčet, ktorý prekročí hranicu, tak "=3000" nahraďte ">3000", príp ">=3000"

No mňa porazí ! Konečne CONCAT/TEXTJOIN

Parameter 1 na konci, treba zmeniť na 0.

Varianty som popisal 3, Tak teraz neviem čo myslíte. Takže máte zálusk na import vyexportovaného súboru ? Alebo máte teda na mysli to, že z jedného Excelu do druheho Excelu. Ak to s tým exportom, tak ho treba dodať nech sa naňho pripravíme, no ak je to iný excel subor, takbto spravíme tuším ešte lahšie. Dajte ešte čo najviacbinformácií, a možno večer sa bVám na to pozriem.

Z brucha:
=INDIRECT("'"&A1&"'!J2")
=NEPŘÍMÝ.ODKAZ("'"&A1&"'!J2")

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje