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

MS Excel

Téma: generovanie poradia dokumentu

Zaslal/a dialektor 11.11.2014 18:17

Ak zadam cislo dokumentu a dam pomocou ovladacieho prvku ulozit cislo dokumentu mi prekopiruje do sheetu zoznam dokumentov. pri kazdom otvoreni excelu by som chcel aby sa vytvorilo cislo dokumentu ktore ide po poradi napr dokument cislo 1 (ulozim do zoznamu excel zatvorim a ked znova otvorim v bunke B2 bude poradove cislo 2. Problem je hlavne vtom ze by som potreboval nejak osetrit to ukladanie aby sa nemohlo prepisat cislo predosleho dokumentu a ak bude zadane cislo v bunke B2 uz existovat v zozname dokumentov vypise ze cislo existuje .(to len keby nekto chel nasilim prepisat cislo v B2)
Dakujem

Zaslat odpověď >

---

Anonym(11.11.2014 18:19)#022291

prikladam suborcitovat

dialektor(11.11.2014 18:21)#022292

subor

Příloha: 22292_skuska.rar (8kB, staženo 15x)

citovat

eLCHa(12.11.2014 6:22)#022294

Hmm - mno zeptám se takhle. Co už jste zkusil? Protože jediné, co vidím já, je žlutě podbarvená buňka s číslem 1. Soubor je xlsx, takže je možné, že jste jej jen špatně uložil...citovat

dialektor(12.11.2014 14:26)#022295

prepacte poslal som zly subor, mno skusal som to tak ze cislo v zltom policku prekopiruje makro a vlozi ho na sheet zoznam dokumentov.je to tam osetrene tak ze by malo automaticky ist na dalsiu prazdnu bunku lenze sa to nedeje . A problem je aj stou generaciou nazvu ak ulozim dokument napr cislo 1 do zoznamu dokumentov tak pri dalsom otvoreni excelu sa v cisle dokumentu (zlte policko ) zobrazi dva a ak by som to chel manualne prpeisat tak mi vtom zabrani. (myslim to tak aby sa nestalo ze bude existovat dokument s rovnakym cislom ) Ja som rozmysla o funkcii index neviem ci je uvaha spravna a neviem to realizovat v praxi .
Dakuem za rady

Příloha: 22295_skuska.rar (16kB, staženo 15x)

citovat

eLCHa(14.11.2014 7:45)#022328

Víte - ono to zadání pořád moc jasné není a nebo už začínám být pomalejší ;)

Takže jsem zkusil toto:Sub subAddDocNmbr()
Worksheets("zadat dokument").Protect UserInterfaceOnly:=True

With Sheets("zoznam dokumentov").Range("A1")
If Application.WorksheetFunction.CountIf(.Resize(.CurrentRegion.Rows.Count, 1), Sheets("zadat dokument").Range("B2").Value) > 0 Then
MsgBox "Hodnota už existuje!", vbOKOnly + vbExclamation, ThisWorkbook.Name
Else
If IsEmpty(.Cells(1)) Then
.Value = Sheets("zadat dokument").Range("B2").Value
Else
.Offset(.CurrentRegion.Rows.Count, 0).Value = Sheets("zadat dokument").Range("B2").Value
End If

Sheets("zadat dokument").Range("B2").Value = Sheets("zadat dokument").Range("B2").Value + 1
End If
End With 'Sheets("zoznam dokumentov").Range("A1")
End Sub

Technická poznámka. Na Slovensku měli natolik chytré lidi, aby nepřekládali názvy funkcí, že mně docela překvapilo, když jsem viděl toto: Tlačidlo1_Kliknúť
Vím, že jste si to nevymyslel Vy, ale pokud vytváříte VBA code - vyhněte se diakritice - v 99% to asi vadit nebude, ale i to 1% je hodně, když pak budete muset předělávat celý kód. Tzn - pokud takový píp excel (editor) vytvoří, předělejte to hned.citovat

dialektor(19.11.2014 19:29)#022421

Dakujem pekne za reakciu funguje to jak ma dik moccitovat

dialektor(20.11.2014 18:09)#022450

Dobry den, Mam otazku ohladom kodu ktory ste mi poslal .. je probelm vtom ze kym neupravym sheet zoznam dokumentov tak funguje super cisla doplna jak ma .. problem nastane ked v kode zadam aby zacal cislovat od bunky A2 a do bunky A1 napisem nazov stlpca napriklad TR cislo: ... a potom je to rozhadzane .. prikladam subor. Dakujem za pomoc a cenne rady.

Příloha: 22450_skuska22.rar (17kB, staženo 15x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse