Posts by rsynec

Re: Vacation calculation

I am so sorry for the slow response to your questions and work, my ISP has been down. I have attached a spreadsheet that expains the earning of vacation in more detail.

Thank you

Rsynec

I need to develop a formula or a macro to determine the amount of vacation an employee has earned and used. Vacation is earned as follows:

After 1 year continuous employment 1 week paid (No vacation is earned under one year of service)
After 2 years continuous employment 2 weeks paid
After 5 years continuous employment 3 weeks paid

For each year from year eleven through year twenty, the employee gets an additional day. Therefore, an employee with twelve years of service would have earned 17 days of vacation. An employee earn days on a monthly basis throughout the year. So an employee with sixteen years and one month would have earned 1.4 days of vacation, sixteen years and two months would have earned 2.8 days of vacation. I have attached an example spreadsheet.

Re: Compare and Total

THANK YOU so much for your help. I appreciate the time and energy you spent helping me out. I'm sorry for the slow show of appreciation but my internet have been down.

Thanks again

Rsynec

Re: Compare and Total

Is there a way to have the item codes automatically added to the summary section.

I have an inventory sheet that has a variety of items listed on the left. When the sheet is complete I need to list on the right under summary each unique item with a total. I have attached a copy of the sheet.

Thank you,

Rsynec

Re: Zero value in range

Thank you, the placement of the zero is what I wanted to do. It's the simple things that I have a diffecult time comprehending.

Rich

I have a range named "PKI2" with numeric values in each cell. I would like to zero out the values using a macro. What code would I use?

Re: Delete Column

That did it, thanks for the help.

Rich

Re: Delete Column

Sub CreateRangesNames2()
Dim intCount, intDown, intRight As Integer
Dim strName As String
For intCount = 1 To ActiveSheet.Cells(65536, 1).End(xlUp).Row


'This is where I was hoping to place the delete    
    
    Cells.Select
    Range("A9").Activate
    Selection.Replace What:="Co-Mingle", Replacement:="CoMingle", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False


    
intDown = ActiveSheet.Cells(intCount, 1).End(xlDown).Row
intRight = ActiveSheet.Cells(intCount + 1, 1).End(xlToRight).Column


    Select Case ActiveSheet.Cells(intCount, 1)
        Case "Inserting"
            ActiveWorkbook.Names.Add Name:=ActiveSheet.Name + "_Inserting", _
            RefersToR1C1:=Range(ActiveSheet.Cells(intCount + 1, 1), Cells(intDown, intRight))
            ActiveWorkbook.Names.Add Name:=ActiveSheet.Name + "_InsertB", _
            RefersToR1C1:=Range(ActiveSheet.Cells(intCount + 1, 5), Cells(intDown, 5))
                       
            
    End Select
Next


End Sub

Re: Delete Column

The code below where I'm trying to place the delete code is:

Cells.Select
    Range("A9").Activate
    Selection.Replace What:="Co-Mingle", Replacement:="CoMingle", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False

I receive a spreadsheet on a daily basis and I would like to delete a column by using an existing macro that I have written. I have used the record macro and came up with the following code, unfortunately when I add this to the existing macro, it causes a loop that continues to delete column after column. Your help would be appreciated.

Columns("B:B").Select
    Range("B3").Activate
    Selection.Delete Shift:=xlToLeft

Re: Starting a Named Range in Floating Position

Thank you, this worked great. You have no idea how much I appreciate the help, and the time savings.

Respectfully,

Rich

Re: Starting a Named Range in Floating Position

Is there a way to set up ranges as follows for this sheet:

Start one line below Insing
Range e10:e12 - Range Name Insing1
Range F10:F12 - Range Name Insing2
Range G10:G12 - Range Name Insing3

Start one line below Co_mi
Range e19:e21 - Range Name CoM1
Range F19:F21 - Range Name CoM2
Range G19:G21 - Range Name CoM3

Start one line below Bndy
Range e28:e30 - Range Name Bndy1
Range F28:F30 - Range Name Bndy2
Range G28:G30 - Range Name Bndy3

Start one line below pna3
Range e37:e39 - Range Name pna1
Range F37:F39 - Range Name pna2
Range G37:G39 - Range Name pna3

Any help would be appreciated..

Re: Match on Name and insert column

That work great. Thank you for your help. I have applied the formula and just saved two hours of copying and pasting. Thanks again.

I have a workbook that contains two worksheets. I need to check the names in Sheet2 angainst Sheet1 and pull the employee number from Sheet1 and add it to Sheet2. The number of names in both sheets vary on a weekly basis. I have named the range in Sheet1 "EmpNo". Any help would be appreciated. I have attached a sample file.

Re: Starting a Named Range in Floating Position

THANK YOU! this is great. I truly appreciate all of your help. Have a great weekend.

Respectfully

Rich

Re: Starting a Named Range in Floating Position

This works GREAT , Thank you for all your time and energy on this problem. I have one question, the code only seems to work if it's attached to the workbook that I need to run the code against. What do I add to have this run on the active worksheet?

Respectfully,

Rich

Re: Starting a Named Range in Floating Position

See attached file

Re: Starting a Named Range in Floating Position

How do I attach a file?

Re: Starting a Named Range in Floating Position

The problem that I am faced with is that there are blank rows between the product types.

I was trying something like this:

Sub Rich()
Range("A10", Range("J10").End(xlDown)).Name = "Insing"
Range("F10", Range("F10").End(xlDown)).Name = "Ins1"
Range("G10", Range("G10").End(xlDown)).Name = "Ins2"
Range("H10", Range("H10").End(xlDown)).Name = "Ins3"


 Cells.Find(What:="Bindery", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
ActiveCell.Offset(1).Select


Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Range("Activecell", Range("Activecell").Name = "Bndy"


ActiveWorkbook.Names.Add Name:="Bindery",.ActiveCell


End Sub

I tried to modify the code in the other article, but the blank rows interfere

Thanks Again for your time.