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
2272
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
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
toimii mainiosti