Loosing formulas after refresh

[HettyA]

Hello,
I'm lost and not sure how to tackle this. I'm also very new to excel. So I have a workbook that is connected to an external database (sql server). When I type in formulas (nested ifs), after refresh, I loose everything. I have tried changing the options under properties but nothing seems to be working. How can I fix this? Also, if i type anything to the cells, it doesn't accept them too.

Thanks

 

[Coding4Fun]

Sounds like maybe there is some VBA code or Data validation settings in play.

Is it a standard .xls or .xlsx file or does it maybe have a .xlsm file extension?

Also when you say "refresh" do you mean calculate the sheet or something else?

 

[HettyA]

Its .xlsm file extension. It was originally a .csv that I changed to .xlsm to enable all the formatting that I had to get done.

I set my workbook to auto refresh every few minutes, so when I add any formula to the cell, at refresh, they disappear.

 

[Coding4Fun]

Yes, .xlsm is a Macro enabled workbook meaning there is code embedded in the file.

My suspicion is there is some code in there that is removing your formulas.

I could analyze your code if you can post it.

 

[HettyA]

Option Explicit
Const sResourcePrefix As String = "RES_"

'Get Culture
Private Function GetATPUICultureTag() As String
Dim shTemp As Worksheet
Dim sCulture As String
Dim sSheetName As String

sCulture = Application.International(xlUICultureTag)
sSheetName = sResourcePrefix + sCulture

On Error Resume Next
Set shTemp = ThisWorkbook.Worksheets(sSheetName)
On Error GoTo 0
If shTemp Is Nothing Then sCulture = GetFallbackTag(sCulture)

GetATPUICultureTag = sCulture
End Function

'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
Application.Run ("fDialog")
End Sub

'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("RibbonCommand").Value
End Sub

'Callback for screentip
Public Sub GetATPScreenTip(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("ScreenTip").Value
End Sub

'Callback for Super Tip
Public Sub GetATPSuperTip(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("SuperTip").Value
End Sub

Public Sub GetGroupName(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("GroupName").Value
End Sub

'Check for Fallback Languages
Private Function GetFallbackTag(szCulture As String) As String
'Sorted alphabetically by returned culture tag, then input culture tag
Select Case (szCulture)
Case "rm-CH"
GetFallbackTag = "de-DE"
Case "ca-ES", "ca-ES-valencia", "eu-ES", "gl-ES"
GetFallbackTag = "es-ES"
Case "lb-LU"
GetFallbackTag = "fr-FR"
Case "nn-NO"
GetFallbackTag = "nb-NO"
Case "be-BY", "ky-KG", "tg-Cyrl-TJ", "tt-RU", "uz-Latn-UZ"
GetFallbackTag = "ru-RU"
Case Else
GetFallbackTag = "en-US"
End Select
End Function