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!
Kiitos vastanneille!
Vastaukset 6
Vanhimmat
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
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 Sub
Ei 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
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.. :P
Klikkaa 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
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ä.. ???