Kód: Vybrat vše
Sub G00()
'
' G00 Makro
' Makro zaznamenané 20.10.2005, Axamith
'
'
Sheets("NC program").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[-2],G00!R[2]C[-1])"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[1],G00!R[2]C[2])"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(G00!R[2]C[4],G00!R[2]C[5])"
Range("D1").Select
End Sub
Děkuji za nápady a rady
Axamith