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

• #18573 Mutt senior tag Hequila #18565

  Új Válasz 2013-07-22 12:53:06 #18573

  Ú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

  

  Mutt

  senior tag

  válasz Hequila #18565 üzenetére

  Hello,

  ...ha egy adott oszlop adott mezőjének értéke 0, akkor automatikusan törlődjön az az oszlop...

  Itt egy változat erre. Mintában az "A2"-es cellát figyelem.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vHely As Range
  Dim vPosition As String
  
  Set vHely = Range("A2") 'ezt a helyet figyeljük, ezt javítsd
  
  If Range(vHely.Address) <> "" And Range(vHely.Address) = 0 Then 'ha nem üres, de 0 akkor mehet a tőrlés
  Application.ScreenUpdating = False 'képernyő frissítés kikapcsol
  vPosition = Target.Address 'elmentjük a korábbi pozicíónkat
  Columns(vHely.Column).Delete 'töröljük a figyelt cella oszlopát
  Range(vPosition).Activate 'visszamegyünk az eredeti helyre
  Application.ScreenUpdating = True 'képernyő visszaállítása
  End If
  
  End Sub

  üdv.

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