Arvon hakeminen taukosta, jos se merkitään x:llä

Kaavahukassa

Taulukko on A1-J10 (=sata ruutua). Jokaisessa solussa on luku. Jokin näistä soluista merkataan esim. x:llä ja merkatun solun arvo olisi tarkoitus saada siirtymään soluun A1 toiselle välilehdelle.
Onko tämä ylipäänsä mahdollista ja jos on niin millä kaavalla?
Kiitos jo etukäteen, jos tää saadaan toimimaan!

6

71

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Tämmöinen

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo Err
         Application.Calculation = xlManual
         Application.EnableEvents = False
         If (Not Intersect(Target, Range("A1:N10")) Is Nothing) And (UCase(Target.Value) = "X") Then
            Application.Undo
            Worksheets("Sheet2").Cells(Target.Row, Target.Column) = Target
            Target = "X"
         End If
      Err:
         Application.EnableEvents = True
         Application.Calculation = xlAutomatic
      End Sub

      • Tämä_vielä

        Tuo makro tulee siis kyseisen sheetin moduliin.


    • kaavahukassa

      Nyt loppu taidot. Neuvotko äkkinäiselle selkeämmin? Kiitos!

      • Tämmöinen

        Aluksi: Valintanauhan Developer välilehti ei oletettavasti näy Excelissä, joten ensin pitänee painaa hiiren oikealla nauhaa ja valita kohta Customize the Ribbon. Merkitse avautuvan ikkunan oikeanpuoleisesta ruudusta valituksi myös kohta Developer.

        Developer välilehden vasemmasta reunasta pääsee Visual Basiciin. Avautuvan ikkunan vasemmassa reunassa on kohta Project Explorer, jossa pitäisi näkyä Excel-tiedostosi nimi: VBAProject (Book1) tms. Jos sen edessä on paina sitä. Tuplaklikkaa sen välilehden nimeä (Sheet1), johon haluat tuon toiminnan liitettävän. Oikealle aukeaa tyhjä ohjelmaikkuna. Liimaa yllä oleva makro siihen.

        Muuta tarvittaessa nimeä "Sheet2". Ja, koska en lukenut kunnolla kysymystä, vielä seuraavat:
        Range("A1:N10") pitäisi olla Range("A1:J10")
        Rivi Worksheets("Sheet2").Cells(Target.Row, Target.Column) = Target Pitäisi olla Worksheets("Sheet2").Cells(1,1) = Target Ylempi rivi ei kopioisi solun sisältöä soluun A1, vaan samaan kohtaan kuin se oli alkuperäisellä sivulla.


    • helpompi tapa...
      taulukkovalitsimesta alhaalla tilarivillä hiiren oikealla klikkaa taulukkoa ja avautuvasta valikosta näytä koodi ja liitä koodi sitten oikealle tyhjään tilaan...

    • Kaavahukassa

      Tämä toimii! Kiitos paljon!

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

    Luetuimmat keskustelut

    1. 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
      33
      11805
    2. 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
      7511
    3. 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ä
      82
      3949
    4. Nolointa ikinä miehelle

      On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai
      Ikävä
      106
      3839
    5. Katsoitko mua yhtään

      Kun nähtiin 🥺.
      Ikävä
      44
      3462
    6. Outoa että Trump ekana sanoutui irti ilmastosopimuksesta

      kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.
      Maailman menoa
      611
      3237
    7. Eli jos toisen hiki haisee ns. omaan nenään siedettävältä

      Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳
      Ikävä
      52
      3232
    8. Mikä sinua eniten

      Huolestuttaa tässä tilanteessa?
      Ikävä
      91
      3098
    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
      2033
    10. Koska olet viimeksi nähnyt ikävän kohteesi?

      Ja mitä tarjoat hänelle kun koputtaa oveesi?
      Ikävä
      36
      1970
    Aihe