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

Ennek a témakörnek tartalma 6 hozzászólás, 2 résztvevő. Utolsó frissítés:  horvimi 1 hónap, 1 hét telt el.

7 bejegyzés megtekintése - 1-7 / 7
  • Szerző
    Bejegyzés
  • #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

    #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: 1 hónap, 1 hét telt el- horvimi.
    #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

    #7788

    horvimi
    Adminisztrátor

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

    #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

    #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! 🙂

    #7791

    horvimi
    Adminisztrátor

    Na, akkor ez is megvan Oszikám 🙂

7 bejegyzés megtekintése - 1-7 / 7

Be kell jelentkezni a hozzászóláshoz.