Millaisella koodilla saan nappulaa painamalla kahden solun tiedot vaihtumaan keskenään?
Eli solun 1 tiedot soluun 2 ja solun 2 tiedot soluun 1 - yhdellä painalluksella?
Kiitos =)
Eli solun 1 tiedot soluun 2 ja solun 2 tiedot soluun 1 - yhdellä painalluksella?
Kiitos =)
Vastaukset 4
Vanhimmat
Tuo vaihtaa aktiivisen solun ja sen viereisen solun arvot keskenään.
vaikka näin.
Public Sub VaihdaArvot()
Dim solu As Range
Dim a As Variant, b As Variant
Set solu = ActiveCell
a = solu.Value
b = solu.Offset(0, 1).Value
solu.Offset(0, 1).Value = a
solu.Value = b
Set solu = Nothing
End Sub
Kiitos neuvosta, mutta ajatuksenani oli, että minulla olisi kymmenen solua - joiden arvot pitäisi vaihtaa päikseen toisen kymmenen solun ryhmän kanssa.
Ts. minulla on päällä aamuvuorossa olevat kirjattu kymmeneen eri soluun ja näiden alla samojen yksiköiden iltavuorolaiset kymmenessä solussa rinnakkain. Haluaisin, että jokaisen yksikön aamu- ja iltavuorolainen vaihtaisivat yhdellä napin painalluksella paikkaa.
Kiitos =)
No tuo vaihtaa valitulta alueelta viereisten solujen tiedot.
Public Sub VaihdaArvot()
Dim solu As Range
Dim a As Variant, b As Variant
If Selection.Columns.Count > 1 Then
MsgBox "Voit valita vain yhden sarakkeen"
Exit Sub
End If
For Each solu In Selection
a = solu.Value
b = solu.Offset(0, 1).Value
solu.Offset(0, 1).Value = a
solu.Value = b
Next solu
End Sub
Nii ja jos ne on päällekkäin ja niit on kymmenen niin tuohon offsetiksi tulee offset(10,0);), mut sen kait jo tajusitkin.