Projectplanner

[Oeysbrei]

Hi,

I'm about to make a projectplanner for my Company, and need some (alot) help With the macros.
I have attached a PDF that explanes the first of many challanges.

Hope somebody want's to share there knowledge with me.

Thanks in advance :-)

Best regards
Øystein

[zbor]

Here is knowledge sharing:

1. Don't use Merged cells
2. Upload excel workbook rather than picture, pdf, word etc
3. In B6 write =D6
4. In C6 and to the right write: =IF(AND(B6>=$D$3;B6<$H$3);$D$3+COLUMNS($C$6:C$6);"")
5. Replace ; with , if you get error

[JasperD]

If you want to use macros instead of formulas, then use the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Or Target.Address = "$H$4" Then
If Target = vbNullString Then Exit Sub
If Range("D4") > Range("H4") Then Exit Sub
Application.EnableEvents = False
Range(Cells(6, 2), Cells(6, Cells(6, Columns.Count).End(xlToLeft).Column)).ClearContents
Dim x&, y&
For x = Range("D4") To Range("H4")
Range("B6").Offset(0, y) = x
Range("B6").Offset(0, y).NumberFormat = Range("D4").NumberFormat
y = y + 1
Next x
Application.EnableEvents = True
Else
End If

End Sub