Vuoden pahin

Saukki

Miten ihmeessä saan 4 riviä ylemmässä solussa olevan viittauksen (keskellä kaavaa ja viittaa toiselle sheetille) haettua keskelle uutta kaavaa.

Eli E21 solussa on on kaava:

=SIIRTYMÄ(Ruokapäiväkirja!$D$27;325;0;1;1)

ja haluaisin saada siitä solun E26 kaavaan viittauksen $D$352 (D27:stä 325 alas) alla esitetyllä tavalla

=SIIRTYMÄ(Ruokapäiväkirja!$D$352;25;0;1;1)

Mitä ihmettä pitäisi tehdä, jotta homma luonnistuisi automaattisesti. En tiedä pystyykö Excelillä hakemaan toisessa solussa olevia kaavoja tai niiden osia (suorat arvot ja kaavojen tuloksethan siirtyvät helposti), mutta jos joku tietää niin NYT SAA PÄTEÄ!!!

1

503

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kuten arvelitkin ei Excelillä voi hakea toisesta solusta pelkkiä kaavoja- ainostaan kaavojen tuloksia.
      VBA:lla asia on kuitenkin todella helppo tehdä. Pari tekstifunktiota ja tulosten yhdistäminen...

      Tein nyt oman käyttäjän makron - liitä se moduuliin. Siihen soluun mihin haluat kaavan kopioituvan kirjoitat

      =TeeKaava(E21;25)
      missä Solu=E21 ja Siirtymä=25 (esimerkkisi mukaan), eli Solu on se solu, josta kaava kopioidaan(E21) ja Siirtymä(25) on siirtymä uudesta kaavasolusta. Kaava toimii vaikka vaihdat solunosoitetta esim.
      Ruokapäiväkirja!D27--->Päiväkirja!D27

      :-)

      moduuliin...

      Function TeeKaava(Solu As Range, Siirtymä As Integer) As String
      Dim teksti As String
      Dim eka As Integer
      Dim toka As Integer
      Dim osoite As String
      Dim osoite1 As String
      Dim osoite2 As String
      Dim siirto As Integer
      On Error Resume Next
      Application.Volatile
      teksti = Solu.FormulaLocal

      eka = InStr(1, teksti, "!")
      toka = InStr(1, teksti, ";")
      'alkuperäinen offsetsolu
      osoite1 = Mid(teksti, eka 1, toka - eka - 1)

      eka = toka 1
      toka = InStr(eka, teksti, ";")
      siirto = Mid(teksti, eka, toka - eka)
      'uusi offsetsolu
      osoite = Range(osoite1).Offset(siirto, 0).Address

      eka = InStr(1, teksti, "(")
      toka = InStr(1, teksti, "!")
      'alkuperäinen offsetsolu
      osoite2 = Mid(teksti, eka 1, toka - eka)

      TeeKaava = "=SIIRTYMÄ(" & osoite2 & osoite & ";" & Siirtymä & ";0;1;1)"
      End Function

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

    Luetuimmat keskustelut

    1. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      195
      6818
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      159
      2006
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1668
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1370
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      55
      1218
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      49
      1083
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      99
      1045
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      6
      967
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      251
      934
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      909
    Aihe