Fwd: makro - vyplnit prazdne bunky

Tak zpet, uz jsem na to prisla :-))


---------- Forwarded message ----------
From: Simona Trneckova <strnecka@gmail.com>
Date: Sep 1, 2006 9:52 AM
Subject: makro - vyplnit prazdne bunky
To: servis-internet@nawebu.cz


 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