Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  25 26 27 28 29 30 31 32 33   další » ... 156

takto? Ale 31.2.2019 myslíš vážne?

takto?

lugr napsal/a:

Funkci KDYŽ nemohu použít, když mám v buňce ověření dat.
Ale chtěl bych tento problém vyřešit makrem.
Aby po doplnění datumu vypsal do buňky "hotovo"

A načo tam máš to overenie dát, keď to nepoužívaš? Kedy to bude rozdelano alebo zastaveno?

Darbujan napsal/a:

Jste šikovný, ale hubatý :-D

Ale má pravdu. Podaktorí by chceli aj pokosiť trávnik pomocou excelu. 2

=FIND("**";SUBSTITUTE(A1;"!";"**";LEN(A1)-LEN(SUBSTITUTE(A1;"!";""))))
=NAJÍT("**";DOSADIT(A1;"!";"**";DÉLKA(A1)-DÉLKA(DOSADIT(A1;"!";""))))

Skús toto:
=_xlfn.TEXTJOIN(" ";TRUE;H27;OFFSET(H9;0;0;MATCH(50;E9:E23;1)))

=_xlfn.TEXTJOIN(" ";TRUE;H27;POSUN(H9;0;0;POZVYHLEDAT(50;E9:E23;1)))


Nemôžem vyskúšať, mám iba excel2007

Tak zavolaj hasičov. 4

A tú prílohu priložíš o týždeň?

pavol14pavol napsal/a:

uz mi to funguje v tomto druhom zisite. Len este som prisiel na malu chybicku ze v tabulke B sa menia rozne hodnoty (riadok3-35)a nesedi mi s tabulku A. Prikladam priklad ako by to malo spravne fungovat.

v tabulke A mam cislo 25 (C:5) a toto cislo sa musi vydelit poctom kal. dni v mesiaci a rozrata sa do tabulky B (C5:35) a ked zratam tieto bunky musi mi vyjst to iste cislo 25

A prečo to hovoríš až teraz?

Merlin99 napsal/a:

Dařbůůůján. :D tvé psychycké komplexy si vyříkej se svoují mámou a nespamuj forum nikoho tu nezajímáš.

Mne skôr pripadá, že spamuješ ty s tvojimi quáziproblémami. Ale nie si jediný.

Myslel som, že ako návod to stačí.
tu je upravené makro.
Sub oprav()
Dim bunka As Range
Range("a1").CurrentRegion.Select
For Each bunka In Selection
For i = 1 To Len(bunka)
Select Case Mid(bunka, i, 1)
Case "A" To "Z", "a" To "z"
Case "ľ", "š", "č", "ť", "ž", "ý"
Case Else
bunka.Offset(0, 2) = bunka
Exit For
End Select
Next i
Next bunka
End Sub

áno je to možné prerobiť aj na makro.
a na odfiltrovanie použi automatický filter. Písal si, že je to iba 100 zlých záznamov.

@elninoslov
No pýtam sa preto či aj písmená s diakritikou sú špeciálne znaky(ľščťžýáíé) a to nehovorím už o maďarských alebo iných jazykoch.

Inak na to by mala stačiť takáto funkcia
Function nazov(text As String) As String
For i = 1 To Len(text)
Select Case Mid(text, i, 1)
Case "A" To "Z"
Case "a" To "z"
Case "ľ", "š", "č", "ť", "ž", "ý"
Case Else
nazov = text
Exit For
End Select
Next i
End Function


ďalšie písmená si doťuká ak potrebuje

Čo je závadné na slove Komarno?

Alindros napsal/a:

Ďakujem za názor

To nebol názor, ale rada.


Strana:  1 ... « předchozí  25 26 27 28 29 30 31 32 33   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje