Onkohan olemassa kaavaa, joka lisäisi rivin tai sarakkeen automaattisesti jos määrättyyn soluun tulee tietty arvo?
rivin/sarakkeen lisääminen
4
390
Vastaukset
- MattiJuh
Olisiko tähän kysymykseen kenelläkään vastausta, asia myös minulla ajankohtainen?
- Eevalena
Onko liian haasteellinne pähkinä? Minäkin yrittänyt opinnäytetyötni varten
ratkaisua etsiä, mutta ei ole löytynyt! Nimenomaan ko. solun alapuolelle t uo lisärvi pitäisi saada? Voiko kukaan ystävllisesti auttaa?
tosi haasteellinen ;-)
ko taulukon moduuliin...
tsekkaa nyt solua B5 ja sen arvoa 1, muuta solu ja arvot sopivaksi
koodissa hipsattuna myös rivin yläpuolelle lisäys sekä sarakkeiden lisäys vasemmalle ja oikealle.. Hipsuja muuttelemalla toimii siis joka suuntaan
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Virhe
Application.EnableEvents = False
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Target = 1 Then
'lisää rivin yläpuolelle
' Target.EntireRow.Insert
' 'lisää rivin alapuolelle
Target.Offset(1).EntireRow.Insert
'lisää sarakkeen vasemmalle
' Target.EntireColumn.Insert
' 'lisää sarakkeen oikealle
' Target.EntireColumn.Offset(0, 1).Insert
End If
End If
Virhe:
Application.EnableEvents = True
End Sub
Keep EXCELing
@Kunde- 16+1
Tuolta löytyy koodinpätkiä, jolla lisätä uusi rivi solun arvon perusteella.
http://www.ozgrid.com/forum/showthread.php?t=21558
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 892036
- 1281372
Ammuskelua taas
Keskipohjanmaa tietää kertoa että Yläpubin hujakoilla ammuskeltu lauantain vastaisena yönä.231320Juniorivalmennus Jokereissa..
Mitä hittoa siellä seurassa oikein tapahtuu?? Tämän kauden U14 ikäluokkaan on mahdutettu kaksi päävalmentajaa. Tälle kau271271- 661192
Introverttinä osastolla
Yhdellä lääkäritapaamisella hoitaja valitti lääkärille etten tee mitään muuta kuin makaan ja ulkoilen. Kävin kuitenkin s3361017- 85929
Seksikkäin asu mikä päällä olet nähnyt kaivattusi ?
Seksikkäin asu mikä yllä olet nähnyt kaivattusi ?53858- 121777
- 82766