Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 29th, 2012  |  syntax: None  |  size: 0.68 KB  |  hits: 14  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. End IF not working on excel 2007
  2. Option Explicit
  3.  
  4. Sub futures10()
  5.     Dim KeyHead, strContractName, strKeyCol As String
  6.     Dim x As Integer
  7.  
  8.     Sheets("Futures10+14").Select
  9.  
  10.     x = 2
  11.     strContractName = "C"
  12.     strKeyCol = "A"
  13.     KeyHead = Range(strContractName & x).Value
  14.  
  15.     Do
  16.         If (Mid(Range(strContractName & x).Value, 1, 1) <> " ") Then
  17.             KeyHead = Range(strContractName & x).Value
  18.         Else
  19.             Range(strKeyCol & x).Value = KeyHead & Mid(Trim(Range(strContractName & x).Value), 1, 3) & _
  20.             Mid(Trim(Range(strContractName & x).Value), 6, 1)
  21.         End If
  22.         x = x + 1
  23.     Loop While (Range(strContractName & x).Value <> "")
  24. End Sub
create a new version of this paste RAW Paste Data