Ta bort rader med makro

[LabanSthlm]

Hej.. jag håller på att lära mig makroprogrammering i Excel och har nu stött på ett problem. Makrot ska ta bort alla rader där det finns data i kolumn B, alltså för (rad 1 till 100): 'om cell Bi innehåller data => ta bort rad i.

 

Typ:

 

Sub testtabortrad()

'

' testtabortrad Makro

' Makrot inspelat 2006-12-15 av NikGeh'

 

i = 1

 

If i < 100 And Cells("Bi") <> 0 Then

 

Rows("i:i").Select

Selection.Delete Shift:=xlUp

i = i + 1

 

End If

End Sub

 

Hur skriver man cellen Bi? Dvs kolumn B, rad i?

 

// Niklas

 

[MH2]

[color="#0000ff"]Sub[/color] testtabortrad()
[color="#0000ff"]For[/color] i = 100 [color="#0000ff"]To[/color] 1 Step -1
[color="#0000ff"]If[/color] Range([GRÅ]"b"[/GRÅ] & i) <> [GRÅ]""[/GRÅ] [color="#0000ff"]Then[/color]
Rows(i).EntireRow.Delete
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]Next[/color] i
[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

**ed**

wopps, nu förstår jag varför du räknade "i" separat. Vi kör väl baklänges istället?

 

[inlägget ändrat 2006-12-15 17:28:58 av MH2]