Gantt-kaavio ongelma

Moi, jostain syystä tuolla makrolla se vain poistaa kokonaiskeston solusta, muuta ei tapahdu,

Eihän toi makro toimi niinkuin aloittaja pyytelee...
Liitä nappiin koodi
aivan pelkistettynä nyt.

Ton voi helposti tehdä Change tapahtumaan 3 sarakkeelle, jolloin kun lisää projektiin työvaiheen tietoja niin automaattisesti päivittyy kaavion ja ei tartte erikseen klikkailla nappia

Sub SiirräData()
'maalaa alue - joko pelkät ajat tai myös projektin vaihe ja hipssa oikea vaihto ehto käyttöön
'alku ja loppupäivät vaan
Selection.Copy Range("D6")
' projektin vaihe alku ja loppupäivät
Selection.Copy Range("C6")
End Sub

Keep EXCELing
@Kunde

Maalataan alue, esim. I6:L6 ja painetaan nappia. Makro muuttaa työn alkamisajan ruudussa D6 ja loppuajan ruudussa E6 solujen I5 ja L6 mukaisiksi. Ruksit ja solujen väritys siirtyy maalatulle alueelle. Tätä ymmärsin sinun haluavan. Kokonaiskesto ei muutu, koska sarakkeessa C ei ole kaavaa.

Tämä versio muuttaa loppuajan sijaan kestoa. Lisäksi on tarkistus: jos valittuna on laiton alue, ei tehdä mitään.

Sub Button1_Click()
    With Selection
        r = .Row
        c1 = .Column
        d = .Columns.Count
     End With
     If r < 6 Or c1 < 6 Then
        Exit Sub
     End If
     Cells(r, "D") = Cells(5, c1)
     Cells(r, "C") = d
End Sub