Příspěvky uživatele

Díky moc elninoslov.

Podívám se na to. Samozřejmě mi stačí jedna varianta. Není třeba ladit všech 5. Podívám se a napíšu

EDIT:

je to přesně to co jsem potřeboval :-).

Diky moc!!

Kod je docela hardcore, ale verim, ze to pochopim :D.

Ještě jednou díky ;)

ahoj eLCHa.

Díky za reakci :).

Kód jsem vyzkoušel. Počet rozdílů vím kde zjistím. Ale nevím, jak mám udělat, aby mi makro vypsalo všechna jména které jsou v rRange1 a nejsou v rRange2. Jak na to prosím?
A pokud by si měl čas/chuť... Mohl by jsi prosím jednotlivé řádky okomentovat? Jak jsem již psal, teprve se učím a tvůj kód už vypadá hodně pokročile. Potřebuju to ne jen spustit, ale případně i někdy někomu vysvětlit nebo editovat.

Každopádně díky moc :)

Ahoj elninoslov.

Díky za reakci :).

předchozí příspěvek byl spíše reakcí na příspěvek na Jeza.m. Na tvůj jsem ještě nestihl reágovat. Přikládám vzorový příklad v zip. souboru. Po zmáčknutí tlačítka se provede již zaslaný kód, který pouze vezme jména ve sloupci A a ve sloupci D, uloží je do dvou polí (Day1 a Day2) a po stisknutí tlačítka Výpis se pole vypíšou. Ten výpis mám jen pro kontrolu, zda jsou vážně jména uložena v polích.

Výsledek v tomto případě bude takový:

V Day1 chybí - Karel Mordýř, Miloslav Volný. A zároven zapsat počet jmen číslovkou. Tedy v tomto případě 2

V Day2 chybí - Nikolas Bannew, Jan Novotný, Lukáš Bolek a počet 3.

s VBA se učím asi 4 dny. Dostal jsem v práci za úkol vyrobit pro mě hodně složité makro a popisovaný úkol je jednou dílčí části. Postupně se dílčí části učím. Takže pokud jsem zvolil obtížný postup, je to možné.

Je již zadání popsané lépe? Za předchozí nepřesnosti se omlouvám. Pokud by nebylo něco jasné, pokusím se objasnit.

Za pomoc moc díky :)

ahoj Jeza.m , díky za reakci.

Jde o to, že pole Day1 a Day2 mám. Je to pole jmen, které není zadáno staticky jak to máš ty, ale vždy se naplní aktuálními jmény, ze zdrojového listu
Sub meeting()
'
Dim Day1() As String ' First day meeting
Dim Day2() As String ' Second day meeting
Dim i As Integer
Dim last_row As Integer

last_row = ThisWorkbook.Worksheets"Tabelle4").Cells(Rows.Count,1).End(xlUp).Row
last_row2 = ThisWorkbook.Worksheets("Tabelle4").Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To last_row

ReDim Preserve Day1(i)

Day1(i) = Cells(i, 1).Value
ThisWorkbook.Worksheets("Tabelle4").Range("A" & i + 25).Value = Day1(i) 'Print array on the cells

Next i

For i = 2 To last_row2

ReDim Preserve Day2(i)

Day2(i) = Cells(i, 4).Value
ThisWorkbook.Worksheets("Tabelle4").Range("B" & i + 25).Value = Day2(i) 'Print array on the cells

Next i

Mám tedy dvě pole s jmény. A nyní potřebuji udělat toto:

V poli Day1 je (nyní pouze demonstračně) 6 jmen a v poli Day2 je 5 jmen.

Potřebuji, aby mi makro po stisknutí tlačitka zapsalo do buňky toto:

v Day1 je oproti Day2 "Karel". Pripadne, ze by bylo v poli Day2 vice lidi jak v Day1, makro zapise ze v poli Day2 je navic "Karel". Pokud v Day1 budou napriklad 3 jmena ktere nejsou v Day2 (a zbytek bude stejny), makro zapise tyto 3 jmena ve tvaru: V Day2 nejsou "3 jmena".

Kodu od tebe moc nerozumim uprimne: jsem zacatecnik ve VBA. Pokud by sel okomentovat byl bych rad.

Zaroven ale po upraveni promennych a spusteni kodu hazel program nesmyslne vysledky... Treba napsal do MsgBoxu jedno jmeno 4x po sobe...

Diky

Zdravím,

mám prosím takvý dotaz:

mám dvě dynamické pole (Day1 a Day2). V jednom poli je uloženo 6 jmen a v jednom 5 jmen. Potřebuji, abych mohl tyto dvě pole porovnat a aby výstup byl takový:

Program vypíše, jaké jméno je v Day1 ale není v Day2 a zároveň číslovkou napíše, o kolik takových jmen se jedná (v našem případě to je logicky 1).

Později bude tento sysém aplikovaný na mnohem více jmen. Takže potřebuji aby to bylo vyřešeno makrem.

Za rady moc díky :)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje