Excel - zkopírování makra dokonrétní buňky

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

bloom
nováček
Příspěvky: 11
Registrován: březen 14
Pohlaví: Muž
Stav:
Offline

Excel - zkopírování makra dokonrétní buňky

Příspěvekod bloom » 21 bře 2014 21:16

Ahoj,
mám takový problém - zaseknul jsem se na tvorbě makra, které by mělo po změně hodnot v určitých buňkách hodnoty v těchto buňkách zkopírovat na nový list do konkrétních buněk. Není problém hodnoty zkopírovat na nový list, ovšem vždy, když do kódu zadám konkrétní buňky na novém listu, ozve se chybová hláška a makro nefunguje.
Makro (kopírující hodnoty na nový list, ale ne do konkrétní buňky) funguje podle kódu:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B10:K10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range("B10:K10").Select
Selection.Copy
Sheets("List3").Paste
Application.CutCopyMode = False

End If
End Sub

Při specifikaci konkrétní buňky podle následujícího kódu se vždy objeví chybová hláška:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B10:K10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range("B10:K10").Select
Selection.Copy
Sheets("List3").Select
Range("B10:K10").Select
Selection.Paste
Application.CutCopyMode = False

End If
End Sub

V příloze posílám ukázkový soubor s kódem tak, jak mi pracuje.
Poraďte mi, prosím, v čem dělám chybu. Mnohokrát děkuji za odpověď. bloom
Přílohy
priklad.xlsm
(15.44 KiB) Staženo 15 x

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Excel - zkopírování makra dokonrétní buňky

Příspěvekod Azuzula » 22 bře 2014 07:45

Ahoj, vítám Tě na PC Help.
Je to tím, že makro v listu operuje s listem ve kterém se nachází, tím pádem musíš použít i název listu kam má to makro zasahovat v Tvém případě:
Worksheets("List3").Range("B10:K10").Select

Každopádně je rychlejší (pro běh makra) vložit oblast buněk které chceš kopírovat do proměnné a vložit data do listu bez mezikopírování ;)

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B10:K10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
    Worksheets("List3").Range("B10:K10") = KeyCells.Value '.Value můžeš nahradit .formulalocal pro vkládání vzorců místo pevných dat
End If
End Sub
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

bloom
nováček
Příspěvky: 11
Registrován: březen 14
Pohlaví: Muž
Stav:
Offline

Re: Excel - zkopírování makra dokonrétní buňky

Příspěvekod bloom » 23 bře 2014 11:00

Díky moc. :)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    266
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • VBA Excel 365 vložit obrazek do buňky
    od wlk60 » 19 dub 2023 15:43 » v Kancelářské balíky
    1
    1628
    od atari Zobrazit poslední příspěvek
    19 dub 2023 21:53
  • Excel - filtr na formát buňky + obsah Příloha(y)
    od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky
    0
    1868
    od popcorn Zobrazit poslední příspěvek
    19 zář 2023 17:07
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5994
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1644
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů