< návrat zpět

MS Excel

Téma: generovanie poradia dokumentu rss

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
avatar
prikladam suborcitovat
dialektor(11.11.2014 18:21)#022292
avatar
subor
Příloha: rar22292_skuska.rar (8kB, staženo 16x)
citovat
icon eLCHa(12.11.2014 6:22)#022294
eLCHa
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
avatar
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: rar22295_skuska.rar (16kB, staženo 17x)
citovat
icon eLCHa(14.11.2014 7:45)#022328
eLCHa
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
avatar
Dakujem pekne za reakciu funguje to jak ma dik moccitovat
dialektor(20.11.2014 18:09)#022450
avatar
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: rar22450_skuska22.rar (17kB, staženo 16x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje