Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další » ... 23

George007 napsal/a:


makro "přemázne formát v těch sloupcích... Já ho tam potřebuji zachovat a JEN sloučit buňky.


já reagoval na
ANO, ale "PasteFormats" přenese všechny formáty (číslo, tučné písmo, podbarvení...) já potřebuji JEN sloučit bunky.
Takže omluva

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ě 5 )
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ě 5

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


Strana:  1 ... « předchozí  6 7 8 9 10 11 12 13 14   další » ... 23

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 22.1. 19:28

Sumar nakupov

Pavlus • 22.1. 13:05

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 22.1. 9:12

Sumar nakupov

Robo11 • 21.1. 21:23

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 21.1. 12:21

Tělo emailu ve VBA - formát

Fantasyk • 20.1. 20:47

odstranenie opakujucich sa udajov v riadkoch

frantilopa • 20.1. 18:12