visual basic script

[VenA]

Als het een vast bereik is dan lijkt mij dat niet zo moeilijk.
.Range("A" & sr & ":M43").ClearContents

 

[moensk]

thanks

 

[moensk]

V&A
aangepast en getest doch tekst verdwijnt nog
test file in bijlage

Sub VenA()
  Dim ar, arl, j As Long, t As Long, sr As Long, c00 As String
  ar = Sheets("data").ListObjects(1).DataBodyRange
  sr = 7
  With Sheets("Planlijst")
    .Range("A" & sr & ":M43").ClearContents
    For j = 1 To UBound(ar)
      If ar(j, 5) = .Range("C1").Value And ar(j, 26) = "D" And ar(j, 25) = "DUS" Then
        c00 = c00 & j & "|"
        t = t + 1
      End If
    Next j
    .Cells(sr, 2).Resize(t, 10) = Application.Transpose(Application.Index(ar, Split(c00, "|"), Application.Transpose(Array(1, 28, 29, 30, 31, 6, 6, 7, 12, 3))))
    With .Cells(sr - 1, 1).CurrentRegion
      .Sort .Cells(1, 2), , .Cells(1, 7), , , , , xlYes
      For j = .Rows.Count To 3 Step -1
        If .Cells(j, 2) <> .Cells(j - 1, 2) Then .Cells(j, 2).EntireRow.Insert
      Next j
    End With
  End With
End Sub

 

[VenA]

Nee hoor. Het verschuift alleen iedere keer. Best gek als je rijen gaat invoegen toch?

 

[moensk]

hoe kan ik ervoor zorgen dat de tekst welke in rij 45 staat dat deze niet verwijdert (overschreven) wordt ?
de planning komt nooit verder dan rij 43 namelijk

 

[VenA]

Probeer eerst eens te begrijpen wat de code doet.

 

[moensk]

probleem met sorteer volgorde (Kolom H) per wagen (kolom B)
de indeling en opmaak loopt goed maar hij zou de tijd oplopend moeten sorteren in kolom H

Sub VenA()
' verwijderen rijen 7 tem 160
    Rows("7:160").Select
    Selection.delete Shift:=xlUp
    Range("C14").Select
'opbouwen planlijst
  Range("C1").Select
    Selection.Copy
    Range("A6").Select
    ActiveSheet.Paste
    
  Dim ar, arl, j As Long, t As Long, sr As Long, c00 As String
  ar = Sheets("data").ListObjects(1).DataBodyRange
  sr = 7
  With Sheets("Planlijst")
    .Range("A" & sr & ":M200").ClearContents
    For j = 1 To UBound(ar)
      If ar(j, 5) = .Range("C1").Value And ar(j, 26) = "D" And ar(j, 25) = "DUS" Then
        c00 = c00 & j & "|"
        t = t + 1
      End If
    Next j
    .Cells(sr, 2).Resize(t, 12) = Application.Transpose(Application.Index(ar, Split(c00, "|"), Application.Transpose(Array(1, 28, 29, 30, 31, 9, 6, 7, 12, 3, 18, 8))))
    With .Cells(sr - 1, 1).CurrentRegion
      .Sort .Cells(1, 2), , .Cells(1, 7), , , , , xlYes
      For j = .Rows.Count To 3 Step -1
        If .Cells(j, 2) <> .Cells(j - 1, 2) Then .Cells(j, 2).EntireRow.Insert
      Next j
    End With
  End With

End Sub

 

[VenA]

Wat is het kolomnummer van kolom H?

.Sort .Cells(1, 2), , .Cells(1,[COLOR="#FF0000"][SIZE=4] 8[/SIZE][/COLOR]), , , , , xlYes

 

[moensk]

thanks VenA, heb er zeker 5 keer overlezen, prut in de ogen

 

[huijb]

De originele vraag lijkt verdwenen te zijn. Ik kan niet zien wat er gebeurt is. Daarom beheer gevraagd om even mee te kijken.