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

• #20934 alfa20 senior tag

  Új Válasz 2014-03-14 09:51:18 #20934

  Ú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

  

  alfa20

  senior tag

  sziasztok,

  Olyan makrót tudok készíteni ami megkérdezi melyik oszlop(ok)ból szeretném törölni a nullákat és szépen kitörli?

  A törlésre a makrót létrehoztam, de azt nem tudom, hogy esetleg lehetne egy felugró ablak ami megkérdi az oszlop nevét és azt teszi a megfelelő helyre
  pl.:

  felugró üzen:
  Adja meg az oszlopot: "textszöveg"

  makróban meg ezekbe a sokrokba be teszi a megadott oszlopot:

  $oszlp = "textszöveg"
  Columns("$oszlp:$oszlp").Select
  ActiveSheet.Range("$oszlp" & "I1":$oszlp" & usor).AutoFilter Field:=1, Criteria1:="0"
  Range("$oszlp" & "I3").Select

  nem próbáltam de biztos nem ilyen egyszerű, meg ilyen felugró ablakokat nem sokat késztetem még.

  esetleg a végén egy yes/no ablak, ami megkérdezni van e még oszlop, az igennel vissza menne a makró elejére a nem-re meg Sub End. de ez azt hiszem már nekem is menne

  csere makróm:
  Sub nulla_csere()
  
  Dim usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  Columns("I:I").Select
  Selection.AutoFilter
  ActiveSheet.Range("I1:I" & usor).AutoFilter Field:=1, Criteria1:="0"
  Range("I3").Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.ClearContents
  Selection.AutoFilter
  Range("A1").Select
  End Sub

  [ Szerkesztve ]

  "Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

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