Solved

Have today date appear automatically on the a column when using this macro

Posted on 2016-09-24
12
32 Views
Last Modified: 2016-09-25
How can i get the date to appear on the first column of the row when using this macro.

'copy the data to the database
        ws.Cells(iRow, 1).Value =
        ws.Cells(iRow, 3).Value = "          " & Me.textbox_name.Value
        ws.Cells(iRow, 4).Value = Me.Label4.Caption
        ws.Cells(iRow, 5).Value = Me.Label3.Caption
        ws.Cells(iRow, 6).Value = Me.Label5.Caption
        ws.Cells(iRow, 7).Value = "2"
0
Comment
Question by:Omar Hernandez
  • 5
  • 4
  • 3
12 Comments
 
LVL 18

Expert Comment

by:Roy_Cox
ID: 41813631
ws.Cells(iRow, 1).Value =Date

Open in new window

0
 

Author Comment

by:Omar Hernandez
ID: 41813633
Hey Roy Cox, it works wanted to know if there is a way to change the way it looks (9/24/2016) to this (9/24/16)
0
 
LVL 18

Expert Comment

by:Roy_Cox
ID: 41813641
Change the Format

ws.Cells(iRow, 1).Value =Format(Date,"mm/dd/yy")

Open in new window

0
ScreenConnect 6.0 Free Trial

At ScreenConnect, partner feedback doesn't fall on deaf ears. We collected partner suggestions off of their virtual wish list and transformed them into one game-changing release: ScreenConnect 6.0. Explore all of the extras and enhancements for yourself!

 

Author Comment

by:Omar Hernandez
ID: 41813642
It keeps showing the format as "mm/dd/yyyy"
0
 
LVL 18

Accepted Solution

by:
Roy_Cox earned 500 total points
ID: 41813655
Try

ws.Cells(iRow, 1).Value =Format(Date,"mm/dd/yy")
ws.Cells(iRow, 1).NumberFormat="mm/dd/yy")

Open in new window


Are the cells pre-formatted to "mm/dd/yyyy"
0
 
LVL 29

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41813669
Maybe this?
ws.Cells(iRow, 1).NumberFormat = "m/d/yy"
ws.Cells(iRow, 1).Value = Format(Date, "m/d/yy")

Open in new window

0
 

Author Comment

by:Omar Hernandez
ID: 41813975
Thank's again Neeraj the last suggestion that you have provided, works phenomenal. I have a pop up calendar function that when i click on cells it automatically pops up.

In order for that the pop up calendar to appear i would need to
1. Right click on the cell where i want the calendar to pop up.
2. On the number column of the box i need to click then on date.
3. Type of date 3/14/12

***Any way i can implement so that it can record this function on the macro.
0
 
LVL 29

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41814026
You're question is not clear to me.
As you said, you already have a code to input a date through the calendar pop up in a cell and I assume that works for you. So do you want to apply the same number format to that date cell or what?

It would be helpful if you can upload a sample workbook so that it would be easy to visualize your requirement more clearly.
0
 

Author Closing Comment

by:Omar Hernandez
ID: 41814060
Thanks Roy Cox this worked great
0
 
LVL 18

Expert Comment

by:Roy_Cox
ID: 41814349
Pleased to help.
0
 
LVL 29

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41814453
:)
0
 
LVL 18

Expert Comment

by:Roy_Cox
ID: 41814614
Having seen the mention of your calendar then the formatting should be done within the calendar form.

See my example workbook
Calendar-Forms.xlsm
0

Featured Post

ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Excel Question 17 15
Excel error  #DIV/0! 7 18
Excel - remove duplicates 1 13
excel formula to sum column 13 15
Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question