Calibrations

[Legacy 436357]

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

 

[Legacy 436357]

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

Excel Workbook
	A	B	C	D	E	F	G	H	I
2	Due Date	TEL #	Nomenclature	Model	Manufacturer	Serial Number	Dept/Area	Last Cal Date	Cycle
3	11/2/2018	607	0-100 LBS FORCE GAUGE	DDPH-100	CHATILLON	N/A	SERV-HGR	10/2/2018	Monthly
4	11/14/2018	1414	0-1000 LBS FORCE GAUGE	CG1000	MARK-10	3416602	LINE/INSP	10/14/2018	Monthly
5	11/22/2018	T796	0-150 LBS FORCE GAUGE	80D	CHATILLON	DPPH-150	PRODUCTION	10/22/2018	Monthly
Equipment

 

[Legacy 436357]

Am I doing something wrong?

 

[Legacy 436357]

Do I need to clarify anything?

 

[Legacy 436357]

Let me know something why I cannot reply please.

 

[mole999]

as a new user you have to be approved for posts, this helps us prevent spamming of the forum, it is very effective

 

[Legacy 436357]

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.

 

[Legacy 436357]

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]

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]

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...

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