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

94

    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. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      20
      5754
    2. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      550
      2119
    3. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      142
      1739
    4. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      77
      1125
    5. Mitä haluaisit nähdä

      Kaivatullasi päällä?
      Ikävä
      72
      910
    6. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      96
      904
    7. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      69
      796
    8. Kaupunki ostaa Kauppamatin

      Joutuukohan yrittäjät lähteen muualle?
      Haapavesi
      30
      754
    9. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      10
      753
    10. Kuntoportaat sai rahaa

      Kuntoportaat sai mojovan tuen. Minua vain ihmetyttää, tuleeko ne pidettyä käyttökunnossa. Televisiossa oli yksi aamu p
      Hyrynsalmi
      37
      696
    Aihe