Minulla on iso monimutkainen taulukko jossa osaan soluja tulee arvot kaavoista.
Kuinka kopioin toiseen taulukkoon sellaiset solut joiden arvo on laskettu kaavoista. Haluan siis kopioida näkyvät arvot mutta en pohjalla lymyäviä kaavoja.
Solujen arvojen kopiointi ilman kaavoja
-kuukausiraportoija-
4
6421
Vastaukset
- -namiskuukkeli-
Valitse solut jotka haluat kopioida. Kopioi ne hiirulaisen oikealla namiskuukkelilla. Valitse solualue johon haluat liittää kopioidut. Liitä hiirulaisen oikealla namiskuukkelilla mutta valitse avautuvasta ikkunasta kohta liitä määräten. Siinä ikkunasa on valikko josta voit valita haluamasi vaihtoehdon joita on useita.
Kokeiile ensin jollain huuhaa taulukolla niin huomaat että se on helppoa mutta joskus vaan ei muista eikä osaa kaikkea ja se tekee ihmisestä ihmisen eikä robottia. ; ) - 15+4
Seuraava funktio palauttaa kaavalla saadut sisällöt.
Function kaavantulos(r As Range)
f = r.Formula
v = r.Value
If (InStr(f, "=") = 1) Then
kaavantulos = v
Else
kaavantulos = ""
End If
End Function kopioi kaavasolut aktiivisesta taulukosta taulukko2 samoihin soluihin...
Sub b()
For Each solu In Cells.SpecialCells(xlCellTypeFormulas)
solu.Copy
Worksheets("Taul2").Range(solu.Address).PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub
Keep EXELing
@KundeFunction kaavantulos(r As Range)
f = r.Formula
v = r.Value
If (InStr(f, "=") = 1) Then
kaavantulos = v
Else
kaavantulos = ""
End If
End Function
turhaa testailua kun excelissä valmis funktio...
sama
Function kaavantulos2(r As Range)
If r.HasFormula Then
kaavantulos2 = r.Value
Else
kaavantulos2 = ""
End If
End Function
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu862247Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu4332140Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771442Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101420- 671313
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.
Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve1071065Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun811032Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut2571023Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa
Hurjaa on meno. Keskisarja ihan kanveesissa.2691017Sä olet epävakaa
tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all15952