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

• #2246 lúzer veterán lapa #406

  Új Válasz 2007-06-12 12:52:00 #2246

  Ú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

  

  lúzer

  veterán

  válasz lapa #406 üzenetére

  Ezt itt láttam de nem működik:
  
  Private Sub Workbook_SheetChange(ByVal ActiveSheet As Object, ByVal Source As Range)
  If ActiveSheet.Cells(1, 1).Text = '''' Then
  ActiveSheet.Name = ''béla''
  Else
  If ActiveSheet.Cells(1, 1).Text <> ActiveSheet.Name Then
  ActiveSheet.Name = ActiveSheet.Cells(1, 1).Text
  End If
  End If
  End Sub
  
  Mi a gond?
  képként is itt van, sortörés miatt:
  [link]

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