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

98

Äänestä

    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.

    • 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. Sun ja kaivattusi

      ikäero? Kumpi vanhempi, m vai n?
      Ikävä
      88
      1527

    2. Kesän odotuksia hyrynsalmella

      Kyllä kesällä hyrynsalmellakin on mahdollisuus osallistua kylän menoon monella tavalla . On kaunislehdon talomuseolla
      Hyrynsalmi
      10
      1400

    3. Kai sä näät

      Ku sua katson et olen aika rakastunut. Rakkaus ei vain ole aina niin yksinkertaista
      Ikävä
      78
      1323

    4. Katsotko mieluiten

      Kaivatussasi mitä?
      Ikävä
      69
      1230

    5. Mikä on ollut

      Epämiellyttävin hetki sinun ja kaivattusi romanssissa?
      Ikävä
      115
      1119

    6. Tämän hetken

      Terveiset kaivatullesi ⬇️
      Ikävä
      75
      1001

    7. Vieläkö sä toivot

      Meidän välille jotain?
      Ikävä
      69
      941

    8. Anne Kukkohovi ei myykkään pikkuhousujaan

      Kyseessä oli vain markkinointitempaus. Anne höynäytti hienosti kaikkia ja Onlyfans-tilinsä tilaajamäärä lähti jyrkkään n
      Maailman menoa
      255
      930

    9. Voi Rakas siellä

      Olet ollut mun ajatuksissa taas koko päivän. Olet ihmeellinen kertakaikkiaan ja arvostan sinua niin paljon❤️Minulla ei o
      Tunteet
      17
      880

    10. Pidätkö kaivatustasi

      Minkä vuoksi erityisesti? Mikä hänessä vetoaa?
      Ikävä
      34
      846
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt