mydate

Hi, I am new to VBA, getting a bit of a hang of it. I found this code via forums etc. Sub Delete_Data() Dim i As Long, lastrow As Long, mydate As Date, erow As Long lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row Application.ScreenUpdating = False For i = lastrow To 2 Step -1 mydate...

I'm using ADO to connect one workbook to another and then update certain fields. This works with no issue with the exception of dates. The workbook being updated has a "Timestamp" column formatted as "yyyy-mm-dd." No matter what I try, the update fails when the SQL is run with the error...

Hi everyone, The below bit of code will copy then paste dates that are less than or equal to 6 months from today's date. The data on "sheet1" is formatted differently to where the data will be pasted on "sheet2". How can i make it so it will only paste the values and not copying the format too...

Hi everyone, Please Help me out with the solution I have 13 sheets in one of my workbook, from which if i add any data in 1st sheet(Master worksheet), based on months it should copy to that sheets(were my other sheets would be named as Jan,feb,mar....) and if i need to update anything from any...

Hi Guys What I am trying to do here is to copy data from a sheet [called Full Bank Statement] that is between 2 dates held in A2 & B2 of the sheet and where the data meets the criteria, copy from columns 1 - 6 into the first empty cells of the sheet [January] I only want to copy the cells in...

Hi, I have been working on a code for my workbook that will search all the worksheets for complaints between 2 dates that the user inputs and then also searches for a keyword within the complaints so basically on the summary page the only complaints that will show will be ones logged between 2...

I am using vlookup to return a date from my spreadsheet. I have tried to convert the date to Long by using CLng & CDate in my code, but I am still getting a type mismatch error. Here is my code: Private Sub TextBox9_Change() Dim wsJournal As Worksheet Dim MyDate As Long Set wsJournal =...

Hi, I have done a couple of codes for different searches, one to search by date and one to search by keyword. In both codes the results are found in the workbook and the rows are copied and pasted into a 'Summary' sheet. I now need to merge these codes together so that I find results between 2...

Hello all This piece of code checks to see if a folder with the value "MyContact" exists and if not creates a folder on my S Drive with the folder with the value of "MyContact" It then saves the active sheet in this folder with the value from "MyFileName and "Mydate" sDir =...

Title I'm trying to use MyUser and MyDate in many modules but it just returns blank. Public MyUser As String Public MyDate As String Sub GetMyUser() Dim MyUser As String MyUser = Application.WorksheetFunction.Proper(Application.UserName) End Sub Sub GetMyDate() Dim...

Hi, Thank you, in advance, for any contributions to this code. The code below isn't formatting. Essentially, what I need this code to do is start in column "D", row 3, and search for dates, highlighting any date that is within -4 to +2 days of a date listed in A1. I want this to then jump to...

Hi Folks, I haven't had any luck in getting my code to reformat Date from 5/14/2018 to something without the forward slash. The code I found when I searched for a solution simply doesn't work for some reason. Here's my code showing all the iterations I've tried to reformat the Date...

Hi, I am using below query to get details from database. SELECT Designation, MyDate, Count(Designation) AS MyCount FROM Combine WHERE Designation = 'Senior Dummy Manager' GROUP BY Designation, MyDate ORDER BY Count(MyDate); However, whenever I click on query, I get a pop-up as...

I have an excel workbook with 13 sheets. Sheet 1 is current inventory and then I have Jan Sales, Feb Sales and so on. One of the rows in my Sheet is 'Date Sold'. When I populate the 'Date Sold' field I would like it to move that row to the appropriate sheet and then remove the row from the...

I borrowed this from another website and customized it to my specific fields, but it does absolutely nothing. I am inexperienced with vba, I have done simple vba coding but this is by far the most complicated project I've worked on so far, and after a week of messing around, I'm reaching out...

Hello, I have a question, because I have a problem regarding a VBA code I found a code that does only partially what I want. I'm trying to highlight dates that are equal or lower then the current date (this date is on a different sheet, called Setup and the date is in cell "F3") If there is no...

I've written a basic macro with extracts records based on two dates: Sub extractDataBasedOnDate() Dim lastrow As Long, erow As Long, i As Long Dim mydate As Date Dim StartDate As Date Dim EndDate As Date StartDate = Worksheets("Expense Report").Cells(3, 1).Value EndDate =...