Countif Value problem

[James580]

I have a code that opens another workbook and looks at some cells and then returns the values. The problem is F20 in the opening document has a countif and gives the value but when it comes back into the main file it has the formula and not the value

Private Sub DownloadDR_Click()
 Dim wb As Workbook
  Dim s As String
  Dim dName As String
  dName = Format(CDate(Range("c3").Value), "mmddyy")

TextBox5.Text = dName
  
   s = Worksheets(1).TextBox5.Value
    
  Application.ScreenUpdating = False ' turn off the screen updating
  'Set wb = Workbooks.Open("m:\cir at a glance\dsi reports\" & TextBox3.Value & ".xls", True, True)
  Set wb = Workbooks.Open("M:\Cir at a Glance\Down Route Report\Brandermill  Down Route Report " & s & ".xls", True, True)
  ' open the source workbook, read only
  With ThisWorkbook.Worksheets(1)
  ' read data from the source workbook
'.Range("c42").Formu1a = wb.Worksheets(s).Range("l2").Formula & "+" wb.Worksheets(s).Range("N2").Formula
'.Range("d42").Formula = wb.Worksheets(s).Range("A20").Formula
    .Range("c54").Formula = wb.Worksheets(s).Range("f20").Formula
    .Range("d54").Formula = wb.Worksheets(s).Range("c4").Formula
  End With
  wb.Close False ' close the source workbook without saving any changes
  Set wb = Nothing ' free memory
  Application.ScreenUpdating = True ' turn on the screen updating
End Sub

=COUNTIF(myChecks, "a")

This is used by check boxes and then adds up all the check in F20

[DonkeyOte]

Are you saying you want to copy the value and not the formula ?

.Range("c54").Value = wb.Worksheets(s).Range("f20").Value

[James580]

Yes just the value

[jhp580]

Solved Thank you,

I tried to do the edit and Go Adv and solved but couldn't find it

[VBA Noob]

I assume you couldn't mark it as solved as you're signed in as a different user.

e.g James580 started the thread and you answered as jhp580.

I've marked it solved for you but if you're not one in the same person then James580 let me know.

VBA Noob