MS Excel

Zdravím, chtěl bych požádat o pomoc s řešením Excelu. Vysvětlení nejlépe na příloze, na listu Kontrola zadám do A2 kód, následně se provede kontrola, zda se tento kód nachází ve sloupci A listu Databáze. Pokud ano, zobrazí se na listu Kontrola v buňce B2 odpověď ANO (pokud tam není tak NE) a následně se ověřovaný kód (pokud je ověření úspěšné) vyplní do první volné buňky ve sloupci A listu Výsledky a na stejném řádku ve sloupci B se vyplní datum, kdy se tento kód úspěšně ověřil. Kódy se mohou ověřovat opakovaně, vždy vznikne nový zápis na listu Výsledky. Nenapadá vás, jak toto udělat? Předem moc díky.

Příloha https://ulozto.cz/!V5Mts39boocF/excel-priklad-xlsx

Zaslat odpověď >

Pavlus(5.12.2016 20:13)#033691

1.) Kontrolu, zda je v databázi, lze provést s využitím funkcí JE.CHYBHODN a SVYHLEDAT.
=KDYŽ(JE.CHYBHODN(SVYHLEDAT(A2;Databáze!A:A;1;NEPRAVDA));"Ne";"Ano")2.) Zapisování na list Výsledky pak lze udělat přes událost listu ve VBA.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim volny_radek As Long

If (Target.Address = "$A$2") And Range("B2").Value = "Ano" Then
volny_radek = Sheets("Výsledky").Range("A100000").End(xlUp).Row + 1
Sheets("Výsledky").Cells(volny_radek, 1).Value = Range("A2").Value
Sheets("Výsledky").Cells(volny_radek, 2).Value = Date
End If

End Sub
P.citovat

eLCHa(6.12.2016 11:26)#033695

@Pavlus
Jestli můžu, tak 2 technické poznámky

1) pokud potřebujete pouze zjistit, zda se nějaká hodnota vyskytuje v jiném seznamu a nikoliv její pozici, použijte COUNTIF(S) > 0. Je to snazší na konstrukci, není třeba ošetřovat chyby a snadno se přidávají další podmínky.
2) pokud použijete objekt tabulka, tak se obejdete bez takovýchto konstrukcíSheets("Výsledky").Range("A100000").End(xlUp).RowAle berte jen jako tipycitovat

Treble(6.12.2016 12:23)#033697

Moc díky za ochotu a pomoc, vše funguje přesně jak potřebuji!citovat

Téma: Automatická kontrola a vyplňování

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje