Numerojen siirto

Numeroita

Ongelmana on saada siirrettyä 6 numeroa, hiirtä napasauttamalla numeron päällä. Eli numerot on samalla rivillä vierekkäin ja haluaisin ne pari riviä alemmas siihen järjestykseen, kun olen niitä klikannut. Miten tällaisen saisi toteutettua?

2

221

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Muokkaa sopivaksi

      koodi taulukon moduuliin...
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      On Error GoTo virhe
      Application.EnableEvents = False
      If Not Intersect(Range("C3:H3"), Target) Is Nothing Then
      If Target = "" Then GoTo virhe
      If Range("C3").Offset(2, 0) = "" Then
      Target.Copy Destination:=Range("C3").Offset(2, 0)
      Else
      Target.Copy Destination:=Range("C3").Offset(2, 10).End(xlToLeft).Offset(0, 1)
      End If
      Target = ""
      End If
      virhe:
      Application.EnableEvents = True
      End Sub

      • numeroita

        toimii mainiosti


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

    Luetuimmat keskustelut

    1. Hetken jo luulin, että en ikävöi sinua koko aikaa

      Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r
      Ikävä
      35
      7001
    2. JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!

      Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t
      Kiuruvesi
      24
      5950
    3. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      101
      3145
    4. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      556
      2948
    5. V*ttuu että mä haluan sua

      Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!
      Ikävä
      60
      2707
    6. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      57
      2313
    7. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      34
      2226
    8. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      33
      2094
    9. Sattuma ja muutama väärinkäsitys

      vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul
      Ikävä
      32
      1853
    10. Ei ois kyllä kivaa

      Jos miestä ei kiinnostais ollenkaan minun seura. Aina huitelis ties missä tai olis omassa seurassaan. Kaikki muu ois kiv
      Ikävä
      7
      1441
    Aihe