Příspěvky uživatele

Lepší to bude s těmi soubory.
Podle posledního popisu to vypadá že se nová poznámka na síť nemá ukládat, nebo? Uloží se jen v daném souboru na jiný list pro další použití pouze do přepsání souboru, což se děje z nějakého vzoru a tento si načítá vždy původní seznam z databanky.
Ten seznam poznámek je jen seznam, nebo se v něm dle nějakých kritérií vyhledává.
Pokud jde jen o statický seznam, tak pak by se dalo použít vestavěného načtení dat přes ms query přímo v excelu, což by se načítalo na jiný list vždy při spuštění. Ale chce to přesně pochopit o co jde.
M@

jen jestli to dobře chápu.
Síťový soubor sloužící jako zdroj unikátních údajů
Soubor na jiném pc, který se vyplňuje, a jistá data si na základě nějaké zadané hodnoty doplní ze zdrojového souboru, pokud ale neexistují, tak se zadají ručně při čemž by se měly zapsat automaticky do toho zdrojového soubory, aby příště již byly doplněny automaticky? To samé pro další soubor na jiném pc.
Bylo by možné přiložit ty soubory?
Případně znění toho Dotazu.

M@

No to je přeci to co jsem psal:
=SUMIF(List2!A:A;A1;List2!B:B)-SUMIF(List1!A:A;A1;List1!B:B)

asi bys měl kdyžtak přihodit přílohu.

M@

Když to to vezmem tou nejsnažší možnou cestou, tak každé surovině přiřadíš nějaké jedinečné označení.
Na Listu1 pak budeš zapisovat (co pohyb to řádek) vždy toto jedinečné označení, počet kusů a pak cokoliv dalšího je třeba (datum, důvod, kdo, kam, za kolik).
Na Listu2 skoro to samé, jedinečné označení, počet přijmutých ks a cokoliv dalšího.
Na Listu3 si uděláš jedinečný seznam všech možných položek, kam si občas přidáš nové. No a vedel nich do pole s aktuálním stavem, ve kterém bude bude rozdíl dvou vzorců SUMIF, (SUMIF přes jedinečné označení do Listu2 - SUMIF přes jedinečné označení do Listu1).
Věřím že když zadáš funkci SUMIF, tak už tě navede sama jak ji složit, jen napovím jako oblast a součet zadej vždy celý sloupec daného listu, za předpokladu, že jedinečné označení bude vždy ve sloupci A a počet ve sloupci B, tak =SUMIF(List2!A:A;A1;List2!B:B)-SUMIF(List1!A:A;A1;List1!B:B)

M@

Funkcí to nepůjde, jedině makrem, například:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then If Target <> "" Then Cells(Target.Row, 2) = Now
End Sub
M@

To zvládneš :-)
1) Všude kde je rozmezí
For i = 2 to 200
to rozšiř třeba do 400
2) Všude kde je nastaveno skrývání řádku nastav aby se skrývaly řádky 2. Jinými slovy nahraď vše kde je
Sheets("rok").Rows(rd)
za
Sheets("rok").Rows(rd & ":" & rd + 1)

M@

Pokud se má něco přepisovat, tak to určutě nebude hypertextový odkaz.

zkusil bych něco jako
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then
List2.Cells(Target.Row, Target.Column) = Cells(Target.Row, 2)
List2.Activate
List2.Cells(Target.Row, Target.Column).Activate
End If
End SubM@

Sheets("SUMA").Range("F" & konec).Formula = "='" & jmeno_listu & "'!G1"

Není až tak nutné používat jiný typ tlačítek, naopak ty použité mě vyhovují :-).
Pojmenování je důležité v mém případě je pojmenování:
např. L12_M1 znamená to že jde o zaškrtávátko na 12. řádku v měsíci 1.
Tento název se dále v kódu rozsekne v podtržítku a ořízne o první znak, čím získám číslo řádku a sloupce s nimiž pracuji.
V tomto případě není třeba psát každému zaškrtávátku vlastní kód, ale podle názvu zaškrtávátka na které bylo kliknuto se makro zpracuje.

Jen bych doporučil rozšířit řádky se zaškrtávátky, nyní se překrývají a občas je umění se trefit :-).

M@

Nedíval :-), ale teď jsem to zkusil a funguje to, akorát je před každým použitím potřeba ten Schema.ini file makrem přepsat a dosadit jméno požadovaného txt souboru k načtení (první řádek), což ale nebude problém :-).

[20120720_KAMERA3.txt]
ColNameHeader=True
Format=Delimited(;)

Díky
M@

teda jak to zadání souvisí s vynecháním 5 řádků?
Řešení zadání v příloze.

M@

Sice to moc nechápu ale budiž
Public Sub pokus()
Dim rd As Single
Dim rd2 As Single
rd = 1
rd2 = 1
Do While Cells(rd, 1) <> ""
Cells(rd2, 2) = 3
Cells(rd2 + 1, 2) = Cells(rd, 1)
Cells(rd2 + 5, 2) = 2
Cells(rd2 + 7, 2) = 13
Range("B" & rd2, "B" & rd2 + 8).BorderAround xlSolid

With Range("B" & rd2, "B" & rd2 + 8)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$" & rd2 + 1 & ">0"
.FormatConditions(1).Interior.ColorIndex = 35
.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$" & rd2 + 1 & "=0"
.FormatConditions(2).Interior.ColorIndex = 38
End With

rd2 = rd2 + 9
rd = rd + 1
Loop
End Sub

M@

Jde o to si v Accessu vytvořit tabulku s názvy a nadefinovat si typ dat jenž mají jednotlivé sloupce obsahovat.
Pak by se dalo říct práce v Accessu končí a vše ostatní lze dělat v excelu.
Ikdyž Acces je pak na různé sestavy mnohem lepší.

Aby se neřeklo, že neporadím, tak v příloze posílám ukázku jakým způsobem lze z excelu komunikovat s accessem :-)

M@

Vypadá to, že ráno moudřejší večera a tak si odpovím sám (kdyby to někoho zajímalo)

.
Pod Win7 stačí jít do registru:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text
a tam u hodnoty Format změnit data z
CSVDelimited
na
Delimited(;)
což je hodnota která je i u WinXP.

Poté byť stále pod Win7 nepřebírá extended properties (což stejně nechápu), tak díky výchozímu nastavení oddělovače v registru funguje.

M@

Pokud opravdu vkládáš kopírovanou oblast, tak se obávám že to nepůjde.
Šlo by data vložit a pak makrem vložit prázdné řádky, pokud máš ale namysli vkládání do nějakého předvyplněného rastru, kdy na těch řádcích mezi něco je, tak to takhle nepůjde, pak by muselo být makro přímo na přetažení ze zdroje, případně přes pomocný list, kam bys vložil celek a pak to makrem přetahal do toho rastru.

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje