PC Ekspert Forum - Excel VBA help

PC Ekspert Forum (https://forum.pcekspert.com/index.php)

- Web dizajn, programiranje i ostalo (https://forum.pcekspert.com/forumdisplay.php?f=39)

- - Excel VBA help (https://forum.pcekspert.com/showthread.php?t=246940)

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

Dakle, imam ovakvu tablicu:

Code:

 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:

Code:

A | B | /C | D | /E | F

G | H | /I | J 

K | L

Hvala unaprijed ako netko ima vremena :)

Ako ti jos uvijek treba ...

Code:

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