• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Kopírování ve sloučené bunce

Zaslal/a R3sidento 11.6.2014 0:52

Zdravíčko, s VBA začínám a učím se ze článků a s diskuzí.

Narazil jsem na problém,udělal sem si kontrolu výpočtu mezi dvěma buňkami a A1 a A2 pokud je podmínka splněna provede akci (kopírovat). Nicméně to nefunguje ve sloučených buňkách.

Mám sloučeno A1 s B1 a A2 s B2, panel vlevo nahoře mi ukazuje že název buňky je A1 a pokud dosadím toto:


Sub CheckA1()

If Range("A2").Value2 > Range("A1").Value2 Then
Range("A1").Copy Range("A2")
End If

End Sub



Pokud tohle zadám do nesloučené buňky tak to funguje jak má, ale ve sloučené buňce mi ve chvíli kdy se splní podmínka a má se buňka zkopírovat napíše hlásku:

Run-time error 1004
Metoda Copy třídy Range selhala.

A já si s tím nevím rady, co tím ?

Děkuji předem za pomoc :)

Zaslat odpověď >

---

cmuch(11.6.2014 6:27)#019896

Musíš kopírovat do stejně velké oblasti.
Sub CheckA1()
If Range("A2").Value2 > Range("A1").Value2 Then
Range("A1:B1").Copy Range("A2:B2")
End If
End Subcitovat

lubo(11.6.2014 16:03)#019916

Nebo

Range("A1").MergeArea.Copy Range("A2").MergeAreacitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse