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
86
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
Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,1393877Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv3362792Ulkoistin makuaistini Yleisradiolle
Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,12219Sanna on pakottaja, domina
Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k452073Skodan hankintaan painostaminen toi potkut
Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll141803No onneks ei tartte sit olla
Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....111595Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua
Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle1471321- 931232
Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä
Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu901053- 541031