AS String Problem

[fpskidmark]

Hi All,

I'm getting a "Compile Error" msg - "Expected Sub, Function, or Property" for this "DT" value

 [If Cells(36, n) = "Vicki " Then DT:/PHP]
 
Can someone please help me?
 
[PHP]
Dim t As String
Dim LC As Long
Dim DT As String
DT = Workbooks("RCO Schedule.xls").Sheets("2011").Range("c3:gb3").Find(t).Column
Jan = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(7, DT)
VicM = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(9, DT)
VicG = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(38, DT)
Cor = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(32, DT)
MsgBox (DT)
Sheets("OT").Select
On Error Resume Next
LC = Cells(37, Columns.Count).End(xlToLeft).Column
For n = 3 To LC Step 1
t = Cells(3, n).Value
If Cells(2, n) = "" Then GoTo July
If Cells(36, n) = "Vicki " Then DT: VicM.FormulaR1C1 _
= VicM & " - " & Workbooks("RCO Schedule Worksheet.xls").Sheets("OT").Cells(5, n): VicM.Font.ColorIndex = 9

Thanks,
FP

 

[fpskidmark]

Sorry, in the above ex. Vicky is in row 9 - Cells (9, xxxxx)

 

[Norie]

So it's the exact same code for each of the 28 person with only the row they are located on changing?

You might be able to do that by looping through the names and/or their row location.

Can you post code for more than one person?

By the way, is the code actually written with all these long lines and continuation characters?

That makes it pretty hard to follow - it doesn't even post quite right.

In fact I've just tried to work out what the code is meant to do but I've given up.

You have one line of code that has over 400 characters in it.

I did manage to single out one line of code, this:

Workbooks("RCO Schedule.xls").Sheets("2011").Range("c3:gb3").Find(t).Column

But I'm not sure if that's right because it doesn't mean or do anything.

It uses Find to look for whatever t is and then it returns the Column, but where to?

Sorry if I'm being thick here but I really can't follow the code.

 

[xenou]

This code is unfortunately not very readable.

Can you explain in words what it is meant to do and give an example of data and the results after it has executed. If possible, used a simplified data set (maybe just two or three employees instead of 28).

 

[fpskidmark]

Thanks for trying, Norie. I’m sorry the code is difficult to read (that’s why I need to simplify it)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I modified the code a little, hopefully it makes more sense<o></o>
<o></o>
What I'm trying to do is, if an employee is granted OT (Sheets("OT")), then go to the schedule and update the OT information on the schedule sheet (Sheets("2011").<o></o>
<o></o>
Ex. below Vic = the range where "Vicki Marino" and the OT date("T") meets on the schedule - (Cells(9,162))<o></o>

Dim t As String
Dim LC As Long
Dim OTT As String
Dim OTA As String
Dim Vic As Range
 
Sheets("OT").Select
On Error Resume Next
LC = Cells(37, Columns.Count).End(xlToLeft).Column
For n = 3 To LC Step 1
t = Cells(3, n).Value
 
OTT = Workbooks("RCO Schedule Worksheet.xls").Sheets("OT").Cells(4, n)
OTA = Workbooks("RCO Schedule Worksheet.xls").Sheets("OT").Cells(5, n)
Vic = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(9, Workbooks("RCO Schedule.xls").Sheets("2011").Range("c3:gb3").Find(t).Column)
 
If Cells(2, n) = "" Then GoTo July
 
If Cells(36, n) = "Vicki Marino" Then Vic.Formula = Vic & OTT & OTA: Vic.Font.ColorIndex = 9

Thanks for your help,
FP

 

[fpskidmark]

I finally got it! Thanks guys!

Dim t As String
Dim LC As Long
Dim OTT As String
Dim OTA As String
Dim Vic As Range
 
 
Sheets("OT").Select
On Error Resume Next
LC = Cells(37, Columns.Count).End(xlToLeft).Column
For n = 3 To LC Step 1
t = Cells(3, n).Value
 
OTT = Workbooks("RCO Schedule Worksheet.xls").Sheets("OT").Cells(4, n)
OTA = Workbooks("RCO Schedule Worksheet.xls").Sheets("OT").Cells(5, n)
Set Vic = Workbooks("RCO Schedule.xls").Sheets("2011").Cells(9, Workbooks("RCO Schedule.xls").Sheets("2011").Range("c3:gb3").Find(t).Column)
  
If Cells(2, n) = "" Then GoTo July
 
If Cells(36, n) = "Vicki Marino" Then Vic.FormulaR1C1 = Vic & "," & OTT & " - " & OTA: Vic.Font.ColorIndex = 9

Have a great weekend,
FP