Moi
Kuinkahan pystyy isoon taulukkoon automatisoida esim. 5:n tyhjän rivin lisäyksen arvon vaihtuessa. Eli esim:
Heinonen
Heinonen
Leinonen
Leinonen
Eli nimien väliin 5 tyhjää riviä, kuinkahan onnistuu?
Kuinkahan pystyy isoon taulukkoon automatisoida esim. 5:n tyhjän rivin lisäyksen arvon vaihtuessa. Eli esim:
Heinonen
Heinonen
Leinonen
Leinonen
Eli nimien väliin 5 tyhjää riviä, kuinkahan onnistuu?
Vastaukset 1
Vanhimmat
moduuliin...
nyt lisää 5 riviä sarakkeen G nimien muuttuessa, muuta sopivaksi
Sub lisääRivit()
Range("G1").Select
Do Until ActiveCell = ""
If ActiveCell.Offset(1, 0) = "" Then Exit Sub
If ActiveCell = ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Select
Else
Rows(ActiveCell.Row 1 & ":" & ActiveCell.Row 5).Insert
ActiveCell.Offset(6, 0).Select
End If
Loop
End Sub
Keep EXCELing
@Kunde