Update 4_ms_excel-365.bas

metatronslove · Nov 4, 2024 · c6735e9 · c6735e9
1 parent 29cfe2a
commit c6735e9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Microsoft Excel/4_ms_excel-365.bas b/Microsoft Excel/4_ms_excel-365.bas
@@ -1590,7 +1590,7 @@ Function NUMBERS2ARAB(Optional metin As String) As String
     NUMBERS2ARAB = NA
 End Function
 Function NUMEROLOG(ByVal metin As String, Optional tablo As String, Optional outas As Variant, Optional shadda As Variant) As Variant
-    Dim SM, S, C, D, N, sesli, sessiz, err, counter, space, hrk As Integer: NUMEROLOG = 0: S = 0: N = 0: sesli = 0: sessiz = 0
+    Dim SM, S, C, D, N, sesli, sessiz, seslit, sessizt err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0 : seslit = 0 : sessizt = 0
     Dim M, nitem, nesoohc, choosen As String: nitem = "": err = 0: tablo = LCase(tablo)
     Select Case tablo
     Case "date"
@@ -2815,4 +2815,4 @@ Function WORDBYWORD(ByVal klmmetin As String, Optional tablo As Integer, Optiona
         End Select
     Next
     WORDBYWORD = content
-End Function
+End Function