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