Dim i As Integer, co AsString For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
co = co & "+" & Cells(1, i).Address Next i
Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = "=" & co EndSub
napisał: gosuansa postów: 19
umieszczony: 29 lipca 2011 10:07
Witam,
Przypuśćmy że w komórkach od A1 do F1 mam jakieś dane i chciałby za pomocą VBA w komórce G1 wstawić następującą formułę: Suma(A1;C1;E1) czy formułe sumującą dane z co drugiej komórki.
Moje pytanie brzmi czy jest to wogóle możliwe, jeśli tak to jak napisać taki kod?
Chciałbym dodać że zakres z danymi może być rózny i chciałbym aby w tej komórce była koniecznie formuła a nie sam wynik dodawania (bo to akurat potrafię zrobić:)).