Excel VBA help

[kyz0]

Ljudi, imam jednu stvar koja mi se čini poprilično jednostavna, za nekoga tko je "doma" u VBA-u.

Dakle, imam ovakvu tablicu:

 A | B 
/C | D 
/E | F  
 G | H 
/I | J  
 K | L

Iz nje moram pronaći sve redove koji u sebi imaju znak "/" i ćelije iz tog reda prebaciti u red iznad, na prva slobodna mjesta, te onda taj red obrisati.

Gornji primjer bi nakon apliciranja macroa izgledao ovako:

A | B | /C | D | /E | F
G | H | /I | J 
K | L

Hvala unaprijed ako netko ima vremena

[dema6]

Ako ti jos uvijek treba ...

Sub pcex()
Dim rng As Range
Dim i As Integer

Selection.CurrentRegion.Select

For Each rng In Selection
If InStr(rng.Text, "/") > 0 Then
Range(Cells(rng.Row, 1), Cells(rng.Row, 1).End(xlToRight)).Select
Selection.Copy
i = Cells(rng.Row - 1, 1).End(xlToRight).Column
Cells(rng.Row - 1, i + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
rng.EntireRow.Delete
End If

Next

End Sub

Samo selektiraj prvu celiju di trebas sortiranje,
također pretpostavka je da se krece od prve columne ... ako ne javi pa editiram kod