If statement(rookies)
 

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 ?

If statement(rookies)
 

Do you mean

z = activecell.value

instead of

activecell.value = z

?

"KK" wrote:

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 ?

If statement(rookies)
 

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

"Sam Wilson" wrote:

Do you mean

z = activecell.value

instead of

activecell.value = z

?

"KK" wrote:

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 ?

If statement(rookies)
 

Good.

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

"KK" wrote:

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

"Sam Wilson" wrote:

Do you mean

z = activecell.value

instead of

activecell.value = z

?

"KK" wrote:

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 ?