Vytvoření databáze v excelu

[Jsimi]

Zdravím,
Prosím o pomoc. V práci musím k jednomu výrobku vyplnit něco jako rodný list, vzor je v příloze. Po každém vyplnění je tento list pomocí maker vytištěn a uložen do předem určeného místa jako samostatný soubor, kterých je cca 100 za jeden měsíc. Nedalo by se vyplnovat pomocí nějakého formuláře a ukládat tak do nějaké databáze, aby bylo možné záznamy vyhledávat,filtrovat atd. Navíc s tímto souborem pracují dva různí operátoři na různých místech, kteří si ho nestále předávají a musí čekat jeden na druhého.Zárověň musí zůstat možnost tisknout v podobě ve které je vzor. Tento list by měl být pro každý výrobek jedinečný s automatickým číslováním v daném roce. Buňky které operátor musí vyplnit jsou označeny žlutě.
Dík za jakoukoliv pomoc.

[Reklama]

[cmuch]

Do databáze by to asi i šlo, ale bylo by potřeba ke 100 sloupců.
To jak ukládáš soubor celý by si ukládal buňky do databáze.
Na listě vzor by si pak vyplnil pořadí Check listu a podle toho čísla by se pak data z databáze načetla, třeba ve formátu 120001 (rok a pořadí).

Třeba tak, ale jde to třeba i jinak. Určitě někoho něco třeba napadne.

To jen takový nástin.

[Jsimi]

A co něco na spůsob faktury. Vyplnit, vytisknout, zaůčtovat a případně dohledat podle nějakých kriterií. Něco podobného jsem i viděl, ale absolutně nenám tušení jak to funguje.

[elaaos]

Pokud stačí ukládat data do jiného listu daného souboru, tak stačí přidělat dva listy (jeden pomocný, jeden výstupní - datový)
Pomocný musí mít pořadí sloupců tak, jak budou potřeba ve výsledné tabulce ve tvaru (kde "Pole1" je název prvního sloupečku výsledné tabulky a "=Pole1" je vzorec odkazující na zdrojovou buňku ve formuláři) - přes pravé tlačítko na záložku daného listu dáme skrýt.
Pole1 Pole2 Pole3 Pole4 ...
=Pole1 =Pole2 =Pole3 =Pole4 ...

A datový list (stačí názvy sloupců v pořadí stejném jako pomocný list)
Pole1 Pole2 Pole3 Pole4 ...

V makru jen upravíme předefinované názvy a mělo by to fungovat

Kód: Vybrat vše

Sub UlozeniDat()
'
' UlozeniDat Makro
' Autorka Eliška Kymličková
' lektorkaE@gmail.com
'

'Název pomocného listu
    Dim Pom As String
   
'Název datového listu
    Dim Data As String

'Název datoveho formulare
    Dim Form As String

'Adresa první datové buňky pomocného listu
    Dim Bunka As String

'Poslední řádek exceludle verze sešitu 65536 nebo 1048576
    Dim Maxi As Long

'Předefinované názvy
    Pom = "Pomoc"
    Data = "Datovy"
    Bunka = "A2"
    Form = "vzor"
    Maxi = 1048576

'
    Sheets(Pom).Visible = True
    Sheets(Pom).Select
    Range(Bunka).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(Data).Select
    If Selection.End(xlDown).Row = Maxi Then
        Range(Bunka).Select
    Else
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
    End If
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
   
    Sheets(Pom).Select
    Range("A1").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    Sheets(Form).Select
End Sub