Miten tehdä excelillä sellainen lista/luettelo, jossa on esim rivit 2-12 sarakkeessa A ja kun listaan lisää rivin 13, rivi 2 poistetaan/piilotetaan/siirretään muualle taulukkoon ja rivistä 13 tulee rivi 12, rivistä 12 rivi 11 jne eli ns. juokseva lista?
Kiitos vastanneille!
Juokseva luettelo?
Qwertity
6
62
Vastaukset
- Kundepuu
ko. taulukon moduuliin...
vaihada kopioita sarake ja aloitus solu sopivaksi- nyt alkaa C2
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo virhe
Application.EnableEvents = False
If Not Intersect(Target, Range("A13")) Is Nothing Then
Range("A2").Copy Range("C65536").End(xlUp).Offset(1, 0)
Range("A3:A13").Copy Range("A2")
Range("A13") = ""
End If
virhe:
Application.EnableEvents = True
End Sub
KEEP EXCELing
@Kunde - Qwertity
Kiitos Kunde! :)
Mutta miksi saan ilmoituksen "object required" kun yritän makroa suorittaa ..? ;)
Mikähän nyt neidillä menee metsään..?
Yritin siis liittää painikkeeseen Taul1.Kuukausi -nimisen makron;
Sub Kuukausi()
Application.EnableEvents = False
If Not Intersect(Target, Range("A13")) Is Nothing Then
Range("A1").Copy Range("C65536").End(xlUp).Offset(1, 0)
Range("A2:A13").Copy Range("A1")
Range("A13") = ""
End If
End SubEi siihen makroa tartte....
jos haluat, että toimii Taul1, niin kopioi allealeva Taul1 moduulin ja se on siinä...
aina kun A13 muuttuu, suorittaa automaattisesti makron.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo virhe
Application.EnableEvents = False
If Not Intersect(Target, Range("A13")) Is Nothing Then
Range("A1").Copy Range("C65536").End(xlUp).Offset(1, 0)
Range("A2:A13").Copy Range("A1")
Range("A13") = ""
End If
virhe:
Application.EnableEvents = True
End Sub
"object required" virhe tulee siitä, kun sulla ei ole määritelty Dim Target As Range ...
KEEP EXCELing
@Kunde
- Qwertity
Kiitos taas!
*nauraa jo itselleen*;
miten saan tuon taulukon moduuliin..? ;)
Saisinko ihan kädestä pitäen ohjeistusta..
Vain onkohan tuo excel jotenkin fragmentointunut kun ei suostu yhteistyöhön.. :PKlikkaa haluamasi taulukon valitsinta tilarivillä hiiren oikealla. Aukeavasta valikosta sitten valitse Näytä koodi ja kopioi oikealla olevaan valkeaan tilaan koodisi.
Tallenna.
Aina kun muutat taulukossa A13 arvoa koodi toimii...
Keep EXCELing
@Kunde- Qwertity
Näin teinkin jo aiemmin, vaan kaiken migreenin ja turhan käpistelyn jälkeen tulin siihen tulokseen, että kyse on tuosta mysteerisestä Dim Target -systeemistä, mitä en kyllä heti googlettamallakaan käsittänyt miten se määritellä.. ???
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t3912450V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!914271Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1094012- 513648
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳533351- 1163304
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul482235- 392143
Keskusta hajoaa Palojärvi lähtee
Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul271968On sillä rääpyä
Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva131651