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

[Azuzula]

Hlavně že mi víme o čem je řeč

Proměnné jsou popsány třeba zde nebo zde. Vyplatí se používat v každém modulu "Option explicit" to zaručí, že budou všechny proměnné deklarované a nenastane problém s typem proměnné.

Option explicit se dá permanentně zapnout v nastavení VBA. "Tools" -> "Options" -> a zatrhnout položku "Require variable declaration".

[Reklama]

[esi32]

Azazulko,píše mi to špatný formát RČ.Zkouším s lomítkem,bez lomítka,s mezerou,bez mezery a pořád nic.V jakém formátu mam zadat?

[Azuzula]

v původním sešitu bylo bez lomítka tak jsem to podle toho tak napsala, 10 čísel když se jedná o RČ z roku 1954 a novější a 9 čísel když je starší.

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

Jé teď už tam vidím tu chybku, jak školácké! To se omlouvám.
Opraveno.

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

PS: ten formát se dá lehce změnit, stačí si najít "Len(rc) = 9" a "Len(rc) = 10" a přičíst 1 tím se prodlouží RČ o lomítko, nebo mezeru, to už je jedno.

[esi32]

Ted je to ono...Azazulko,a pustíme se do toho importu?Teda jestli je na to chut:-)

[Azuzula]

Můžu se na to podívat, ale s importem jsem nikdy nepracovala.

[esi32]

Já ten import mam vyřešený-do jisté míry.Ten import je druhý způsob zadání klienta.Tedy ne přes UserForm.Makrem ten soubor stáhnu,srovnám si pořadí sloupců,odstraním nepotřebné sloupce a uložím do listu klient.Problém je s tím rodným číslem,resp.datem narození.V tom importovaném souboru položka datum narození není.Je tam pouze RČ.Proto-a ted se opět vrátím na začátek-bych v tom listě ve sloupci Datum narození potřeboval doplnit to datum narození.
Je to srozumitelné?

[Azuzula]

Ano, rozumím. Stávající makro by stačilo vložit do cyklu aby projelo každý naimportovaný řádek a doplnilo datum z RČ.

[esi32]

Snad máš pravdu,jen ještě jednou upozornuju,že vlastně při importu nepoužívám vůbec ten UserForm.A časem počítám,že se nebude používat vůbec.Teda když budou přibývat klienti:-)

[Azuzula]

Chápu to, mám napsanou proceduru, ale narazila jsem na problémek a to je formát buněk s RČ zakrytý # mřížkami. RČ začínající nulou resp. po roce 2000 se pak chovají nestandartně a dojde k potížím, buď je vyhodnoceno jako do roku 1954 tj. 9 čísel a nebo jako chybné. Pro import asi bude třeba změnit formát buněk s RČ na text aby se zachovala i ta nula na začátku i když nejspíš první potencionální klient bude až v roce 2018.
PS:Kritická oblast roků je tedy 2000 až 2009 potom to zase funguje.

[esi32]

Změna formátu na text by neměla dělat problém.Ted jsem to zkusil a jen informuje ble ble ble..víš co myslím...Můžu pak i popř. v toom importu ještě před uložením na list klient provést tu změnu formátu.Ale myslím,že to bude zbytečné,stačí formát buněk v listu..teda doufám:-)

[Azuzula]

Tak tady je makro

Kód: Vybrat vše

Sub rc_na_datum()
Dim rc As String, datum As Date, _
rok As Integer, mesic As Integer, den As Integer
Dim i As Integer

For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row
'kontrola RČ
rc = Cells(i, 5)
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 < 13 Then
ElseIf mesic > 20 And mesic < 33 Then
    mesic = mesic - 20
ElseIf mesic > 50 And mesic < 63 Then
    mesic = mesic - 50
ElseIf mesic > 70 And mesic < 83 Then
    mesic = mesic - 70
Else: MsgBox "Špatný formát RČ": Exit Sub
End If
den = Mid(rc, 5, 2)
datum = den & "." & mesic & "." & rok
'konec kontroly RČ
Cells(i, 4).Value = datum
Next
End Sub


Jen doufám že už tam nemám chyby.
PS: v tom makru ve formuláři jsem narazila na drobnost, ano na další.
je tam řádek:
ElseIf mesic > 70 And mesic < 73 Then
místo "73" musí být "83" jinak to v případě RČ s přičtenou 70kou a měsícem 10 a víc hodí chybu. Je to drobnost a pravděpodobnost je více než mizivá, ale mám ráda pořádek.

[esi32]

Azuzulko,ty jsi ale hlavička:-)...chybovat je lidské,s tím si hlavu nedělej...to nové makro můžu přidat do procedury importu?Spustí se to najednou s tím importem?nebo budu muset mít zvlášt tlačítko?