makro sekoilee sarakkeiden kanssa

tai oikeastaan käyttäjä kirjoitti:

On ongelma makron kanssa. Piti lisätä 2 saraketta lisää ja näin ollen aakkosmakroa käytettäessä sarakkeiden arvot heittää häränpyllyä sarakkeille HIJK, joihin tulee #VALUE

En ole itse tehnyt tätä, joten on vähän hankala tehdä muutoksia. Makro on tämmönen:

Sub aakkosta()

'kuinka monta ruoka-ainetta?
i = 6
Do While Sheets("Ruoka").Cells(i, 1) "" Or Sheets("Ruoka").Cells(i 1, 1) ""
i = i 1
Loop
i = i - 1

' aakkosta
Range(Cells(6, 1), Cells(i, 7)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A6").Select

'ruoka-aineiden energiat vähän fiksummin
Range("F6").FormulaR1C1 = "=IF(RC[-1],RC[-3]*RC[-1],"""")"
Range("G6").FormulaR1C1 = "=IF(RC[-2],RC[-3]*RC[-2],"""")"
ActiveSheet.Range(Cells(6, 6), Cells(i, 6)).FillDown
ActiveSheet.Range(Cells(6, 7), Cells(i, 7)).FillDown

'kuinka monta ruoka-ainetta?
i = 6
Do While Sheets("Ruoka").Cells(i, 1) "" Or Sheets("Ruoka").Cells(i 1, 1) ""
i = i 1
Loop
i = i - 1

' Combobox osoittamaan oikeisiin ruokiin.
Sheets("Ruoka").ComboBox1.ListFillRange = "$A$6:$A$" Format(i)

Mites pitäisi tehdä?

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä