Ahoj jeste prosim pekne o radu s timto makrem: Napsala jsem: Sub vyplnitU() Sheets("kontr").Select Range("U6").Select If ActiveCell Is blank Then FormulaR1C1 = "x1" If ActiveCell Is Not blank Then Range("U7").Select If ActiveCell Is blank Then FormulaR1C1 = "x2" If ActiveCell Is Not blank Then End If End If End Sub Ale to zrejme neni spravne. Takto to ma pokracovat az do U39 vcetne. Prosim poradte.... Dekuju moc SimonaReceived on Fri, 1 Sep 2006 09:52:28 +0200
This archive was generated by hypermail 2.1.8 : 01. 09. 2006, 09:52 CEST