If statement(rookies)

[KK]

Private Sub cbStart_Click()

Workbooks.Open (tbFile)
Sheets(1).Activate

Dim x As Integer
Dim z As Integer




For x = 2 To 10

Application.Goto Reference:="R" & x & "C13"
ActiveCell.FormulaR1C1 = "=(LEFT(RC[-8],LEN(RC[-8])-4)+1)"
ActiveCell.Value = z




If z > 10 Then
ActiveCell.Value = "Y"

Else
ActiveCell.Value = "N"

End If


Next x

ActiveWorkbook.SaveAs (tbFile)


End Sub



If not use the if statement , Z value will show, but if i use IF statement
,i cant use the Z value to compare with integer ,anything wrong ?

 

[Sam Wilson]

Do you mean

z = activecell.value

instead of

activecell.value = z

?

 

[KK]

Sam, thanks a lot......It work....

Do you mean

z = activecell.value

instead of

activecell.value = z

?

Private Sub cbStart_Click()

Workbooks.Open (tbFile)
Sheets(1).Activate

Dim x As Integer
Dim z As Integer




For x = 2 To 10

Application.Goto Reference:="R" & x & "C13"
ActiveCell.FormulaR1C1 = "=(LEFT(RC[-8],LEN(RC[-8])-4)+1)"
ActiveCell.Value = z




If z > 10 Then
ActiveCell.Value = "Y"

Else
ActiveCell.Value = "N"

End If


Next x

ActiveWorkbook.SaveAs (tbFile)


End Sub



If not use the if statement , Z value will show, but if i use IF statement
,i cant use the Z value to compare with integer ,anything wrong ?

 

[Sam Wilson]

Good.

If you mark that as the answer other people can search for it and might help
themselves.

Sam, thanks a lot......It work....

Do you mean

z = activecell.value

instead of

activecell.value = z

?

Private Sub cbStart_Click()

Workbooks.Open (tbFile)
Sheets(1).Activate

Dim x As Integer
Dim z As Integer




For x = 2 To 10

Application.Goto Reference:="R" & x & "C13"
ActiveCell.FormulaR1C1 = "=(LEFT(RC[-8],LEN(RC[-8])-4)+1)"
ActiveCell.Value = z




If z > 10 Then
ActiveCell.Value = "Y"

Else
ActiveCell.Value = "N"

End If


Next x

ActiveWorkbook.SaveAs (tbFile)


End Sub



If not use the if statement , Z value will show, but if i use IF statement
,i cant use the Z value to compare with integer ,anything wrong ?