Új hozzászólás Aktív témák

• #23944 Delila_1 veterán Geryson #23940

  Új Válasz 2014-10-28 14:54:57 #23944

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Geryson #23940 üzenetére

  Mint kiderült a személyes megbeszéléskor, csak a lényeg, a makró maradt le. Elnézést!

  Function JobbKotjel(cella)
  Dim b As Integer
  
  For b = Len(cella) To 1 Step -1
  If Mid(cella, b, 1) = "-" Then
  JobbKotjel = Right(cella, Len(cella) - b) * 1
  Exit Function
  End If
  Next
  End Function

Új hozzászólás Aktív témák