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

Příspěvky uživatele

příkaz Split rozdělí to "datum" (nebo jiný text)s čárkama na tři texty a to v místech, kde je čárka (nebo něco jiného, co určíš jako oddělovač) (tzv.delimiter) dx(0) dx(1) a dx(2) . DX je jen název, může tam být cokoli, třeba DDD.

zkus to takhle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 2 To 20
dx = Split(Cells(i, 1), ",")
Cells(i, 1) = DateValue(dx(2) & "/" & dx(1) & "/" & dx(0))
Next i
On Error GoTo 0
End Sub

edit:
proč to nefunguje, podle mě protože je to text (s čárkama) ve kterým se JEN změní čárky za tečky, ale furt to zůstává textem a ne číslem

https://www.youtube.com/watch?v=uqGoIDPvmm8

Tak udělejte v makru dotaz na příslušné bunky v listu B a pokud jsou prázdné tak hurá do kopírování.

Odpovím za Pavluse, bo tu není

If podmínka then call něco

v jednom řádku a není tam end if nebo

if podmínka then
call makro
end if

zkuste toto:
Function UseFormula2(cell)
If Trim(cell.Value) = "" Then
UseFormula2 = ""
Exit Function
ElseIf Left(cell.Value, 1) <> "" Then
UseFormula2 = Application.Evaluate(cell.Formula)
Exit Function
Else
UseFormula2 = "chyba"
End If
End Function

Možná myslel toto...

Stáhněte si z netu:
Excel Password Recovery.exe

tento program sice neumí (pokud budete mít stejnou verzi jako já) .xlsm tedy Ecel soubory 2007 a dál, ale stačí soubor uložit jako excel 2003 a pak ho odemknete. Resp program vám napíše nová hesla, kterými jsou listy zamčené.

pokud to stačí jen vzorcem tak třeba takto

snad takto - pouze upravené makro

Neřešil jsem vaš případ, ale posílám jiný soubor, který řeší obdobnou problematiku. Mohlo by vám to pomoci.

Zadání jste vysvětlil alespon pro mě ne až tak jasně, ale zcela jasně vím, že univerzální makro pro kopírování není. Bez tabulky a vysvětlení co - odkud a kam asi nikdo nebude nic zkoušet.

??

asi bych to řešil vlastní funkcí

Myslím si, že teď je to uplně špatně a to z důvodu dvou sloupců.
1. proč jsou seznamy ve dvou sloupcích ?
2. když už, tak udělejte dva Comboboxy, každý pro jeden sloupec

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje