Onkohan olemassa kaavaa, joka lisäisi rivin tai sarakkeen automaattisesti jos määrättyyn soluun tulee tietty arvo?
rivin/sarakkeen lisääminen
4
422
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
Riikka Purra lupasi Suomen kansalle 1 euron bensaa, hinta nyt 2 euroa
Vasemmistolaisen Marinin hallituksen aikana bensa ei maksanut kuin 1,3 euroa litralta. Ministerin pitäisi perustuslain m1064542Suvi Lindenillä 5 366 päivän putki
Täytyy kyllä myöntää vaikka olen itsekin innokas, niin en ole tuollaiseen yli kymmenen vuoden putkeen kyennyt. Välillä o1013890Mistä se kertoo
Näin miehen pitkästä aikaa. Samantien iski sellainen paineen tunne rintaan, sitä ei ole ollut vuosiin. Ja nyt olen siitä363539- 513250
- 432952
Nyt on sanottava että sattuu kipeästi
Jos, sinä aikana kun olen kaivannut ja odottanut sinua ja olet tiennyt sen, niin jos valitsit toisen miehen. Katsot minu182539Rakkaalle miehelle
Terveiset rakas. Ikävä on edelleen. Suru valtaa sydämen, kun en saa lähestyä sinua. En saa vastauksia, en soittoa, viest222442- 232166
UMK-juontajakaksikon pari isoa "mokaa" ihmetyttää - Mitäs tykkäsit Syköstä ja Uotisesta juontajina?
Tänä vuonna UMK-lavalla nähtiin artistien lisäksi juontajakolmikko Jorma Uotinen, Sami Sykkö ja Jasmin Beloued. Juontami171819Jussi "Mestari" Halal-ahon sotilasarvo?
Minä vuonna Jussille myönnettiin sotilasansiomitali? Vai myönnettiinkö Jussille sotilasansiomitalia lainkaan?351735