Ongelmana on saada siirrettyä 6 numeroa, hiirtä napasauttamalla numeron päällä. Eli numerot on samalla rivillä vierekkäin ja haluaisin ne pari riviä alemmas siihen järjestykseen, kun olen niitä klikannut. Miten tällaisen saisi toteutettua?
Numerojen siirto
Numeroita
2
214
Vastaukset
Muokkaa sopivaksi
koodi taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo virhe
Application.EnableEvents = False
If Not Intersect(Range("C3:H3"), Target) Is Nothing Then
If Target = "" Then GoTo virhe
If Range("C3").Offset(2, 0) = "" Then
Target.Copy Destination:=Range("C3").Offset(2, 0)
Else
Target.Copy Destination:=Range("C3").Offset(2, 10).End(xlToLeft).Offset(0, 1)
End If
Target = ""
End If
virhe:
Application.EnableEvents = True
End Sub- numeroita
toimii mainiosti
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1172174En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois961308Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3121013Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...81936- 83906
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.85886On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44680Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks248667Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33660- 50654