Makrojen ja VB koodin ristiriidat?

outoa

Excelin makrossa on tällainen koodin pätkä:
Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select

Eli tämä valitsee BCDEFHJKL sarakkeet. Minkä takia VB koodi ei ymmärrä tätä valintaa vaan alkaa heti bugittamaan? Haittana siis se, että ei voi käyttää ohjausobjektien nappeja vaan ne täytyy tehdä lomake työkalurivin napeilla. Ärsyttävää. Vai onko VB:n koodiin olemassa yhtä yksinkertaista valintakoodia?

4

466

Äänestä

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      kyllä toi toimii ihan ok, jos excelissä VBA koodia väsäät-jos VB:llä niin sitten eri juttu.

      Private Sub CommandButton1_Click()
      Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select
      End Sub


      voit kokeilla lisätä koodiin taulukon aktivoinnin niin silloin ainakin toimii...

      esim.
      Private Sub CommandButton1_Click()
      Worksheets("Sheet1").Activate
      Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select
      End Sub

      • outo

        Aina tyssää koodi tuohon

        Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select

        kohtaan. Mikäli sitä yrittää ohjausobjekteissa käyttää.

      • outoa

        Eli tuohan toimii jos nappi on samalla välilehdellä, mutta jos haluaa esim. vaihtaa välilehteä ja sieltä tehdä valinnan niin se herkeää toimimasta.

        Private Sub CommandButton1_Click()
        Sheets("taul2").Select
        Range("A:A,B:B").Select
        End Sub

        Tuo koodin pätkä ei toimi, mutta jos ottaa Sheets("taul2").select rivin pois niin kyllä se sitten valitse taulukosta A ja B sarakkeen.

      • ....
        outoa kirjoitti:

        Eli tuohan toimii jos nappi on samalla välilehdellä, mutta jos haluaa esim. vaihtaa välilehteä ja sieltä tehdä valinnan niin se herkeää toimimasta.

        Private Sub CommandButton1_Click()
        Sheets("taul2").Select
        Range("A:A,B:B").Select
        End Sub

        Tuo koodin pätkä ei toimi, mutta jos ottaa Sheets("taul2").select rivin pois niin kyllä se sitten valitse taulukosta A ja B sarakkeen.

        ActiveSheet.Range("A:A,B:B").Select

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kylypylä mätänee

      Kuka sotki uimaaltaan bakteereilla
      Suomussalmi
      69
      1042

    2. Tässä ovat Elämäni biisi -vieraat lauantai 3.10. - Yksi vieras on todellinen suomalaisten suosikki

      Jos menisit Elämäni biisiin, mikä olisi elämäsi biisi ja miksi? Elämäni biisi tulee suorana lähetyksenä Tampereelta. K
      Viihde ja kulttuuri
      12
      909

    3. En voi kertoa meistä kenellekään

      Minulla on ikävä sinua mies.. Oon yrittänyt taas unohtaa, mutta silti tulet mieleeni lähes päivittäin. Eihän meitä voi o
      Ikävä
      61
      880

    4. Huomenta

      Sinulle! Olen miettinyt sinua paljon yön aikana. 🫂
      Ikävä
      62
      808

    5. Mikä kaivatullesi

      On tärkeintä elämässään?
      Ikävä
      60
      760

    6. Pelasta mut tältä tuskalta

      Jo!!!
      Ikävä
      57
      697

    7. Onko mulla vielä mahkuja saada sinut M nainen

      Sano joku prosenttiluku?
      Ikävä
      60
      617

    8. Kadutko mies sitä miten reagoit?

      ..siihen sotkuun, jonka jälkeen mikään ei ole ollut kuin ennen. 🥺
      Ikävä
      49
      617

    9. Mitä ihmettä pitäisi tapahtua

      Että me kohdataan ja saadaan tämä tilanne etenemään?
      Ikävä
      67
      596

    10. Jos mies naisen prinsessakohtelu

      on sinulle liikaa, älä valitse prinsessaa 🦋🧚🏼‍♀️👸🏼
      Ikävä
      132
      579

    11. SuMetKu konkursissa

      Asiakastiedon sivulla oli, SuMetKu asetettu konkurssiin. Tulihan se seinä vastaan lopultakin suuruudenhulluudessa.
      Suomussalmi
      20
      567

    12. Miksi olet niin hankala?

      Miksi toimit miten toimit?
      Ikävä
      50
      559

    13. Suutuin lähinnä itselleni

      Kun irl juttujen takia näyttää erittäin epätodennäköiseltä, että olisin millään tavoin toivottu henkilö sulle.
      Ikävä
      30
      555

    14. Ei voi mittään

      Tykkään sinusta, vaikka miten typerän jutun suustasi päästät😅
      Ikävä
      33
      507

    15. Hei. Ilmeisesti tässä saa unohtaa sen

      että meistä joskus jotain tulisi? M
      Ikävä
      29
      505

    16. Miksi meille jäi

      Niin huonot välit vaikka meistä kumpikaan ei ole tunteilleen mitään voinut. Ehkä se kohtalo on sitä mieltä ettei kuitenk
      Ikävä
      34
      478

    17. En usko enää

      rakkauteen.
      Ikävä
      72
      476

    18. Miten voit tykätä

      Jos samaan aikaan haluat pysyä mahdollisimman kaukana?
      Ikävä
      40
      457

    19. Tykkään sinusta

      Vaikka en vastailekaan!
      Ikävä
      17
      440

    20. Mitä sulle

      Kuuluu?
      Ikävä
      24
      439
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt