How to Make a Project Plan in Excel.

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 or email me at easyexcelanswers@gmail.com.

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

I use a Blue condensor Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

Follow me on Facebook

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*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.

Watch more new videos about Excel Office | Synthesized by Mindovermetal English