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)

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.