Todella alkeellinen ongelma makrossa, mutta en tähän löytänyt apua Excelin ohjeista taikka täältä keskustelustakaan.
Sarakkeen A riveillä on joko numero "040", "045" tai "050" ja pitäisi saada kopioitua oheinen kaava VAIN niille riveille joiden solussa A on merkki. Kun tulee tyhjä rivi niin sillä rivillä tai siitä alaspäin ei olisi solussa B mitään kaavaa.
Sub numerot()
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=""040"",""1"",IF(RC[-1]=""045"",""2"",IF(RC[-1]=""050"",""3"","""")))"
Range("B1").Select
End Sub
Sarakkeen A riveillä on joko numero "040", "045" tai "050" ja pitäisi saada kopioitua oheinen kaava VAIN niille riveille joiden solussa A on merkki. Kun tulee tyhjä rivi niin sillä rivillä tai siitä alaspäin ei olisi solussa B mitään kaavaa.
Sub numerot()
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=""040"",""1"",IF(RC[-1]=""045"",""2"",IF(RC[-1]=""050"",""3"","""")))"
Range("B1").Select
End Sub
Vastaukset 1
Vanhimmat
olla näin , joku muu voi sitten kertoa parempia tapoja...
Sub numerot()
Dim rivit As Integer
rivit = Range("A65536").End(xlUp).Row
For i = 1 To rivit
If Cells(i, 1) "" Then
Cells(i, 2).FormulaR1C1 = "=IF(RC[-1]=""040"",""1"",IF(RC[-1]=""045"",""2"",IF(RC[-1]=""050"",""3"","""")))"
End If
Next i
End Sub