makro - vyplnit prazdne bunky

From: Simona Trneckova <strnecka (zavinac)>
Date: 01. 09. 2006, 09:52 CEST
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



Simona
Received on Fri, 1 Sep 2006 09:52:28 +0200

This archive was generated by hypermail 2.1.8 : 01. 09. 2006, 09:52 CEST