• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Asi není důvod, aby to nefungovalo.

Tak?

Není za co. Máš to od K4 do K1000. Uprav si to podle potřeby.

Private Sub Worksheet_Change(ByVal Target As Range)

Const SledovanyRozsah As String = "K4:K1000"
Dim IntersectRange As Range
Set IntersectRange = Intersect(Target, Me.Range(SledovanyRozsah))
If Not IntersectRange Is Nothing Then
Application.EnableEvents = False
Dim c As Range
For Each c In IntersectRange
Dim ZaznamovaBunka As Range
Set ZaznamovaBunka = c.Offset(0, 1)
If c.Value = 1 Then

If ZaznamovaBunka.Value = "" Then
ZaznamovaBunka.Value = Now()
ZaznamovaBunka.NumberFormat = "dd.mm.yyyy hh:mm:ss"
End If
Else
ZaznamovaBunka.ClearContents
End If
Next c
Application.EnableEvents = True
End If

End Sub

Sub Vzorec()

'Vlož vrozec do O4 a roztáhni do všech vyplněných řádků

Dim POCET As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("Inventura")

POCET = wsDATA.Cells(Rows.Count, "A").End(xlUp).Row - 3
wsDATA.Range("O4").Resize(POCET).Formula = "=IFERROR(VLOOKUP(RC[-5],POLEDAT!R4C3:R100003C4,2,FALSE),"""")"

End Sub

Myslím, že tohle vzorcem nevyřešíš. Musel bys přes VBA.

Zkus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K5")) Is Nothing Then
Range("L5").Value = Now()
Range("L5").NumberFormat = "dd.mm.yyyy hh:mm:ss"
End If
End Sub

Vždycky je dobré, když hodíš nějaký vzor, aby tu mistři věděli jakou máš představu.

Zaregistruj se a hoď sem přílohu.

Děkuji kouknu se na to.

Ahoj kluci,

nevytvářel jste si někdo makro, které vám doplní funkci Unique ve starších verzích Excel?

Vím, že to jde nahradit jinými vzorci jako např.

{=IFERROR(INDEX(A2:A10;POZVYHLEDAT(0;COUNTIF(B2:B$2;A2:A10);0));"")}

Ale mě jde vyloženě a vytvoření funkce makrem.

Moc děkuji za pomoc

Makro se dá též zamknout před zobrazením.

Není za co.

Zkus se v makru vyhnout SELECT, nebude ti problikávat monitor.

Takhle?

Transparentní pozadí
1. na kartě Vývojář klikni na Režim návrhu
2. klikni na Checkbox pravým tlačítkem myši
3. vyber Properties (Vlastnosti)
4. změň BackStyle z 1 - fmBackStyleOpaque na 0 - fmBackStyleTransparent

Cyklický odkaz znamená, že máte propojené dvě buňky, které jsou na sobě závislé což je logický problém. Přílohu, co jsem vám sem dal mi neukazovala cyklický odkaz.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje