Format Active Cells

[S.H.A.D.O.]

Hi everyone,

How can I format the following please :-

Worksheets("Test").Select 
With ActiveCell 
  .Offset(1, 0).Value = cmb & " If " & pik <- Format Right 
  .Offset(1, 1).Value = Tested <- Accept Thousands & NO Decimal Places 
  .Offset(1, 2).Value = tly <- Accept Thousands & NO Decimal Places 
  .Offset(1, 3).Value = 100 / Tested * tly <- 5 Decimal Places 
  .Offset(1, 4).Value = Tested - tly <- Accept Thousands & NO Decimal Places 
  .Offset(1, 5).Value = (100 / Tested) * (Tested - tly) <- 5 Decimal Places 
  .Offset(1, 6).Value = tly + Tested - tly <-  Accept Thousands & NO Decimal Places 
  .Offset(1, 7).Value = (100 / Tested * tly) + ((100 / Tested) * (Tested - tly)) <- General & NO Decimal Places 
    .Offset(1, 0).Select 
End With

Thanks in Advance.

 

[Lewiy]

Is this what you mean?

With ActiveCell
    .Offset(1, 0).Value = cmb & " If " & pik
    .Offset(1, 0).HorizontalAlignment = xlRight
    .Offset(1, 1).Value = tested
    .Offset(1, 1).NumberFormat = "#0"
    .Offset(1, 2).Value = tly
    .Offset(1, 2).NumberFormat = "#0"
    .Offset(1, 3).Value = 100 / tested * tly
    .Offset(1, 3).NumberFormat = "#0.00000"
    .Offset(1, 4).Value = tested - tly
    .Offset(1, 4).NumberFormat = "#0"
    .Offset(1, 5).Value = (100 / tested) * (tested - tly)
    .Offset(1, 5).NumberFormat = "#0.00000"
    .Offset(1, 6).Value = tly + tested - tly
    .Offset(1, 6).NumberFormat = "#0"
    .Offset(1, 7).Value = (100 / tested * tly) + ((100 / tested) * (tested - tly))
    .Offset(1, 7).NumberFormat = "#"
    .Offset(1, 0).Select
End With

 

[S.H.A.D.O.]

Thanks Lewiy, that is EXACTLY what I was after.
What about if I wanted to format ...

.Offset(0, 0).Value = "For 1 - " & POOL & " there are " & tly & " different set of " &  cmb & " numbers. "

... as "#,##0" for the tly output please?.

Thanks in Advance.