Sampling improvements

metatronslove · Nov 4, 2024 · 8725137 · 8725137
1 parent f9e5fba
commit 8725137
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/Microsoft Excel/4_ms_excel-365.bas b/Microsoft Excel/4_ms_excel-365.bas
@@ -2095,14 +2095,18 @@ Function NUMEROLOG(ByVal metin As String, Optional tablo As String, Optional out
                 nesoohc = nesoohc & choosen: D = D + 1
             Else
                 SM = SM + S
+                seslit = seslit + sesli
+                sessizt = sessizt + sessiz
+                sesli = 0
+                sessiz = 0
             End If
         Next counter
     End Select
     Select Case err
     Case 0
         Select Case outas
-        Case "Sesli": NUMEROLOG = RAKAMTOPLA(sesli, 1)
-        Case "Sessiz": NUMEROLOG = RAKAMTOPLA(sessiz, 1)
+        Case "Sesli" : NUMEROLOG = RAKAMTOPLA(seslit, 1)
+        Case "Sessiz" : NUMEROLOG = RAKAMTOPLA(sessizt, 1)
         Case "tam": NUMEROLOG = SM
         Case "hepsi": NUMEROLOG = RAKAMTOPLA(SM, 0)
         Case Else
@@ -2434,6 +2438,8 @@ Function SAY(ByVal metin As String, Optional met As String, Optional stype As Va
 End Function
 Function STR2UCODE(Optional STRNG As String) As String
 	'LibreOffice Basic Kodundaki Karakterleri Excele Uygun Hale Getirmeye Çabalıyor...
+	'Paste libreoffice VBA code to first column of the table;
+	'Second column to process first column cells;
 	Dim counter, inside As Long
 	Dim addafter, tocopy, kod As String
 	inside = 0