Příspěvky uživatele
< návrat zpět
Zdravím.
Zkuste tady:http://wall.cz/excel-navod/funkce-posun-a-dynamicky-graf
Dobrý den.
Dala by se použít funkce "Sumif"
Data jsem trochu ubral kvůli velikosti.
xlnc napsal/a:
Až si někdo přestane vážit svého času, tak to rozluští a udělá.
Děkuji za odpověď.
Nevím, jestli Vám vadí můj popis problému nebo hromada volaných maker. Ve své podstatě je to jen jedno makro, ve kterém je posun na jiný sloupec.
Přeji hezký den.
Chtěl bych se zeptat, zdali jde zjednodušit a tím i urychlit stávající makro, případně jestli toto makro se dá udělat nějak jinak.
Makro se spouští tlačítkem "Zadat data". Otevře se sešit s daným názvem a z něj se překopírují data do listu "Data". Sešit s daty se zavře. Poté z listu "Data" ze sloupce "C" se vyhledá "1" a do listu "Poruchy" se zapíše čas z téhož řádku. Pak se hledá poslední "1" v souvislé řadě a opět se zapíše čas z daného řádku. Tak to pokračuje až na konec dat.
Poté následuje kontrola až sloupce "M" po skončení tohoto sloupce, pokračuje kontrola postupně až do sloupce "BE".
V listu "Data" jsem ponechal vzorové data.
Více snad napoví přiložený soubor.
Předem děkuji za pomoc.
Hezký den.
Co takto:=KDYŽ(A1="";"";KDYŽ(JE.ČISLO(A1);A1+2;A1)) 
Hezký večer.
Musí to být zaškrtávací políčko? Nemohl by to být rozevírací seznam. Dá se to bez problému zkopírovat a ušetří se tím sloupeček s vyhodnocením.
Tady je to i heslem: AAA
Myslím tím zamknout sešit, ne soubor.
V čem to nestačí, sešit je odemknut, dá se do něj zapisovat a nelze odstranit listy. Zamkl jsem to bez hesla a proto heslo si dej cokoliv.
Ahojky,
takhle to stačí? Zamknout sešit a snad hotovo.
Ahojky, že by takto.
Přeji hezký večer.
Myslím si, že by stačilo, kdyby jste si pořádně zkontroloval svůj kod s kodem od Ala.
Dobrý večer,
dalo by se použit např:
=POSUN(NEPŘÍMÝ.ODKAZ(ODKAZ(VYHLEDAT()))),
ale bez přílohy? Seznam čísel a jmen budou na jiném listu nebo na stejnem listu.
Zdravím,
proč makrem? Použij formát buněk.
Ahojky, snad ti to pomůže. Toto vložit do modulu listu a na např: "List8" by se měly zaznamenat změny. Akci zpět to nevím.
Kdyby to šlo i nějak jinak, budu rád za každý nápad.
Dim OldVal, Pozice
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldVal = Target
Pozice = Target.Address
NewVal = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range, i, radek
Dim JmenoPC ', JmenoExcel
Set KeyCells = Range("F1:NG366") ' *** hlídaná oblast ************
JmenoPC = Environ("UserName")
'JmenoExcel = Application.UserName
NewVal = Target.Value
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
radek = 1 'nastaveni radek jako 1
For i = 1 To List8.Cells.SpecialCells(xlLastCell).Row
If List8.Cells(i, 1) <> "" Then
radek = radek + 1
End If
Next
List8.Cells(radek, 1).Value = Format$(Date, "dd/mm/yyyy")
List8.Cells(radek, 2).Value = Format$(Now, "hh:nn:ss")
List8.Cells(radek, 3).Value = JmenoPC
List8.Cells(radek, 4).Value = Pozice
List8.Cells(radek, 5).Value = OldVal
List8.Cells(radek, 6).Value = NewVal
End If
End Sub
Ahojky,
do podmínky pro buňku B1 dej =A(A1="x"), pak nastavení barvy.
Snad to bude stačit.
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