Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Select Case gTTD.Cells(r, 4)
- Case InStr(gTTD.Cells(r, 4), "MASTER LOG")
- resp = "MM LOG"
- Case InStr(gTTD.Cells(r, 4), "MASTER MET")
- resp = "MM MET"
- Case "PIR"
- gTTD.Cells(r, 7) = "Martin Trépanier"
- resp = "Martin Trépanier"
- End Select
- Select Case True
- Case (1 = 2)
- Stop
- Case (2 = 3)
- Stop
- Case (4 = 4)
- Stop
- Case Else
- Stop
- End Select
- Select Case True
- Case (InStr(gTTD.Cells(r, 4), "MASTER LOG") > 0)
- resp = "MM LOG"
- Case (InStr(gTTD.Cells(r, 4), "MASTER MET") > 0)
- resp = "MM MET"
- Case else
- gTTD.Cells(r, 7) = "Martin Trépanier"
- resp = "Martin Trépanier"
- End Select
- dim r as integer
- for r = 1 to 'number of rows
- if Instr(gTTD.Cells(r, 4), "MASTER LOG") <> 0 then
- resp = "MM LOG"
- elseif Instr(gTTD.Cells(r, 4), "MASTER MET") <> 0 then
- resp = "MM MET"
- else
- gTTD.Cells(r, 7) = "Martin Trépanier"
- resp = "Martin Trépanier"
- end if
- next r
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement