Příspěvky uživatele
< návrat zpět
napadlo mě zkopírovat sloupec A, vložit, nastavit bez výplně, automatickou barvu písma a vymazat obsah.Makro jsem nahrál přes záznamník a kopíroval do sloupce G, takže by se to muselo upravit třeba na sloupec aktivní buňky (to už není pro mě 
)
Sub Makro1()
Columns("A:A").Select
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.ClearContents
End Sub
řešením je
Nastavit prázdnou(é) buňku(buňky) s Ověřením dat jako odemknutou(é),zamknout List pod heslem.
Pravý klik na název Listu->Zobrazit kód
vložit tento kód
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
upravit oblast které se to týká a upravit heslo v kódu
a uložit soubor s podporou maker.
Otázka je ale, co když udělá dotyčný chybu a vybere špatnou položku ze seznamu?
Další možností by bylo na zvlášť listu sledovat případné změny buněk a zaznamenávat datum, čas, případně uživatele který změnu provedl. To už by ale museli zdejší guru na VBA jako marjankaj elninoslov a jim podobní
a co pomocí PQ?
při změně dat Data->Aktualizovat vše
a nemohlo by to být pomocí kontingenční tabulky a využití filtrů?
Na jednotlivých listech jsem z dat udělal z tabulek Tabulky a pojmenoval je podle měsíce a roku (např:Leden2020)
Tvorba výstupních dat je použitím PowerQuery, výstupní data jsou na listu Vystup a z těchto dat máte na listu Souhrny kontingenční tabulku a připravené fitry.
Třeba to pro Vás bude východisko.
Obarvit jak? aby v průzkumníkovi nebo v nějakém správci souborů byl barevně? nejsem si jistý jestli je tohle možné
řešil bych to asi zástupcem s vlastní ikonou
jestli myslíte název Listu tak přes pravý klik
takhle?
lugr napsal/a:
Já bych zase chtěl pochopit matice. Včera jsem na to dvě hodiny brejlil a nic, duto.
jsem na tom stejně
takto?
Dobrý den
Měl bych prosbu, jak správně uspořádat data tak, abych mohl zobrazit v grafu hodnoty podle "filtr" a "1'" eventuálně "2'".
tzn. vyberu město, fitr XXX a 1' a chtěl bych zobrazit v grafu hodnoty ze sloupců A 1' B 1' a C1'.
Díky V.
výsledek vynásobte 24 a nastavte si obecný formát
=SUMIF($A$3:$F$6;J3;F3:F6)*24
Přenastavte si formát buňky výsledku na vámi požadovaný.
Takto?
Vytvořil bych si,pokud je to možné, na jiném listu kompletní seznam s číslem produktu a názvem a pak použil SVYHLEDAT
lugr napsal/a:
To je tím, že tam máš samý Select
díky moc, jak jsem psal, kód jsem našel a jen upravoval názvy listů a oblast pro vymazání, proto vypadá tak jak vypadá.
V.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články