Napravila sam zajednički radnu knjigu u kojoj rade tri korisnika. Pomoću UserForme unose podatke u datoteke od kojih je jedna zajednička. Međutim u toj zajedničkoj radnoj knjizi se događa sukob u kojem je ponuđena opcija prihvati moje ili tuđe. Nakon te odluke neprihvaćeni unos nestaje. A ja bih htjela da se taj unos nekud pospremi i čim slijedeća ćelija bude slobodna da upiše taj spremljeni unos. Našla sam na forumima ovaj kod, ali ne znam ga točno pročitati pa bi molila pomoć.Dali je to ono što ja tražim i što on točno radi i kako da ga uvrstim u svoj kod.
ne znam dali sam dobro objasnila
pronađeni kod je
Function GetNextRow() As Long
Dim lngNextRow As Long
lngNextRow = Val(Dir("C:\*RowIdentity.txt"))
Name "C:\" & Dir("C:\*RowIdentity.txt") As "C:\" & lngNextRow + 1 & "RowIdentity.txt"
GetNextRow = lngNextRow
End Function
Sub Test()
MsgBox (GetNextRow)
End Sub
hvala
pozdrav