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
      168
      6174
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      147
      1714
    3. Onhan sulla nainen parempi mieli

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

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1270
    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ä
      46
      922
    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
      28
      844
    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ä
      97
      836
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      789
    9. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      739
    10. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      221
      736
    Aihe