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

• #8247 perfag aktív tag motinka #8244

  Új Válasz 2010-09-23 08:04:22 #8247

  Ú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

  

  perfag

  aktív tag

  válasz motinka #8244 üzenetére

  A + jelnem jó. A cellatartalmat Delete-tel törlöd és üres lesz, ennyi elég.

  Tegnap volt a hosszú napom, ma reggelről egy megoldás:
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
  If Not Application.Intersect(Target, Range("C2:C20")) Is Nothing Then
  If ActiveCell.Value = Empty Then ActiveCell.FormulaR1C1 = "=IF(OFFSET(RC,0,-2)=""SC"",""SC"",""-"")"
  End If
  Application.EnableEvents = True
  End Sub
  A VBA "adat" lapjára kell tenned.

  Műxik, egy apró szépséghibával: Delete, Enter ezzel kitörlöd a cellát, pontosabban üres lesz, majd vissza kell rá kattintani, akkor beírja a képletet. Most mennem kell dolgozni, de du. megnézem mi a francért nem csinálja ezt meg elsőre, a Delete, Enter-re.
  Már 2-3 éve nem programozok, berozsdáltam.

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