Příspěvky uživatele

super funguje, díky moc :)

ahoj,

tak přeci jen jsem našel "chybku"
prosím o navedení jak provést kontrolu na "číslo" která tam je, ale aby nešlo zadat např 95+. hodnota -95 ale musí fungovat (to teď funguje).

pokud by tomu plus nešlo zabránit jednodušeji, tak mě napadlo zadání pouze ze seznamu, tam bych zadal všechny celá čísla od 9999 do -9999.

děkuji :)

jsem si to myslel :)... děkuji zatím vypadá že funguje.

musím to otestovat hlouběji. Kdyby něco, tak se ozvu, ale zatím vypadá OK.

díky moc.

jinak k bodu 3

zapisuje to hodnotu 0 správně, protože do budoucna to bude na jednom vytištěném učtu taktéž (doufám že tato budoucnost je hodně vzdálená).

tedy pokud jsem pochopil otázku správně.

vypadá že po upravách funguje:) děkuji.

akorát mam problém pokud zadam do ZAZNAM něco jiného než číslo (kontroluji přes ověření dat) tak mi to tu hodnotu po zadání správné zanese 3x

akorát se naskytl problem, při zápisu hodnoty zkratkou ctrl+q se zapíše prázdný řádek s datem. :((( zasílám i soubor pro náhlednutí.

a kdybych chtěl přidat i čas do stejne buňky s datumem?

If Not IsEmpty(Bunka) Then .Value = Bunka.Offset(0, 1).Value 'Ak zmenu nevyvolalo vymazávanie, tak zapíš hodnotu z bunky vpravo od zmenenej
.Offset(0, 1).Value = Date 'a pripíš aktuálny dátum
.Offset(0, 2).Value = Time 'a připiš čas

takhle to mám ve třech sloupečcích

i tak děkuji. :)

tak jsem přidaval přepínač a mořád jsem byl v bugu :( asi jsem to daval na špatne misto... tak pokud by jste měl čas tak bych se nezlobil. :)

zdravim, potřeboval bych pomoct s upravou kodu

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, ZamkRng As Range, Prepinac As String
Set Zmena = Intersect(Range("B5:B26,F5:F26"), Target) 'Zisti prienik zmien s kontrolovanou oblasťou
If Not Zmena Is Nothing Then 'Pokračuj iba ak bol prienik
For Each Bunka In Zmena 'Pre všetky zmenené bunky v kontrolovanej oblasti
Prepinac = IIf(Bunka.Column = 2, "A", "H") 'Nastav prepínač zapisovaných stĺpcov v liste A
With Worksheets("kontrola")
With .Cells(.Cells(Rows.Count, Prepinac).End(xlUp).Row + 1, Prepinac) 'Nastav na prvý voľný riadok v správnom zapisovacom stĺpci
If Not IsEmpty(Bunka) Then .Value = Bunka.Offset(0, 1).Value 'Ak zmenu nevyvolalo vymazávanie, tak zapíš hodnotu z bunky vpravo od zmenenej
End With
End With
Next Bunka
Set ZamkRng = Nothing
For Each Bunka In Range("B5:B26,F5:F26") 'Prejdi celú kontrolovanú oblasť
If Not IsEmpty(Bunka) Then 'Ak bunka nieje prázdna pridaj ju do oblasti na zamknutie
If ZamkRng Is Nothing Then Set ZamkRng = Bunka.Offset(0, -1).Resize(1, 2) Else Set ZamkRng = Union(ZamkRng, Bunka.Offset(0, -1).Resize(1, 2))
End If
Next Bunka
If Not ZamkRng Is Nothing Then 'Sú nejaké bunky v oblasti na zamknutie ?
With ZamkRng
Unprotect Password:="heslo" 'Najskôr odomkni list
.Locked = True 'Zamkni všetky bunky v oblasti na zamknutie
.FormulaHidden = False
Protect Password:="heslo", DrawingObjects:=True, Contents:=True, Scenarios:=True 'Zamkni list
End With
End If
Set ZamkRng = Nothing
End If
End Sub

potřeboval bych aby to s kopírovanou hodnotou zapisovalo i aktualni datum v době zápisu (zapsat do sloupce B, a pokud by to kopírovalo ze sloupce druheho tak do H). Ale nevím jak toho docílit :(

prosím pomoc

tzn.
hodnoty A

luxusní :) obdivuji tvoje schopnosti. Zkusím více nastudovat tvůj popis makra, snad ho lepe pochopím.

mockrát děkuji.

tak zamknutí jsem provedl

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="heslo"
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect Password:="heslo", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

odemknutí

Sheets("zaznam").Unprotect ("heslo")
Range("A5:B26, E5:F26, I5, I7").Select
Selection.Locked = False
Selection.FormulaHidden = False

nevím jestli je to správně, nicméně bych potřeboval vyloučit z tohodle pravidla bunku I5 a I7

tak ještě jen prosím o malinkou změnu.

přehazel jsem sloupečky a neumím to dát dohromady ...

a tedy k tomu co bych potřeboval a troch jsem to i rozšíril :( ...

pokud vyplním hodnotu v bunce B5:B26 nebo F5:F26 a zmačknu enter, tak se mi hodnota sumy vedle ve sloupečku překopíruje na list A jak tomu bylo doposud.

dále by jsem potřeboval zamknout bunku v přislušnem řadku A a B proti nechtěnému přepisu a to až do doby než zmačknu tlačítko odemknout

možná lepší komentář je v přiložením archivu v bunce B5

předem děkuji za odpověď a pomoc.

snad moc neotravuji

super už to funguje .)))

mockrát děkuji. :)

a nebo mě napadlo pokdu by to fungovalo, tak to napsat na jen sloupec A a druhý pro jen sloupec B. že bych dal jako dvě makra pod sebe. Pokud by to takhle mohlo fungovat.

nefunguje :(

kopíruje to hodnoty z A a B ale do listu A a vždy na A sloupec, a přepisuje poslední hodnotu. tzn zapisuje jen do A1.

ale i tak díky :) samo za opravenou verzi se zlobit nebudu :)))

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje