strdate

Hi I have this code which basically finds the date I need from a table and copies a certain number of cells below and pastes it somewhere else. My question is how I could amend it so that after the first round a question box appears which asks if more dates are needed. If yes again it should be...

Hi all, I have an issue with the code below where I am attempting to amend incorrectly formatted dates so any instance of "." should change to "/". The first piece of code seems to convert everything incorrectly: Sub DateConv() Dim LrDst As Long Dim DstSht As Worksheet Dim...

Sub SaveEngine(sFileNum As String) StrDate = Format(Now(), "dd-mmm-yyyy") RunNum = Sheets("Sheet1").Range("e3").Value Sheets("ABI-" & sFileNum).SaveAs Filename:=FileLoc & "\RESP ABI\ABI-Resp " & sFileNum & " " & StrDate & " " & RunNum & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False...

Hi all, I am looking to add the Date entered via Input Box to the last pasted range without overwriting the data above. I am new to VBA so my code tends to be trial and error. At present I can copy the data to the column but it is overwriting the original data. I cannot work out how to find...

Hello, So I have two sheets, "Insert" and "Database", in this workbook. The "Insert" sheet accepts three user inputs, "Book Title", "Author(s)", and "Year Published", which I am trying to insert into a new row at the bottom of the table in "Database", in columns A, B, and C respectively...