[EXCEL] wstawianie nowego wiersza i VBA

[kinde]

witam
pierwsze pytanko proste chyba - czy jest skrót klawiaturowy do wstawienia
pustego wiersza nad wierszem aktywnym (coś jak PrawaMysz, Wstaw..., Cały
Wiersz) ?

a drugie, bardziej skomplikowana sprawa, potrzebuję makro, które zrobi coś
takiego:

w komórce A5 mam np. wartość 231-13-25-555 i chciałbym teraz żeby nad A5
dodały się nowe wiersze z warością w komórce A4 = 231-13-25
w komórce A3 = 231-13, a w komórce A2 = 231
analogicznie gdyby w komórce A10 było 777-633-1786-21, to w nowo dodanej
komórce A9 byloby 777-633-1786, w A8 = 777-633, i tak dalej

ważne by makro nie kasowało komórek tylko dodawało nowe wiersze i w nie
insertowało wartości
czy jest to możliwe do zrobienia?

[sweet_dreams]

Witam,

ten kod powinien Cie zadowolic :)

Sub PodzielWierszWstaw()
Dim dlugosc As Integer
Dim licznik As Integer
Dim CoPodziel As String

dlugosc = Len(ActiveCell.Value)

For licznik = dlugosc To 1 Step -1
CoPodziel = ActiveCell.Value
If Mid(CoPodziel, licznik, 1) = "-" Then
Selection.Insert Shift:=xlDown
ActiveCell.Value = Left(CoPodziel, InStr(licznik, CoPodziel,
"-", 1) - 1)
End If
Next licznik

End Sub

wstaw go do nowego modulu. aby go wykonac musisz najpierw zaznaczyc
komórke z wartoscia, która chcesz "podzielic" i wywolac kod

pozdrawiam,
sweet_dreams

[sweet_dreams]

aaa zapomnialem o Twoim pierwszym pytaniu:
nie znam zadnego skrótu, który by wstawial nowy wiersz. ale zawsze
mozesz nagrac makro i przypisac mu skrót klawiszowy, a raczej do
skrótu przypisasc marko

pozdrawia,
sweet_dreams