Public Pastes
Guest

Untitled

By: a guest on Feb 6th, 2012  |  syntax: VisualBasic  |  size: 0.56 KB  |  hits: 57  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. Sub UpdateDashboard()
  2. Dim Counter As Integer
  3. Dim StatusFBW7, PriorityFML As Variant 'Status from Beatrice Win7; Priority from masterlist
  4. Dim BeaWin7, MasterLst As Variant
  5.  
  6.     Set BeaWin7 = Sheets("Beatricewin7").Range("$A$2:$B$600")
  7.     'Set MasterLst = Sheets("Masterlist").Range("$A$2:$B$600")
  8.  
  9.    For i = 2 To 600
  10.     StatusFBW7 = Application.WorksheetFunction.VLookup(Cells(i, 2), BeaWin7, 2)
  11.     'PriorityFML = Application.WorksheetFunction.VLookup(Cells(i, 2), MasterLstt, 2)
  12.    Range("G" & i) = StatusFBW7
  13.     'Range("H" & i) = PriorityFML
  14.    Next i
create a new version of this paste RAW Paste Data