• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Já teda nevím - tak jak jste to popsal, tak by to šlo takhle
Sice se mi to nezdá - protože když jsou body na stejném místě, tak mi to moc smysl nedává...

@Alfan
Obecné řešení Vám asi nikdo neudělá

@lubo
díky za doplnění

@marjankaj
No ja som to musel upraviť, Čiarku som nahradil stredníkom.
Já vím, ale nemusíte to přece dělat ručně - nechte excel ať to udělá za Vás ;)
http://elcha-en.blogspot.com/2015/01/easy-and-quick-formula-translation.html

Tak - neměl jsem moc času, bylo to pro mně jen takové krátké odreagování od povinností.
Jen dodám - pokud se v textu objeví 2 roky - např x20082010 - vyhodí chybu nebo dá nesmyslný výsledek - neošetřuji, protože stejně nevím který rok je správně (případně si dořešte podle vstupů). Stejně tak vyhodí chybu, když tam rok není - také neošetřuji - alespoň to upozorní - pokud chcete ošetřit, použijte příslušnou funkci (IFERROR, JE.CHYBHODN apod.)
Příloha

@Alfan
funguje ve všech - je to maticový vzorec - tzn zadat do první buňky (ctrl+shift+enter)
potom ctrl+c a postupně po jedné vkládat

edit - druhý vzorec je totéž - anglicky - aby si to slováci (a další) nemuseli překládat

maticově=ČÁST(A2;SUMA(IFERROR(NAJÍT($F$2:$F$14;A2);0));4)/1=MID(A2,SUM(IFERROR(FIND($F$2:$F$14,A2),0)),4)/1

??With Sheets("pepe").Range("P15:P22")
For i = 1 to .Cells.Count
If Sheets("blabla").Cells(1, 2).Value Like .Cells(i).Value Then
'kód
End If
Next i
End With 'Sheets("pepe").Range("P15:P22")

Není třeba zakládat nové vlákno, když se v podstatě jedná o pokračování minulého dotazu

jistě, že to píše type mismatch, protože srovnáváte jablka (hodnotu) a hrušky (pole).
ovšem rada bude těžká, protože nevíme co děláte - vypadá to na cyklus + Like nebo na Application.WorksheetFunction.Match - v Match lze použít zástupných znaků.

Asi jsem slepý, ale nikde nevidím, že je to VBA ;)If Sheets("blabla").Cells(1, 1).Value Like "*aoj*" Thennicméně srovnání AHOJ a *AOJ* Vám fungovat nebude. Pokud chcete i toto, tak to je složitější a možná to někdo pro Vás zadarmo udělá.

"AHOJ" Like "*AOJ*" vrátí False

"AHOJ" Like "*A?OJ*" vrátí True

=KDYŽ(COUNTIF(A1;"*A*");pravda;nepravda)nebo funkce NAJÍT v kombinaci s např. IFERROR nebo JE.CHYBHODN

“*AOJ*“ ale rozhodně vrátí nepravda

I Vám přeji dobrý den.
Maticově:=INDEX(A:A;MAX(NE(JE.PRÁZDNÉ(A:A))*ŘÁDEK(A:A)))

sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)
Pokud chcete konkrétní adresář, tak např.: Const MY_DIR As String = "X:\Dir\Dir"
ChDrive MY_DIR: ChDir MY_DIR

Dim sFileName As String
sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)
Pokud chcete aplikaci nastavit do původního stavu, tak např.: Const MY_DIR As String = "X:\Dir\Dir"
Dim sCurDir
sCurDir = CurDir
ChDrive MY_DIR: ChDir MY_DIR

Dim sFileName As String
sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)

ChDrive sCurDir: ChDir sCurDir

=ZVOLIT(SIGN(A1-B1)+2;"ztrátová";"šul nul";"zisková")

přesvědčovat Vás samozřejmě nebudu ;)

@elninoslov
přečtěte si ten odkaz, není třeba používat cyklus

Ne - toto vzorcem nelze (pokud to nechcete dělat metodou, kterou jste nastínil)

popřípadě vymažte B1
do B2 vložte=B1&","&A2a zkopírujte dolů
ve spodní buňce máte výsledek (převeďte na hodnotu a smažte první čárku)

Pokud zkopírujete funkci CONCATENATE_RANGE do modulu, tak ji budete moci používat jako vzorec na listu (vlastní funkce)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje