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
230
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
Immu otti pataan
Olen pettynyt, hänen piti viedä Stagalaa kuin litran mittaa - mutta kuinka kävikään? Voi hemmetti sentään.... Ääääääh!2283188Moikka rakas
Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa162149Malmin tapaus on järkyttävä
Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi4371464Tykkäätkö halaamisesta?
Minä en. Tänään tuttava, jolle olen maininnut että en pidä halaamisesta, yritti halata minua ja olen vieläkin ihan raivo1221376Näetkö feminismin uhkana
Vai mahdollisuutena kun deittailet naisia? Mitä miehet mieltä feminismistä?2161351Hinduilu on suurta eksytystä
tekosyvällinen tarina uppoaa moneen. Harhautusta todellisen Jumalan yhteydestä. Kuka haluaisi nähdä sielunvaelluksessa5211242- 1091228
- 1121212
- 46964
- 66954