Izvedba makroja samo v izbranih celicah

Pomoč pri izdelavi makrov
Odgovori
80ris
Prispevkov: 6
Pridružen: Sr Avg 22, 2007 7:21 am

Izvedba makroja samo v izbranih celicah

Odgovor Napisal/-a 80ris »

Rad bi izvedel makro samo v izbranih celicah:

koda:

Koda: Izberi vse

Sub Vstavljanje_številk()

For Each i In Selection

'stolpec "O"

If Cells(i, "I") = "Ob" Then Cells(i, "O") = "0"
If Cells(i, "I") = "Iz" Then Cells(i, "O") = "1"
If Cells(i, "I") = "Ok" Then Cells(i, "O") = "2"
If Cells(i, "I") = "Ne" Then Cells(i, "O") = "3"
If Cells(i, "I") = "Rez" Then Cells(i, "O") = "4"
If Cells(i, "I") = "Re" Then Cells(i, "O") = "5"
If Cells(i, "I") = "Ob" Then Cells(i, "O") = "6"
If Cells(i, "I") = "Rev" Then Cells(i, "O") = "7"
If Cells(i, "I") = "Om" Then Cells(i, "O") = "9"

Next i

End Sub


Nekako ne gre tole, izbral bi recimo 50 vrstic in bi mi napisalo v stolpec O ustrezne številke, samo v izboru ne drugje na listu.

lp
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Hja malce ste narobe zapisali makro.

Pravilno bi bilo

Koda: Izberi vse

Sub Vstavljanje_številk()

Dim i As Range

For Each i In Selection
    'stolpec "O"
    If Range("I" & i.Row) = "Ob" Then Range("O" & i.Row) = "0"
    If Range("I" & i.Row) = "Iz" Then Range("O" & i.Row) = "1"
    If Range("I" & i.Row) = "Ok" Then Range("O" & i.Row) = "2"
    If Range("I" & i.Row) = "Ne" Then Range("O" & i.Row) = "3"
    If Range("I" & i.Row) = "Rez" Then Range("O" & i.Row) = "4"
    If Range("I" & i.Row) = "Re" Then Range("O" & i.Row) = "5"
    If Range("I" & i.Row) = "Ob" Then Range("O" & i.Row) = "6"
    If Range("I" & i.Row) = "Rev" Then Range("O" & i.Row) = "7"
    If Range("I" & i.Row) = "Om" Then Range("O" & i.Row) = "9"
Next i
End Sub
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
80ris
Prispevkov: 6
Pridružen: Sr Avg 22, 2007 7:21 am

Odgovor Napisal/-a 80ris »

Dela, najlepša hvala....

lp
Odgovori