Change Status When Column Filled

Liyanacomel

New Member
Joined
Jun 17, 2022
Messages
2
Office Version
  1. 365
  2. 2021
  3. 2019
  4. 2013
  5. 2011
  6. 2010
Platform
  1. Windows
  2. MacOS
  3. Mobile
  4. Web
Hello, i have a data need to be fill when ever i made a progrees. Each column are fill with date the progress made. Is it possible for me to made the last column to state the current progress based on the last column that has been filled with the date? i wanted at the current progress column automatically change status when it being filled With the dates.
 

Attachments

  • F58925D0-5D04-427F-ADC3-71A91596C553.png
    F58925D0-5D04-427F-ADC3-71A91596C553.png
    211.1 KB · Views: 5

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

When you enter any value in column 2 to 7 the script will run

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    'Modified  6/17/2022  11:26:45 PM  EDT
    Select Case Target.Column
        Case 2: Target.Offset(, 6).Value = "Sign Up Project"
        Case 3: Target.Offset(, 5).Value = "Contact Pick"""
        Case 4: Target.Offset(, 4).Value = "Submit The Report"
        Case 5: Target.Offset(, 3).Value = "Made Report"
        Case 6: Target.Offset(, 2).Value = "Presenting Report"
        Case 7: Target.Offset(, 1).Value = "Project Finished"
End Select

End Sub
 
Upvote 0
Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

When you enter any value in column 2 to 7 the script will run

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    'Modified  6/17/2022  11:26:45 PM  EDT
    Select Case Target.Column
        Case 2: Target.Offset(, 6).Value = "Sign Up Project"
        Case 3: Target.Offset(, 5).Value = "Contact Pick"""
        Case 4: Target.Offset(, 4).Value = "Submit The Report"
        Case 5: Target.Offset(, 3).Value = "Made Report"
        Case 6: Target.Offset(, 2).Value = "Presenting Report"
        Case 7: Target.Offset(, 1).Value = "Project Finished"
End Select

End Sub
Thank you! what if the data was in google sheet. How do i apply this coding .? What should i do or find.
 
Upvote 0

Forum statistics

Threads
1,214,798
Messages
6,121,635
Members
449,043
Latest member
farhansadik

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top