verwijderen rijen

[tepke]

hoi

met de onderstaande code maak ik mijn sheet leeg in de betreffende reeks. echter ergens in het programma voeg ik ook nog cel belijning toe.

    Range("A7:Z5000").Select
   Selection.ClearContents

met de bovenstaande code blijft de belijning staan als ik de sheet opnieuw vul met minder rijen. print mijn rapport een hele boel legen rijen met cel belijning
hoe kan ik deze cellen leeg krijgen? zodat als ik print alle oude meuk weg is?

groetjes

marc

 

[sylvester-ponte]

ipv ClearContents , gebruik Clear

 

[gast0660]

Hoi,

Met clear ben je alles kwijt ook formules dus oppassen!
Mischien kan je iets met volgende code
Alle rijen die leeg zijn worden gewist
Anders eventjes een vbtje posten

Sub Dotchie()
Dim i As Long 
With Application
         .Calculation = xlCalculationManual
         .ScreenUpdating = False
         For i = Selection.Rows.Count To 1 Step -1
              If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
                  Selection.Rows(i).EntireRow.Delete
              End If
         Next i

        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

Greetz

 

[sylvester-ponte]

Met clear ben je alles kwijt ook formules dus oppassen!

met ClearContents ben je ook je formules kwijt

 

[tepke]

hoi

heb het net geprobeerd met Selection.Clear maar het werkt niet krijg een bug
formules mogen ook weg alles mag weg in de range

 

[sylvester-ponte]

marc, heb je een voorbeeld bestandje waar in het mis gaat met clear ?

 

[VenA]

Probeer het eens met deze.

With Range("A7:Z5000")
    .ClearContents
    .Borders.LineStyle = xlNone
End With

 

[HSV]

Dit zou toch voldoende moeten zijn.

range("a7:z5000").clear