Příspěvky uživatele
< návrat zpět
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.
=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. 
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.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články