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

• #10478 Delila_1 veterán gigi183 #10474

  Új Válasz 2011-06-13 07:44:56 #10478

  Ú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 gigi183 #10474 üzenetére

  Az Nts oszloptól balra lévő hármat fixen írod be, vagy valami képlet adja az értéküket?
  Ha fixen, az alábbi egyszerű kis makró megoldja a lenullázást.

  A makrót ahhoz a laphoz kell rendelned, amelyiken ezt a műveletet végre akarod hajtani. Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra kell bemásolnod.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 5 And Target = 0 Then
  Dim sor%, oszlop%
  sor% = Target.Row: oszlop% = Target.Column
  Range(Cells(sor, oszlop - 2), Cells(sor, oszlop - 1)) = ""
  End If
  Application.EnableEvents = True
  End Sub

  A csatolt képen nem látszik, milyen betűjelű oszlopban van az Nts. A makróban úgy vettem, hogy az E (ötödik) oszlop tartalmazza. Bemásolás után az If Target.Column = 5 And Target = 0 Then sorban írd át az 5-öt a megfelelő értékre.

  A füzetedet másként, makróbarátként kell mentened, a kiterjesztése meg fog változni xlsm-re. Az Excelben is módosítanod kell a biztonsági beállításokat, ha eddig nem volt makrót tartalmazó füzeted.

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