Telefonszámunk: 1-472-0679

[Resolved] Oszlopok törlése változó címmel

Kezdőlap › Fórumok › Excel programozás › [Resolved] Oszlopok törlése változó címmel

Topic Resolution: Resolved
7 bejegyzés megtekintése - 1-7 / 7
  • Szerző
    Bejegyzés
  • 2020-10-16-08:11 #7777
    delila
    Felhasználó

      Jó reggelt!

      Öt oszlopot kell törölnöm, de változó, hogy melyik ez az 5. Van egy változóm, ami megadja a törlés helyét, ez az alap.
      Az oszlopokat alap-1 -től alap+3 -ig kell törölni, vagyis ha alap=13, akkor az L:P oszlop törlendő.
      Most egy ciklussal törlöm, de biztosan van rá jobb módszer.

      For oszlop = alap + 3 To alap - 1 Step -1
   Columns(oszlop).Delete Shift:=xlToLeft
Next

      Ez így elég bénán néz ki.
      Kérlek, segítsetek.

      Delila

      2020-10-17-08:23 #7784
      horvimi
      Adminisztrátor

        Szia!

        Én a Columns("alap-1:alap+3") mintat probalnam.
        Számból szöveget a CStr fuggvennyel csinalj.

        Imre

        • A hozzászólás módosításra került: 4 years, 1 month telt el-horvimi.
        2020-10-17-09:48 #7787
        delila
        Felhasználó

          Szia Imi!

          Kipróbáltad? Nekem nem jön össze.
          Érdekes, hogy sorok törlésénél elfogadja a Rows(alap - 1 & ":" & alap + 3).Delete formát.

          Kati

          2020-10-17-11:56 #7788
          horvimi
          Adminisztrátor

            Nem próbáltam, főzök 🙂
            De ha szöveggé alakítod a számokat, akkor se megy?

            2020-10-17-13:05 #7789
            horvimi
            Adminisztrátor

              Na, megnéztem.
              valóban, az oszlopoknál csak betűkkel működik a nyomorult.
              De nem hagyjuk magunkat!ű

              Ez alapján már menni fog!

              Columns(3).Resize(, 5).EntireColumn.Select

              Imre

              2020-10-17-13:36 #7790
              delila
              Felhasználó

                Az instrukciód alapján kiválóan működik a változóval is.

                alap = 13
Columns(alap - 1).Resize(, 5).Delete Shift:=xlToLeft

                Köszönöm! 🙂

                2020-10-17-15:20 #7791
                horvimi
                Adminisztrátor

                  Na, akkor ez is megvan Oszikám 🙂

                • Szerző
                  Bejegyzés
                7 bejegyzés megtekintése - 1-7 / 7
                • Be kell jelentkezni a hozzászóláshoz.