Sub VytvorVzorec() ' ' Macro recorded 12.5.2010 by PaloPa Dim xRng As Range, c As Range ' Oznaci bunky v A od poslednej Application.Goto Reference:="R65536C1" Selection.End(xlUp).Select Set xRng = Range(Selection, Selection.End(xlUp)) ' Vytvor vzorce pre oznacené For Each c In xRng If c.Text <> "" Then c.Offset(, 1).Formula = "=" & c.Text End If Next c End Sub
Užitočné (2) | 2009, marjankaj |
Užitočné (1) | Danielle369 |
Užitočné (1) | 2009 |
Užitočné (1) | 2009 |