copy SheetCell

[dy]

Can anyone tell me what I did wrong here?
I do not get any error message, but I can't get Sheets(i).Range("B1") to copy over to Sheets(35). Thanks!

Sub ProcedureA()

Dim i As Integer

For i = 1 To 34
If Sheets(35).Range("C2") = Sheets(i).Range("A1") Then
Sheets(35).Range("C3") = Sheets(i).Range("B1")

End If
Next i

End Sub

 

[erik.van.geit]

Are you sure of what you're really doing ?

try this: it's your macro with some text to clarify what's happening
kind regards,
Erik

Sub ProcedureA()

Dim i As Integer

For i = 1 To 34
MsgBox "if Range(""C1"") with value " & """" & Sheets(35).Range("C1") & """" & _
" on sheets(35) which is called " & """" & Sheets(35).Name & """" & Chr(10) & _
"equals to Range(""A1"") with value " & """" & Sheets(i).Range("A1") & """" & _
" on Sheets(i) (i = " & i & ") which is now " & """" & Sheets(i).Name & """" & Chr(10) & _
" then Sheets(35).Range(""C3"") will get the value from Sheets(i).Range(""B1"")" & _
"which is " & """" & Sheets(i).Range("B1") & """"

If Sheets(35).Range("C2") = Sheets(i).Range("A1") Then
Sheets(35).Range("C3") = Sheets(i).Range("B1")
End If
Next i
End Sub