Ú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]

• #407 Gh0sT addikt lapa #406

  Új Válasz 2005-06-08 22:16:03 #407

  Ú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

  

  Gh0sT

  addikt

  válasz lapa #406 üzenetére

   

  Private Sub Workbook_SheetChange(ByVal Sh As Object, _
          ByVal Source As Range)

  
  
  Ezzel éred el azt, hogy minden egyes cellamódosuláskor vizsgálódjon? A ''béla'' nevű sheet nagyon ötletes ha nem lenne érték az A1-ben!

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