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

[Azuzula]

Přidat to do makra importu jde, jenže lepší bude do místa kam chceš vložit tohle makro jen napiš jeho celý název vč. podtržítek a ono se pak provede až na něj přijde řada.
V tomhle případě:
rc_na_datum

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

Ještě si říkám, že by z toho snadno šla udělat funkce, pro někoho kdo hodně používá rodná čísla v excelu a nechce vypisovat data, ale napíše vzoreček a zkopíruje :)

[Reklama]

[esi32]

Azuzulko,nějak mi to nechodí...ale dnes už Tě nebudu obtěžovat.Já to budu zkoušet a zítra bychom to popř.dokončili.OK?

[Azuzula]

Co konkrétně nejde?

[esi32]

Hezký den,
nevím,třeba mám něco špatně.Prostě to nedělá nic.I když to spustím samostatně,tak se nic neděje.Kam to makro mam dát?Ted je v listu import,ale asi blbě..

[Azuzula]

To makro dej do modulu kde máš makro na import a pak by to mělo běžet.

--- Doplnění předchozího příspěvku (27 Kvě 2012 11:01) ---

To makro si hlídá sloupek "E" na řítomnost RČ a pak zapisuje datum do sloupku "D". Pokud jsou sloupky po importu jinak, tak to nebude fungovat. Musí se pak v makru upravit čísla sloupků.

[esi32]

Já si v tom importu vlastně ještě před tím,než dojde k překopírování do listu "Klienti" sloupce přehazuju,takže by bylo lepší,kdyby to makro nějak pracovalo v listu Klienti.Prostě aby si prošlo sloupec "D" a kde není datum narození,tak aby ho to dopočítalo z RČ ve sloupci "D".Není to moc komplikované?

[Azuzula]

Stačí na konec makra importu napsat název toho makra na zápis data z RČ za předpokladu, že makro importu končí na listu "Klienti" kdyby ne, tak na začátek makra rc_na_datum co jsem vytvořila předtím stačí přidat příkaz pro přesun na list: Sheets("Klienti").select
Bude vypadat takto:

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, i As Integer
Sheets("Klienti").Select
For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row


[esi32]

Azazulko,to je na mě moc..když to dám na konec,tak se nic neděje.Jakoby se to nespustilo.Nevím,hlava to nebere

[Azuzula]

Dobrá, tak jednoduše. Tak tedy v příloze je upraveno makro k importu. Po kliknutí na tlačítko necháme proběhnout import a pak v Listu "Klienti" proběhne makro na zápis data narození z RČ.

[esi32]

Tak ted jsem za debila:-)
Azazulko,kdybys byla někde od Žatce,tak bychTti přinesl kytičku..Jsi šikulka a já Ti děkuju za trpělivost.Snad už kvůli tomuhle nebudu otravovat.Ještě jednou Ti děkuju.

[Azuzula]

No, občas se lidem něco nepovede a pak přijde někdo jiný, udělá to přesně stejně a ono to funguje Tohle znám.
Kytička by potěšila jenže oba Žatce co jsem našla na mapě jsou odhadem 150 resp. 250Km daleko. Ale nemáš zač. Ráda pomůžu když umím.