If statement(rookies)

K

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 ?

S

Sam Wilson

Do you mean

z = activecell.value

activecell.value = z

?

K

KK

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

Sam Wilson said:
Do you mean

z = activecell.value

activecell.value = z

?

KK said:
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 ?

S

Sam Wilson

Good.

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

KK said:
Sam, thanks a lot......It work....

Sam Wilson said:
Do you mean

z = activecell.value

activecell.value = z

?

KK said:
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 ?