חברים שלום,

החלטתי לנסות ולגלות מה אפשר לעשות עם excel

בכל אופן, כתבתי את הקוד הבא:

Sub cookie()
  sorting("team", Range("h2")) = 1
End Sub

Sub sorting(soog As String, startcell As Range)
  Dim length_of_list As inetger
  Dim j As Intege
  Dim temp As Integer
  Dim distance_of_list As Integer

    j = length_of_list = distance_of_list = 0

     Do
      length_of_list = length_of_list + 1
     Loop Until Range("A1").Offset(length_of_list, 0).Value <> "soog"

     Do
      distance_of_list = distance_of_list + 1
     Loop Until Range("startcell").Offset(0, -1 * distance_of_list).Value = "soog"


     Do
      If startcell.Value < startcell.Offset(j, 0).Value Then
        temp = startcell.Value
        startcell.Value = startcell.Offset(j, 0).Value
        startcell.Offset(j, 0).Value = temp
        startcell.Offset(0, 1).Value = startcell.Offset(j, -1 * distance_of_list - 1).Value
        startcell.Offset(j, 1).Value = startcell.Offset(0, -1 * distance_of_list - 1).Value
        j = j + 1
      Else
        startcell.Offset(j, 1).Value = startcell.Offset(j, -1 * distance_of_list - 1).Value
        j = j + 1
     Loop Until Range("A1").Offset(i, 0).Value <> "soog"

End Sub

שמתי אותו בתוך sheet1 בעורך VB.

כל פעם שאני לוחץ RUN, מופיעה לי השגיאה הבאה:

compile error : expected funtion or variable

מישהו יכול להגיד לי מה אני עושה לא בסדר?

תודה רבה מראש.

מהסתכלות מהירה בקוד (על אף שהניסיון שלי בVB שואף לאפס)

נראה כאילו חסר לך r בשורה:

Dim j As Intege

תיקנתי את הr.

אבל, עדיין אותה בעיה, מוציא לי הודעת שגיאה

compiler error : expected function or variable

והוא גם מסמן את הפונקציה sorting בתוך התוכנית הראשית (сookie)

  Dim length_of_list As inetger
  Dim j As Intege

בשניהם כתבת Integer בצורה לא נכונה.