Calibrations

L

Legacy 436357

Guest
Hi,

I was wondering if someone can help me please. I have a long list of equipment that requires calibrations on different cycles. Some weekly, monthly, semi-annual, and annual. I request some sort of way to automate the process as far as showing what is due.

I would like to attach file example if possible.

Thank you very much,
Bill
 
L

Legacy 436357

Guest
I see that I can put screen shot so this is first sheet:

Excel Workbook
ABCDEFGHI
2Due DateTEL #NomenclatureModelManufacturerSerial NumberDept/AreaLast Cal DateCycle
311/2/20186070-100 LBS FORCE GAUGEDDPH-100CHATILLONN/ASERV-HGR10/2/2018Monthly
411/14/201814140-1000 LBS FORCE GAUGECG1000MARK-103416602LINE/INSP10/14/2018Monthly
511/22/2018T7960-150 LBS FORCE GAUGE80DCHATILLONDPPH-150PRODUCTION10/22/2018Monthly
Equipment
 
L

Legacy 436357

Guest
Let me know something why I cannot reply please.
 

mole999

Moderator
Joined
Oct 23, 2004
Messages
9,947
Office Version
2019, 2016, 2013
Platform
Windows
as a new user you have to be approved for posts, this helps us prevent spamming of the forum, it is very effective
 
L

Legacy 436357

Guest
Now that my post is showing the first sheet. I thought maybe another sheet to fill in for equipment that is due. What are your thoughts? I appreciate any help or suggestions thank you.
 
L

Legacy 436357

Guest
Is it possible to have code that will copy and paste the rows with Due Dates in November to next available row in the November! sheet? The November! sheet will be of same format with data starting in row 3.

Thank you
 

mole999

Moderator
Joined
Oct 23, 2004
Messages
9,947
Office Version
2019, 2016, 2013
Platform
Windows
it is possible, would take me hours to do that, where as others could probably do that much quicker.

Partly you apply a filter for the data, then select the visible cells, copy them to your new sheet and apply a sort, you might then need to delete duplicate rows should you do that a number of times
 

lrobbo314

Well-known Member
Joined
Jul 14, 2008
Messages
2,627
Office Version
365, 2019, 2016
Platform
Windows
Is it possible to have code that will copy and paste the rows with Due Dates in November to next available row in the November! sheet? The November! sheet will be of same format with data starting in row 3.

Thank you
How about this...

Code:
Sub CopyNovember()
Dim wsMain  As Worksheet: Set wsMain = Sheets("Main") 'Change sheet to whatever yours is named
Dim wsNov   As Worksheet: Set wsNov = Sheets("November")
Dim AR()    As Variant: AR = wsMain.Range("A1").CurrentRegion.Value
Dim LR      As Long
Dim R       As Range


For i = 2 To UBound(AR)
    If Month(AR(i, 1)) = 11 Then
        LR = wsNov.Range("A" & Rows.Count).End(xlUp).Row() + 1
        Set R = wsNov.Range("A" & LR).Resize(1, UBound(AR, 2))
        tmp = Application.Index(AR, i, 0)
        R.Value = tmp
    End If
Next i


End Sub
 

Forum statistics

Threads
1,085,577
Messages
5,384,546
Members
401,907
Latest member
Djmason2001

Some videos you may like

This Week's Hot Topics

Top