-
VBA - seet 1 cell value (H2) to copy paste in activecell column c sheet 2
Sub ShowCal()
- Dim myDate As Date
- Dim iRow As Long
- Dim ws As Worksheet
- Set ws = Worksheets("Report")
- Set sw = Worksheets("Input")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
- myDate = CalendarForm.GetDate(FirstDayOfWeek:=Monday, SaturdayFontColor:=RGB(250, 0, 0), SundayFontColor:=RGB(250, 0, 0))
- If myDate > 0 Then Range("h152").Value = myDate
- ws.Cells(iRow, 7).Value = sw.Range("m2").Value555.JPG
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules