Make an Excel sheet look like a calendar. Create a calendar that you can use Excel functions on. Free templates and templates with code are available for purchase for $50 USD
www.easyexcela...
Addition Templates may be available on request
Click this link to check out my one-on-one training www.calendly.co...
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 www.calendly.co...
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
Check out Crowdcast for creating your webinars
app.linkmink.c...
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy....
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
www.youtube.com...
*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.
How to insert VBA code in Excel • How to insert VBA code...
code
Sub calendar()
Dim startdate, daten As Date
Dim day As Long
Dim ws1 As Worksheet
Dim startdatef As UserForm
Dim c, r As Long
Dim mn As Long
'copy our blank calendar
Set ws1 = ThisWorkbook.Worksheets("blank")
Worksheets("blank").Visible = True
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
Worksheets("blank").Visible = False
Call show
startdate = ActiveSheet.Range("B1").Value
'rename the sheet month and year
Mon = Format(startdate, "mmmyyyy")
ActiveSheet.name = Mon
'find what day of the week the start date is on
'use the weekday function
day = Weekday(startdate)
Select Case day
Case Is = 1
ActiveSheet.Cells(10, 2).Select
ActiveSheet.Cells(10, 2).Value = startdate
daten = Format(startdate, "dd")
Case Is = 2
ActiveSheet.Cells(10, 3).Select
ActiveSheet.Cells(10, 3).Value = startdate
daten = Format(startdate, "dd")
Case Is = 3
ActiveSheet.Cells(10, 4).Select
ActiveSheet.Cells(10, 4).Value = startdate
daten = Format(startdate, "dd")
Case Is = 4
ActiveSheet.Cells(10, 5).Select
ActiveSheet.Cells(10, 5).Value = startdate
daten = Format(startdate, "dd")
Case Is = 5
ActiveSheet.Cells(10, 6).Select
ActiveSheet.Cells(10, 6).Value = startdate
daten = Format(startdate, "dd")
Case Is = 6
ActiveSheet.Cells(10, 7).Select
ActiveSheet.Cells(10, 7).Value = startdate
daten = Format(startdate, "dd")
Case Is = 7
ActiveSheet.Cells(10, 8).Select
ActiveSheet.Cells(10, 8).Value = startdate
daten = Format(startdate, "dd")
End Select
c = ActiveCell.Column
c = c + 1
For r = 10 To 34
Do While c less than 9
startdate = startdate + 1
ActiveSheet.Cells(r, c).Value = startdate
c = c + 1
Loop
r = r + 5
c = 2
Next r
End Sub
Sub show()
With startdatef
.Width = 200
.Height = 155
.show
End With
End Sub
11 сен 2024