http://ocotal.iarc.uaf.edu/index.php?action=history&feed=atom&title=Double_Line_DeleteDouble Line Delete - Revision history2026-05-12T21:49:34ZRevision history for this page on the wikiMediaWiki 1.34.2http://ocotal.iarc.uaf.edu/index.php?title=Double_Line_Delete&diff=739&oldid=prev137.229.71.165 at 20:59, 1 August 20082008-08-01T20:59:13Z<p></p>
<p><b>New page</b></p><div>Use this Macro to delete duplicate lines from the online shand data (off the WERC website). This data appears sometimes do to hiccups in the syncing stuff. So, if you run this macro here you'll delete the incomplete first line of data and keep just the complete second line.<br />
<br />
See Bob for questions.<br />
<br />
Sub deleter()<br />
'<br />
' deleter Macro<br />
' Macro recorded 7/30/2008 by<br />
' <br />
' <br />
Dim row As Long<br />
Dim nextrow As Long<br />
Dim curday As Double<br />
Dim curtime As Double<br />
Dim curdt As Double<br />
Dim nextday As Double<br />
Dim nexttime As Double<br />
Dim nextdt As Double<br />
Dim worksheetz As Integer<br />
Dim daycol As Integer<br />
Dim timecol As Integer<br />
worksheetz = 2<br />
row = 4<br />
daycol = 6<br />
timecol = 7<br />
curtime = Worksheets(worksheetz).Cells(row, timecol).Value<br />
curday = Worksheets(worksheetz).Cells(row, daycol).Value<br />
curdt = curday + curtime / 2400<br />
row = row + 1<br />
Do While Worksheets(worksheetz).Cells(row, daycol).Value <> ""<br />
nexttime = Worksheets(worksheetz).Cells(row, timecol).Value<br />
nextday = Worksheets(worksheetz).Cells(row, daycol).Value<br />
nextdt = nextday + nexttime / 2400<br />
If nextdt = curdt Then<br />
Rows(CStr(row - 1) & ":" & CStr(row - 1)).Select<br />
Selection.Delete Shift:=xlUp<br />
Else<br />
curdt = nextdt<br />
row = row + 1<br />
End If<br />
Loop <br />
End Sub</div>137.229.71.165