první prázdný řádek a vzorec Vyřešeno

[d1amond]

K měsíci se může u mužů přičítat i 20 a u žen i 70.

[Reklama]

[esi32]

mesic=mesic -50

zvýraznil jsem to a ono to není v Code videt

--- Doplnění předchozího příspěvku (26 Kvě 2012 16:24) ---

Lidičky,nějak se nám to komplikuje..Takhle bych to zkusil ujasnit.Ve sloupci E je rodné číslo.Ve sloupci D je vzorec,který z rodného čísla vypočítá datum narození.Tím i zároven provede jakoby kontrolu toho RČ..Takže bych klidně mohl z UserFormu odstranit Textbox T4.Datum narození by se v listě vyplnilo samo pomocí vzorce.No a jsem opět na začátku.Když vzorec rozkopíruju na třeba dvěsta řádků,tak mi to dalšího klienta uloží na řádek 201..Jak toto ošetřit?Tedy aby vzorec mohl být rozkopírovaný a přesto bych mohl klienty ukládat za sebou jak budou přibývat?

[d1amond]

Code neumí tučné.

Nejsou deklarované proměnné. Jinak mi to přijde zbytečné, nechat uživatele vypisovat datum, když to lze udělat na základě rč automaticky. Na vzorce se vybodni. Když už máš povolené makro, nech ruční zadání odkontrolovat rovněž přes fci a událostní proceduru Change.

[esi32]

Takže jsem to myslel dobře.Zrušim zadání data narození..To makro bys dokázal upravit?Já to nezvládám...a jak jsem psal,že ještě zadávám klienty pomocí importu.V importu kolonka na datum narození není.Takže do listu klient import přijde bez data narození.jak ho tam pak doplním?proto potřebuji mít ten vzorec v listu a ne v makru..je to fuška

[Azuzula]

Definuj proměnnou, potom by to mělo jít
Dim mesic as Variant

[d1amond]

Azuzula to má rozjeté, tak to snad dotáhne. Já si k tomu sednu nejdřív večer u televize.
Import probíhá jak? Tam není možné prohnat fci, která z rč vyrobí i datum? Případně doplnit datum na základě události na listu - změna buňky.

//používejte Option Explicit, pak se vyhnete problémům s chybějící proměnou.

[Azuzula]

O doplňování 20 resp. 70 k RČ nevím, není to něco nového z přelomu tisíciletí?

[d1amond]

Je to opatření, kdyby náhodou v jeden den došla všechna kontrolní čísla (platné od 2004).

[Azuzula]

Tím se mi to trošku komplikuje, ale momentálně studuju jak se tvoří RČ od roku 1954 po rok 2000 a výš. Je to trochu složitější, ale nakonec to vygenerování správného data narození z RČ dám do kupy :-)

[d1amond]

Je to v zákoně 53/2004 sb. §13 odst. 6 - přidělování rodných čísel.

Nápověda
Pokud je rok < 54 a rč má 9 míst a nebo >= 54 a má 10 čísel, přičteš 1900
Jinak přičteš 2000

[Azuzula]

Našla jsem si to, mám nastudováno a už mám nejspíš i funkční verzi makra vč. kontroly a obsluhy dodatečných čísel +20 +50 a +70.

Kód: Vybrat vše

Dim rc As String, date1 As Date, date2 As Date
Dim rok As Integer, mesic As Integer, den As Integer

rc = Range("A1")
date1 = Range("B1")

rok = Mid(rc, 1, 2)
If Len(rc) = 9 Then
    If rok <= 53 Then
        rok = rok + 1900
    Else: MsgBox "Špatný formát RČ": Exit Sub
    End If
ElseIf Len(rc) = 10 Then
    If rok >= 54 Then
        rok = rok + 1900
    Else: rok = rok + 2000
    End If
End If
mesic = Mid(rc, 3, 2)
If mesic > 20 And mesic < 33 Then
    mesic = mesic - 20
ElseIf mesic > 50 And mesic < 63 Then
    mesic = mesic - 50
ElseIf mesic > 70 And mesic < 73 Then
    mesic = mesic - 70
Else: MsgBox "Špatný formát RČ": Exit Sub
End If
den = Mid(rc, 5, 2)

date2 = den & "." & mesic & "." & rok

If date1 = date2 Then
    Cells(2, 1).Value = date1
    Cells(2, 2).Value = rc
End If
End Sub


Pro ladění momentálně používám buňky "A1:B2" nakonec se to v makru doplní podle potřeby projektu.

--- Doplnění předchozího příspěvku (26 Kvě 2012 17:49) ---

Přikládám opravený sešit, otestujte to, mě chybí nějaké knihovny v excelu a nefunguje mi formulář. Teď už můžete zrušit Textbox "T4"

[esi32]

lidičky,vy jedete jak fregaty.Vůbec to nestíhám pobírat..odzkouším a řeknu..jinak s těmi proměnnými apod. na mě opatrně.Moje znalosti jsou na úrovni záznamníku maker a možná jsem schopen kod rozluštit u upravit.