Скачать или смотреть How to Make a Project Plan in Excel.

How to Make a Project Plan in Excel. This template allows you to Schedule task going on for a project. Plan tasks for the upcoming schedule. Allow for numerous projects to run at the same time. This plan allows you to drag start times and finish times to reflect changes in the plan. Colour code the different plans to reflect the different activities going on .

code
Private Sub CommandButton1_Click()
Dim name As String
Dim rng As Range
Dim rownumber, monthmove As Integer
Dim Lstart, LEnd, difference, lnext As Integer

Dim x As Long

If TextBox1.Text = "" Then
MsgBox "Enter Name"
End If
name = TextBox1
'name = Trim(TextBox1.Text)
Set rng = Sheet1.Columns("B:B").Find(What:=name, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
MsgBox "Name not found"
Else
rownumber = rng.Row

End If

If cbmonths.Value = "January" Then
monthmove = 2
End If
If cbmonths.Value = "February" Then
monthmove = 33
End If

If cbmonths.Value = "March" Then
monthmove = 62
End If

If cbmonths.Value = -1 Then
MsgBox "No month Selected"
End If
'MsgBox monthmove

Lstart = Trim(TextBox2.Text) + monthmove
LEnd = Trim(TextBox3.Text) + monthmove

Sheet1.Cells(rownumber, Lstart).Value = name
Sheet1.Cells(rownumber, LEnd).Value = name
difference = LEnd - Lstart
If difference(symbol for greater than) 1 Then
lnext = Lstart
Do While lnext (symbol for less than)LEnd
Sheet1.Cells(rownumber, lnext).Value = name
lnext = lnext + 1
If lnext = LEnd Then
GoTo ende
End If
Loop
End If

ende:

End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = ""
cbmonths.Value = ""
TextBox2 = ""
TextBox3 = ""
End Sub


For more help visit my website http://www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Excel one-on-one on-line training available. Email me to arrange.

I am able to provide online help on your computer at a reasonable rate.

Check out my next one-hour Excel Webinar
https://www.crowdcast.io/easyexcelans...

I use a Blue condensor Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83

If you need to buy Office 2019 follow
https://amzn.to/2VX5dv8


Follow me on Facebook
  / easyexcel.answers  


Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.