Příspěvky uživatele

Ahoj, chtěl bych vytvořit makro, které by poté, co by buňka nabyla konkrétní hodnoty (např. "ano"), kopírovalo řádek, ve kterém se buňka nachází, do jiného sešitu. Snad zadání není moc komplikované. Snažil jsem se vytvořit sám kopírování na jiný list ve stejném sešitu (viz níže), ale ani to mi bohužel nefungovalo. Díky moc za jakoukoliv radu. bloom

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$O$9" Then
Select Case Target.Value
Case ano
Range("A9:K9").Select
Selection.copy
Sheets("List2").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("List1").Select
End Select
End If

Ahoj, potřeboval bych vyřešit problém, aby se mi sešit při otevření vždy otevřel na jednom s tom stejném konkrétním listu, bez ohledu na to, na kterém listu byl sešit uložený. Chtěl jsem to vyřešit pomocí makra spouštějícím se při otevření sešitu, ovšem při otevření jsou makra nastavená jako nepovolená (a bohužel s tím nemůžu nic měnit), tudíž nic nefunguje. Mohl bych někoho poprosit o radu, jak problém vyřešit? Díky moc.

Díky moc, všechno funguje. :) Ještě bych možná poprosil o radu s jednou věcí - rád bych, aby se kopírovací makro nespustilo hned, když uživatel klikne do buňky, ta se přepne do editace, uživatel v ní ale nic nezmění a nezměněnou ji opustí.
Mohl bych požádat o radu ještě s totuo záležitostí (co kam do kódu doplnit apod.)? Mnohokrát děkuji. bloom

Ahoj, potřeboval bych poradit s makrem, které kopíruje data po změně hodnot na jiný list. To se mi podařilo sestavit, ale potřeboval bych tam ještě doladit pár věcí:
1) Chtěl bych, aby se makro spustilo automaticky ne hned po změně hodnoty v dané buňce, ale aby se spustilo až po opuštění řádku, ve kterém se změněná buňka nachází.
2) V daném souboru je umístěno makro, které po spuštění konkrétního tlačítka přidá do tabulky jeden prázdný řádek. Když se přidá nový řádek, tak se kopíruje jako změněný na nový. Rád bych, aby se přidáním řádku kopírování nespouštělo.
Dosavadní kód přikládám níže:
Private Sub Worksheet_Change(ByVal Target As Range)

ChngRow = Target.Row

SrcRange = "A" & ChngRow & ":K" & ChngRow
Range(SrcRange).Copy
With Sheets("History").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False

Worksheets("History").Range("L" & Rows.Count).End(xlUp).Offset(1).Value = Now
Sheets("History").Range("M" & Rows.Count).End(xlUp).Offset(1).Value = Environ("username")

End Sub

Mnohokrát děkuji za jakoukoliv pomoc. bloom

Díky, za doporučení, nakonec jsem to udělal podobně, jak navrhoval Dingo.

Díky, ale bohužel se mi do sloupce B kopíruje vždy jen nová hodnota v konkrétní buňce.

Ahoj, měl bych dotaz na vytvoření makra v excelu. Chtěl bych vytvořit makro, které by po změně hodnot v konkrétní buňce zkopírovalo původní hodnoty v dané buňce do jiné buňky - tedy nějakou historizaci. Nejsem ve VBA ještě kovaný, tak bych rád někoho požádal o radu, pomocí jakých funkcí bych měl historizaci provést. Mnohokrát děkuji za jakokoliv odpověď. bloom

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje