Select a month out of a year schedule in Excel



Select a month out of a year schedule in Excel. Select a month so you are able to total hours for the month.
Check out my online courses www.easyexcelanswers.com/courses.html
All my courses include online support and a user manual
Let me teach you the VBA that I have learn in my five years of consulting

Let’s take the frustration out of user forms

Become an Affiliate and earn 25% on Course Sales

For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

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

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

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

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.

code

Sub amonth()
Dim sdate, edate As Date
Dim scol, ecol As Long
Dim c, r As Long
Dim monname As String

Sheet2.Activate
monname = Range(“A2”).Value
c = 43
r = 4

Sheet2.Columns(“B:AF”).ClearContents
For r = 4 To 15
Sheet2.Cells(r, c).Select
If ActiveCell.Value = monname Then
Range(“A3”).Value = ActiveCell.Offset(0, 1).Value
Range(“A4”).Value = ActiveCell.Offset(0, 2).Value
GoTo gotit
End If
Next r
gotit:
Range(“A3”).NumberFormat = “mm/dd/yyyy”

sdate = Range(“A3”).Value
edate = Range(“A4”).Value

Sheet1.Activate
r = 5
For c = 2 To 380
Sheet1.Cells(r, c).Select
If ActiveCell = sdate Then
scol = c
GoTo enmonth
End If
Next c
enmonth:
For c = (scol + 26) To 380
Sheet1.Cells(r, c).Select
If ActiveCell = edate Then
ecol = c
GoTo getdata
End If
Next c

getdata:
Sheet1.Range(Cells(4, scol), Cells(23, ecol)).Copy
Sheet2.Activate
Sheet2.Cells(4, 2).PasteSpecial xlPasteAll

End Sub

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

Rate this post

Bài viết liên quan

Theo dõi
Thông báo của
guest
1 Comment
Cũ nhất
Mới nhất Được bỏ phiếu nhiều nhất
Phản hồi nội tuyến
Xem tất cả bình luận
arykl Anees

Hi bh, nice video