Ž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
Zamenjava vsebin celic (stolpcev)
Re: Zamenjava vsebin celic (stolpcev)
Skopirajte stolpec A v stolpec C in potem pobrišite stolpec A.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zamenjava vsebin celic (stolpcev)
Hvala za odgovor.
Ni pa kaksne funkcije, ki bi to naredila?
hvala
lp
Ni pa kaksne funkcije, ki bi to naredila?
hvala
lp
Re: Zamenjava vsebin celic (stolpcev)
Ne, funkcija pa ne more narediti kaj takšnega...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zamenjava vsebin celic (stolpcev)
Ž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
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
Re: Zamenjava vsebin celic (stolpcev)
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Zamenjava vsebin celic (stolpcev)
car hvala.
Lp
Lp