Super teď už je to dokonalé ještě jednou díky moc
Dobrý den,
ještě bylo by možné aby se datum neaktualizovalo pokud je jednou zadané?
Předem moc díky
elninoslov napsal/a:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:P")) Is Nothing Then Call MacroDatum(Target)
End Sub
Sub MacroDatum(ByRef Target As Range)
Intersect(Target.EntireRow, Columns(1)).Value = Date
End Sub
Dobrý den,
potřeboval by jsem pomoci s makrem, které by do prvního sloupce doplnilo aktuální datum.
Zatím se mi zkoumáním různě po netu podařilo dát dohromady následující:
Sub MacroDatum()
On Error Resume Next
If ActiveCell.Column = 2 Then
With ActiveCell.Offset(-1, -1)
.Value = Date
.NumberFormat = "[$-409]d.mm.yyyy;@"
End With
End If
End Sub
které spouštím pomocí:
Private Sub Worksheet_Change(ByVal Target As Range)
Call MacroDatum
End Sub
Toto však doplní datum pouze do buňky vlevo od druhého sloupce, pokud do buňky v druhém sloupci vepíšu hodnotu a potvrdím Entrem.
Potřeboval by jsem aby makro vepsalo aktuální datu do prvního sloupce na stejném řádku ve kterém byla vyplněna hodnota v druhém popřípadě některém z dalších sloupců. Sloupců by v tabulce nemělo být víc jak 15.
Snad jsem problém popsal dostatečně srozumitelně.
Předem velmi děkuji za odpovědi a za pomoc.
Pánové mnohokrát děkuji. To je přesně to co potřebuji. jestě jednou díky.
Dobrý den,
chtěl by jsem se zeptat. Mám v tabulce sloupec "Pořadové číslo", v tabulce se dále nachazí sloupec Oddělení, na kterém je nasazen filtr a podle něhož se tabulka filtruje a nebo taky ne. A já by jsem potřeboval, aby sloupec Pořadové číslo ukazoval takovou číselnou posloupnost, jako je právě počet vyfiltrovaných řádků, kdy se může taky stát, že filt bude vypnutý a pak by měla být ukázána maximální číselná řada a to do čísla 71.
Myslím, že by mohla jít použít funkce SUBTOTAL.
Můžete mi prosím někdo pomoci s timto zapeklitým problémem.
V příloze je vzorová tabulka
Předem moc děkuji
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.