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
74
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
Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa6516973Mitä tapahtunut
Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?414694HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?
https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa2982676- 1381954
Ökyrikas Kurkilahti mussuttaa veroistaan
Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.1321569Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?
Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon3961512- 161429
Jos tämän vaan sulkee ja avaa 5 vuoden päästä
Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E101293Lakea konkurssiin. Asukkaat menettävät asuntonsa
Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki191155mahdollista, että olet ollut iltavuorossa
Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k101079