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

172

Äänestä

    Vastaukset 6

    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.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      69
      1082

    2. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      64
      872

    3. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      856

    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      53
      848

    5. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      187
      832

    6. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      712

    7. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      706

    8. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      57
      690

    9. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      206
      680

    10. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      28
      624

    11. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      578

    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      42
      548

    13. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      51
      548

    14. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      169
      474

    15. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      474

    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      458

    17. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      427

    18. Makeinen, asiaa sinulle

      Minua korkeampien voimien kehotuksesta sinua pyydetään avaamaan jokin yhteys asioista keskustelemisen takia kanssani. Il
      Ikävä
      28
      393

    19. Huumekauppaako

      ”Huumekauppa johti rajuun väkivaltaan Kokkolassa – Kolme nuorta otettu kiinni, yksi epäillyistä alaikäinen”
      Kokkola
      9
      384

    20. J-mies!

      Meidän "suhde" (suhde mitä ei oikeastaan edes ole) on kielletty ja vaikea. En tiedä mihin uskot, mutta olet irl itsekin
      Ikävä
      32
      382
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt