Posts by gdraco123

Thanks…

Cheers,

GD

Hello All,

I need so assistance, I have the attached vba code assigned to a button for Archiving Payment data on a monthly basis from sheet1 to another worksheet (Historical Payments).

And it’s working perfectly, I just need to add a couple error messages once they click on the button: 1) Previous Payment Date has not been Archive…go to 0. 2) This Payment

Date has already been Archive…go to 0. The designated date is on cell E3 of the sheet1. I would greatly appreciate the assistance!

Cheers,

GD

Hello All,

Can you rename a specific column name if column name is deemed Private and as String?

Cheers,

GD

The code did not work, my apologies I forgot to mention I have the attached Class Module for columns, if that helps? Thank you so much…

Cheers,

GD

Hello All,

I have a monthly csv file that I import data including column titles into an excel workbook and that’s working fine, my issue is I need to rename one of the column titles on the excel workbook from “TIBEN” to “TICKET #”, which is located in Row 1, Column F.

And I haven’t been able to find the right vba code to rename the column, also I’m not sure where I need to place the rename vba code, at the beginning of the import data vba code or at end of it? Any assistance will be greatly appreciated!!!

Cheers,

GD

Hello royUK,

Greatly appreciate the assistance,

FYI - I got Run-time error 424; Object required on the below code line.

“If not WksExists(wsc.Name) Then”

Thanks again,

Cheers,

gdraco123

Reason I want to copy the active sheet is because these are invoices (monthly/quarterly)with running totals and the active sheet would be the latest and once I copy it the ending balance would be my beginning balance of the new copy and I need to keep historical/tangible copies. And you’re correct of the error handler just haven’t had time to revisit to correct it. Thank you so much this looks great. Just one question, I’m not familiar with functions do I need to add a button and assign function and run it?

Hello All,

I have the below simple vba code assigned to a button on my workbook, it’s to create a copy of the active sheet on a monthly basis, but I also have the workbook structure disabled and protected after the code is run. What I need assistance with is, adding code to the existing code preventing it from creating duplicates if the button is clicked in error more than once.

VBA CODE:

Sub CopyMyWorkSheet()


ThisWorkbook.Unprotected “Password”


On Error GoTo Err_MyWorkSheet
Dim ws As Worksheet
Set ws = ActiveSheet
Dim wsc As Worksheet
ws.Copy , ws
Set wsc = ThisWorkbook.Worksheets(ws.Index + 1)
wsc.Name = “MyWorkSheet “ & Format(DateAdd(“m”, 1, ws.[E3].Value), “mm-did-yy”)


ThisWorkbook.Protect”Password”


Exit_MyWorkSheet:
Exit Sub
Err_MyWorkSheet:
MsgBox “Error “ & Err.Number & “: “ & Err.Description


ThisWorkbook.Protect”Password”


Resume Exit_MyWorkSheet
End Sub

Thanks in advance…

Cheers!

Took out .xls, but still getting same error message.

No date.

I’m getting the attached run-time error message with the attached vba code “Save as with the new file name”. I’m in Excel MS 365.

Hello Roy,

That worked, Thank you so much!!!

Cheers,

George

Hello rory,

Thanks for the reply, unfortunately this not my code I’m trying to fix someone else’s error.

I’m researching your questions and will let you know. Thanks…

Cheers,

GD

Hello All,

My first post, and need assistance with

Cheers,

GD