Zamenjava vsebin celic (stolpcev)

[pero978]

Živjo,

Imam eno vprašanje.

Je možnost zamenjati vsebine celic? Na primer v A1=x, A2=, B1=z;B2=h. Je možno zamenjati vsebino stolpca A z B in obratno?

hvala
lp

[admin]

Skopirajte stolpec A v stolpec C in potem pobrišite stolpec A.

[pero978]

Hvala za odgovor.

Ni pa kaksne funkcije, ki bi to naredila?

hvala
lp

[admin]

Ne, funkcija pa ne more narediti kaj takšnega...

[pero978]

Živjo

Sub Swap()
Dim cellVal
cellVal = ActiveCell.Value
ActiveCell.Value = ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(0, 1).Value = cellVal
End Sub

se da ta makro kako dopolniti, da bi zamenjalo na območju (npr,. stolpec a in b), ker sedaj zamenja samo v dveh označenih celicah.

Hvala
Lp

[admin]

Recimo takole. Območje popravite, tako kot ga želite (namesto A1:A10 napišite drugo območje...).

Koda: Izberi vse

Sub Swap()
  Dim cellVal, cell

  For Each cell In Range("a1:A10")
    cellVal = cell.Value
    cell.Value = cell.Offset(0, 1).Value
    cell.Offset(0, 1).Value = cellVal
  Next
End Sub

[pero978]

car hvala.

Lp