Fout in aangepaste code ?

danny147 · 13 jan 2013

Beste,

In de code die ik aangepast heb, krijg ik steeds een foutmelding --> zie rood gekleurd.

Kunnen jullie mij helpen waar het probleem zich schuilt ?

Code:

Sub Uitvoeren_weekplanning()
Application.ScreenUpdating = False
Application.SheetsInNewWorkbook = 13
Workbooks.Add

ActiveWorkbook.SaveAs "D:\Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx"

Dim bestandopen
 bestandopen = Dir("D:\Danny\*")
    Do Until bestandopen = ""
      If bestandopen = "" Then Exit Do
        Workbooks.Open "D:\Danny\" & bestandopen
      With ActiveWorkbook.Sheets(1)
       .Range("B1:k" & .Cells.SpecialCells(xlLastCell).Row).Copy _
       Workbooks("Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1)
      End With
        Application.DisplayAlerts = False
        Workbooks(bestandopen).Close True
      bestandopen = Dir
Loop
           
    With Workbooks("Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx")
     With .Sheets(1)
        On Error Resume Next
            .Range("K2:K13000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        On Error GoTo 0
            .Range("B3:K13000").Sort Key1:=Range("C2"), Order1:=xlAscending
              Workbooks.Open "D:\Weekplanning.xlsx"
                Workbooks("Weekplanning.xlsx").Sheets("Blad1").Range("A1").CurrentRegion.Copy .Range("AA1")
           For i = 1 To .UsedRange.Rows.Count 'rijen
                    For j = 1 To 11 'kolommen
                    .Cells(i, j) = RTrim(.Cells(i, j))
                    .Cells(i, 9) = Split(.Cells(i, 9))
                    .Cells(i, 8) = Split(.Cells(i, 8))
                Next j
                Next i
            For Each cdt In .Columns(9).SpecialCells(2)
                cdt.Value = Split(cdt.Value)
                If cdt Like "##-##-####" Or cdt Like "##-#-####" Or cdt Like "#-#-####" Or cdt Like "#-##-####" Then
                cdt.Value = DateValue(cdt)
                cdt.NumberFormat = "dd-mm-yyyy"
                End If
                Next cdt
               .Range("B2:K" & .Cells.SpecialCells(11).Row).AutoFormat Format:=xlRangeAutoFormatClassic1
               .Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
               .Columns.AutoFit
            End With
      Workbooks("Weekplanning.xlsx").Close True
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True

    Dim cl      As Range
    Dim C       As Variant
    Dim Rij     As Long
    
Application.ScreenUpdating = False
 sq = "Roepnaam" & "|" & "Machine" & "|" & "Omschrijving" & "|" & "Werkorder" & "|" & "Status" & "|" & "OnderhoudsType" & "|" _
 & "BeginTijdstipGepland" & "|" & "EindTijdstipGepland" & "|" & "CapacitaitsgroepID" & "|" & "Werkvoorbereider" & "|"
              
[COLOR="#FF0000"][B]For Each cl In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)[/B]  [/COLOR]

If cl > 0 Then
       Set C = .Range("A2:L15").Find(cl, , xlValues, xlWhole)
       If Not C Is Nothing Then
    firstAddress = C.Address
    Do
    kolom = Mid(C.Address, 3, 1)
    Select Case kolom
    
 Case "A"
    With Sheets("Blad2").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad2")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad2").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "B"
    With Sheets("Blad3").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad3")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad3").Columns("E:K").HorizontalAlignment = xlCenter
    End With
      
 Case "C"
    With Sheets("Blad4").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad4")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad4").Columns("E:K").HorizontalAlignment = xlCenter
    End With
      
 Case "D"
    With Sheets("Blad5").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad5")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad5").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "E"
    With Sheets("Blad6").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad6")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad6").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "F"
    With Sheets("Blad7").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad7")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad7").Columns("E:K").HorizontalAlignment = xlCenter
        Sheets("Blad1").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "G"
    With Sheets("Blad8").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad8")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad8").Columns("E:K").HorizontalAlignment = xlCenter
        Sheets("Blad1").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "H"
    With Sheets("Blad9").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad9")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad9").Columns("E:K").HorizontalAlignment = xlCenter
    End With

    
 Case "I"
    With Sheets("Blad10").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad10")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad10").Columns("E:K").HorizontalAlignment = xlCenter
    End With

 Case "J"
    With Sheets("Blad11").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad11")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad11").Columns("E:K").HorizontalAlignment = xlCenter
    End With

 Case "K"
    With Sheets("Blad12").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad12")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad12").Columns("E:K").HorizontalAlignment = xlCenter
    End With

    
 Case "L"
    With Sheets("Blad13").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad13")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad13").Columns("E:K").HorizontalAlignment = xlCenter
    End With
        End Select
        Set C = .Range("A2:L15").FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
     End If
   End If
   If Not cl Is Nothing Then
naam = cl
   End If
  Next cl

For i = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Rows.Count To 2 Step -1
If .Cells(i, 3) > 0 Then
       Set C = .Range("A2:L15").Find(.Cells(i, 3), , xlValues, xlWhole)
       If Not C Is Nothing Then
     .Cells(i, 3).Offset(, -2).Resize(, 11).Delete shift:=xlUp
   End If
  End If
 Next i
For i = .Range("I2:I" & .Cells(Rows.Count, 10).End(xlUp).Row).Rows.Count To 2 Step -1
If .Cells(i, 10) = "726.EW" Then .Cells(i, 1).Resize(, 11).Delete shift:=xlUp
 Next i
End With
 Dim wrksht As Worksheet
    For Each wrksht In Worksheets
      wrksht.Columns.AutoFit
    Next wrksht
    For i = 1 To 14
        Sheets("Blad" & i).Name = Choose(i, "Maandag Controle", "Maandag Onderhoud", "Dinsdag Controle", "Dinsdag Onderhoud", "Woensdag Controle", "Woensdag Onderhoud", "Donderdag Controle", "Donderdag Onderhoud", "Vrijdag Controle", "vrijdag Onderhoud", "Zaterdag Controle", "zaterdag Onderhoud")
    Next
    For x = 1 To 14
        Sheets(Choose(x, "Maandag Controle", "Maandag Onderhoud", "Dinsdag Controle", "Dinsdag Onderhoud", "Woensdag Controle", "Woensdag Onderhoud", "Donderdag Controle", "Donderdag Onderhoud", "Vrijdag Controle", "vrijdag Onderhoud", "Zaterdag Controle", "zaterdag Onderhoud")).Range("A2").AutoFilter
    Next
 Windows("Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx").Activate
 With Application
    .ScreenUpdating = True
    .SheetsInNewWorkbook = 3
    .Save
    .Close True
 End With
End Sub

Groetjes Danny. :thumb:

edmoor · 13 jan 2013

Waarom niet ook even de foutmelding erbij vermelden?

danny147 · 13 jan 2013

Beste edmoor

Zie bijlage.

Groetjes Danny. :thumb:

HierEnNu · 13 jan 2013

Volgens mij verwijst .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row) niet naar een blad, dus zoiets als sheets(1).Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).

Demeter · 13 jan 2013

Denk dat HierEnNu op de helft zit, hij vergeet de 2e punt in je regel welke een fut geeft, de punt voor Cells.
Probleem zit hem in de toewijzing van je Range en Cells functies.
Bij beide mis je een werkbladnaam of er staat een punt te veel (zie rode puntjes onder).

Code:

For Each cl In [COLOR="#FF0000"].[/COLOR]Range("C2:C" & [SQL][/SQL][COLOR="#FF0000"].[/COLOR]Cells(Rows.Count, 3).End(xlUp).Row)

Er zijn drie mogelijkheden:
- Maak er een with functie omheen
- zet er een werkbladnaam voor
- haal beide punten weg, code wordt dan wel alleen uitgevoerd op je geactiveerde tabblad.

Succes.

snb · 13 jan 2013

iets anders:

Code:

Sub tst()
    For i = 1 To 14
      MsgBox WeekdayName((2 + i + (i Mod 2 = 0)) \ 2, , 2) & Choose(1 + i Mod 2, " onderhoud", " controle")
    Next
End Sub

danny147 · 13 jan 2013

Beste,

Geen van alle antwoorden lukt tot nu toe.
Die snb zal ik later bekijken als alles werkt.

Daarom zal ik de vroegere code hier plaatsen die wel werkt.

Deze wil ik aanpassen als volgt:

1- Alles in xlsx format
2- Naam van bestand moet nu dit zijn --> ActiveWorkbook.SaveAs "D:\Weekplanning " & Format(Date, "d-mm-yyyy") & ".xls"
3- Gegevens staan --> Dir("D:\Danny\*")
4- Lijst is terug te vinden op "D:\Weekplanning.xlsx" in bereik A2:L15 ipv AA1...
5- De tabbladen moeten volgende namen hebben, Maandag Controle - Maandag Onderhoud - Dinsdag Controle enz... tem Zaterdag Onderhoud.

Code:

Sub Uitvoeren_naar_AA_Kranen_origineel()
Application.ScreenUpdating = False
Application.SheetsInNewWorkbook = 28
Workbooks.Add

ActiveWorkbook.SaveAs "D:\LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls"

Dim bestandopen
 bestandopen = Dir("D:\Danny\*")
    Do Until bestandopen = ""
      If bestandopen = "" Then Exit Do
        Workbooks.Open "D:\Danny\" & bestandopen
      With ActiveWorkbook.Sheets(1)
       .Range("B1:k" & .Cells.SpecialCells(xlLastCell).Row).Copy _
       Workbooks("LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1)
      End With
        Application.DisplayAlerts = False
        Workbooks(bestandopen).Close True
      bestandopen = Dir
Loop
           
    With Workbooks("LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls")
     With .Sheets(1)
        On Error Resume Next
            .Range("K2:K13000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        On Error GoTo 0
            .Range("B3:K13000").Sort Key1:=Range("C2"), Order1:=xlAscending
              Workbooks.Open "D:\Lijst_LK's.xls"
                Workbooks("Lijst_LK's.xls").Sheets("Blad1").Range("AA1").CurrentRegion.Copy .Range("AA1")
           For i = 1 To .UsedRange.Rows.Count 'rijen
                    For j = 1 To 11 'kolommen
                    .Cells(i, j) = RTrim(.Cells(i, j))
                    .Cells(i, 9) = Split(.Cells(i, 9))
                    .Cells(i, 8) = Split(.Cells(i, 8))
                Next j
                Next i
            For Each cdt In .Columns(9).SpecialCells(2)
                cdt.Value = Split(cdt.Value)
                If cdt Like "##-##-####" Or cdt Like "##-#-####" Or cdt Like "#-#-####" Or cdt Like "#-##-####" Then
                cdt.Value = DateValue(cdt)
                cdt.NumberFormat = "dd-mm-yyyy"
                End If
                Next cdt
               .Range("B2:K" & .Cells.SpecialCells(11).Row).AutoFormat Format:=xlRangeAutoFormatClassic1
               .Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
               .Columns.AutoFit
            End With
      Workbooks("Lijst_LK's.xls").Close True
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True

    Dim cl      As Range
    Dim C       As Variant
    Dim Rij     As Long
    
Application.ScreenUpdating = False
 sq = "Roepnaam" & "|" & "Machine" & "|" & "Omschrijving" & "|" & "Werkorder" & "|" & "Status" & "|" & "OnderhoudsType" & "|" _
 & "BeginTijdstipGepland" & "|" & "EindTijdstipGepland" & "|" & "CapacitaitsgroepID" & "|" & "Werkvoorbereider" & "|"
           
With Sheets("Blad7")
  .Range("A2") = "726.MEC"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37

 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, Criteria1:="718.1", Operator:=xlOr, Criteria2:="718.2"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad7").Range("A3")
              End With
       .AutoFilter 9, Criteria1:="718.B1", Operator:=xlOr, Criteria2:="718.B2"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad7").Range("C1500").End(xlUp).Offset(0, -2)
              End With
       .AutoFilter 9, Criteria1:="718.ME"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad7").Range("C2000").End(xlUp).Offset(0, -2)
                Sheets("Blad7").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
          End With
          End With
With Sheets("Blad8")
  .Range("A2") = "718.ELE"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, Criteria1:="718.AB", Operator:=xlOr, Criteria2:="718.CD"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad8").Range("A3")
              End With
       .AutoFilter 9, Criteria1:="718.EL"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad8").Range("C1000").End(xlUp).Offset(0, -2)
                Sheets("Blad8").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
          
          End With
With Sheets("Blad9")
  .Range("A2") = "718.EXT"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, "718.EXT"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad9").Range("A3")
                Sheets("Blad9").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
With Sheets("Blad10")
  .Range("A2") = "726.KO"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, "726.KO"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad10").Range("A3")
                Sheets("Blad10").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
With Sheets("Blad11")
  .Range("A2") = "726.EW"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, "726.EW"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad11").Range("A3")
                Sheets("Blad11").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
With Sheets("Blad12")
  .Range("A2") = "718_VAST"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 9, "718_VAST"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad12").Range("A3")
                Sheets("Blad12").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad15")
  .Range("A2") = "Alg. Contr. van alle onderd."
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, Criteria1:="*nische controle", Operator:=xlOr, Criteria2:="=*trole van alle onderd*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad15").Range("A3")
              End With
       .AutoFilter 3, Criteria1:="*trole Sifa"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad15").Range("C500").End(xlUp).Offset(0, -2)
                Sheets("Blad15").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
          
          End With
 With Sheets("Blad16")
  .Range("A2") = "Herstellingen na controle"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, Criteria1:="=*lingen na con*", Operator:=xlOr, Criteria2:="=*sther*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad16").Range("A3")
              End With
       .AutoFilter 3, Criteria1:="=*ling na con*", Operator:=xlOr, Criteria2:="=*ling voor con*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad16").Range("C500").End(xlUp).Offset(0, -2)
              End With
       .AutoFilter 3, Criteria1:="=*ling naar con*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad16").Range("C500").End(xlUp).Offset(0, -2)
                Sheets("Blad16").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        End With
        
        End With
 With Sheets("Blad17")
  .Range("A2") = "Controle tonnenkoppelingen"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37

 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "*trole tonnenkop*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad17").Range("A3")
                Sheets("Blad17").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad18")
  .Range("A2") = "Stroomafnemers"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "*van de str*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad18").Range("A3")
                Sheets("Blad18").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad19")
  .Range("A2") = "Veiligheidsfunties"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "*Veiligheidsfunctie*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad19").Range("A3")
                Sheets("Blad19").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad20")
  .Range("A2") = "Reinigen motoren"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, Criteria1:="=*entie rei*", Operator:=xlOr, Criteria2:="=*entie fir*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad20").Range("A3")
                Sheets("Blad20").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
       
        End With
 With Sheets("Blad21")
  .Range("A2") = "Isolatiemetingen"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "*na reini*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad21").Range("A3")
                Sheets("Blad21").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
              
        End With
 With Sheets("Blad22")
  .Range("A2") = "Smeren"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, Criteria1:="smering", Operator:=xlOr, Criteria2:="=*eren en ol*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad22").Range("A3")
              End With
       .AutoFilter 3, Criteria1:="=*eren alle ond*", Operator:=xlOr, Criteria2:="=*eren van alle ond*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad22").Range("C500").End(xlUp).Offset(0, -2)
              End With
       .AutoFilter 3, Criteria1:="=*eren : wie*", Operator:=xlOr, Criteria2:="=*eren : mot*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad22").Range("C500").End(xlUp).Offset(0, -2)
              End With
       .AutoFilter 3, Criteria1:="=*meren tak*", Operator:=xlOr, Criteria2:="=*eren : mot*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad22").Range("C500").End(xlUp).Offset(0, -2)
                Sheets("Blad22").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        End With

With Sheets("Blad23")
  .Range("A2") = "APVV"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "APVV*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad23").Range("A3")
                Sheets("Blad23").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad24")
  .Range("A2") = "APVG"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "APVG*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad24").Range("A3")
                Sheets("Blad24").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
 With Sheets("Blad25")
  .Range("A2") = "CPB"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, "CPB*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad25").Range("A3")
                Sheets("Blad25").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
              
        End With
 With Sheets("Blad26")
  .Range("A2") = "Curatief"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 6, "CURATIEF"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad26").Range("A3")
                Sheets("Blad26").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
              
        End With
 With Sheets("Blad27")
  .Range("A2") = "In voorbereiding"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 5, "In voorbereiding"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad27").Range("A3")
                Sheets("Blad27").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
        
        End With
For Each cl In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)

  If cl > 0 Then
       Set C = .Range("AA2:AM200").Find(cl, , xlValues, xlWhole)
       If Not C Is Nothing Then
    firstAddress = C.Address
    Do
    kolom = Mid(C.Address, 3, 1)
    Select Case kolom
    
 Case "A"
    With Sheets("Blad2").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad2")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad2").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "B"
    With Sheets("Blad3").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad3")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad3").Columns("E:K").HorizontalAlignment = xlCenter
    End With
      
 Case "C"
    With Sheets("Blad4").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad4")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad4").Columns("E:K").HorizontalAlignment = xlCenter
    End With
      
 Case "D"
    With Sheets("Blad5").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad5")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad5").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "E"
    With Sheets("Blad6").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad6")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad6").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "L"
    With Sheets("Blad13").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad13")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad13").Columns("E:K").HorizontalAlignment = xlCenter
        Sheets("Blad1").Columns("E:K").HorizontalAlignment = xlCenter
    End With
    
 Case "M"
    With Sheets("Blad14").Cells(Rows.Count, 3).End(xlUp)
        If cl <> naam Then
          Rij = .Offset(1).Row
         .Offset(1, -2).Resize(, 11).Interior.ColorIndex = 37
         .Offset(1, -2) = cl
         .Offset(1, -1).Resize(, 10) = Split(sq, "|")
        End If
       End With
    With Sheets("Blad14")
     .Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 11) = cl.Offset(, -1).Resize(, 11).Value
     .Range(.Cells(Rij, 1), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 11)).Sort .Cells(Rij - 1, 10), , , , , , , xlYes
        Sheets("Blad14").Columns("E:K").HorizontalAlignment = xlCenter
    End With
        End Select
        Set C = .Range("AA2:AM200").FindNext(C)
        Loop While Not C Is Nothing And C.Address <> firstAddress
     End If
   End If
   If Not cl Is Nothing Then
naam = cl
   End If
  Next cl

For i = .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Rows.Count To 2 Step -1
If .Cells(i, 3) > 0 Then
       Set C = .Range("AA2:AM200").Find(.Cells(i, 3), , xlValues, xlWhole)
       If Not C Is Nothing Then
     .Cells(i, 3).Offset(, -2).Resize(, 11).Delete shift:=xlUp
   End If
  End If
 Next i
For i = .Range("I2:I" & .Cells(Rows.Count, 10).End(xlUp).Row).Rows.Count To 2 Step -1
If .Cells(i, 10) = "726.EW" Then .Cells(i, 1).Resize(, 11).Delete shift:=xlUp
 Next i
End With
 Dim wrksht As Worksheet
    For Each wrksht In Worksheets
      wrksht.Columns.AutoFit
    Next wrksht
    For i = 1 To 28
        Sheets("Blad" & i).Name = Choose(i, "Rest", "AA-Kranen", "A-Kranen", "B en C - Kranen", "Takels", "LK45xx", "718.MEC", "718.ELE", "718.EXT", "726.KO", _
            "726.EW", "718_VAST", "Dummy", "Klein gereedschap", "A.C. van alle onderdelen", "Herstellingen na controle", "Tonnenkoppelingen", "Stroomafnemers", _
            "Veiligheidsfuncties", "Reinigen motoren", "Isolatiemetingen", "Smeren", "APVV", "APVG", "CPB", "Curatief", "In voorbereiding", "Samenvatting")
    Next
    For x = 1 To 27
        Sheets(Choose(x, "Rest", "AA-Kranen", "A-Kranen", "B en C - Kranen", "Takels", "LK45xx", "718.MEC", "718.ELE", "718.EXT", "726.KO", _
            "726.EW", "718_VAST", "Dummy", "Klein gereedschap", "A.C. van alle onderdelen", "Herstellingen na controle", "Tonnenkoppelingen", "Stroomafnemers", _
            "Veiligheidsfuncties", "Reinigen motoren", "Isolatiemetingen", "Smeren", "APVV", "APVG", "CPB", "Curatief", "In voorbereiding")).Range("A2").AutoFilter
    Next
 With Workbooks("LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls")
 Workbooks.Open "D:\Lijst_LK's2.xls"
    With .Sheets("Samenvatting")
        Workbooks("Lijst_LK's2.xls").Sheets(1).Range("B2:F35").Copy .Range("B2")
        .Columns("A:F").ColumnWidth = 27.86
    End With
 Workbooks("Lijst_LK's2.xls").Close False
 Windows("LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls").Activate
 With Application
    .ScreenUpdating = True
    .SheetsInNewWorkbook = 3
    .Save
'    .Close True
 End With
 End With
End Sub

Hopelijk hebben jullie nu wat meer informatie om te zoeken.
Zijn er nog vragen, dan hoor ik het graag.

Groetjes Danny. :thumb:

snb · 13 jan 2013

Code:

sub M_snb()
  c00="D:\Danny\"
  c01=dir(c00 & "*.xls")

  Workbooks.Add.SaveAs "D:\LK-Kranen " & Format(Date, "dd-mm-yyyy") & ".xls"

  Do Until c01=""
    with getobject(c00 & c01)
      .sheets(1).Range("B1").currentregion.resize(10).Copy workbooks("LK-Kranen " & Format(Date, "dd-mm-yyyy") & ".xls").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1)
      .Close False
    end with 
    c01 = Dir
   Loop
 
end sub

danny147 · 13 jan 2013

Beste snb

Dit gaat niet lukken zo !

HSV heeft hieraan gewerkt, maar heeft nog niet gerageerd.

Ben zelf nog aan het zoeken, misschien kom ik eruit.

Alvast bedankt.

Groetjes Danny. :thumb:

HSV · 13 jan 2013

Ik ben net weer thuis, en zie je vraag staan.

@HierEnNu & @Demeter zitten in de goede richting.
Bovenaan de code staat:

Code:

With Workbooks("Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx")
     With .Sheets(1)

Ergens boven de rode regel staat één keer:

Code:

End With

Dus de rode regel verwijst naar:

Code:

With Workbooks("Weekplanning " & Format(Date, "d-mm-yyyy") & ".xlsx")

En niet naar een blad.
Dus hoort er weer een:

Code:

With Sheets(?????)

Boven de rode regel.
Wil je naar dat betreffende werkbook verwijzen?, zet dan een punt voor Sheets(?????)

Code:

With .Sheets(??????)

snb · 13 jan 2013

Hoezo niet ?

HSV · 13 jan 2013

Doordat "With .Sheets(":

Code:

With Workbooks("LK-Kranen " & Format(Date, "d-mm-yyyy") & ".xls")
With .sheets

Opgeheven wordt door:

Code:

End With

en de rode regel daar onderstaat met punten.

Code:

[SIZE=2]For Each cl In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)[/SIZE]

Maar dat hoef ik aan jou normaal niet uit te leggen. :d

snb · 13 jan 2013

@HSV

Je refereert toch niet aan mijn suggestie, terwijl ik veronderstelde dat Danny dat wel deed.

HSV · 13 jan 2013

Excuses @snb, ik dacht dat jij naar mij refereerde.

Jij, met zoveel kennis........., ik vond het al raar, maar ik kon natuurlijk ook ergens overheen hebben gekeken.

snb · 14 jan 2013

@HSV,

Als ik niet op de vragensteller reageer, doe ik dat met de @HSV aanhef. Reakties op de vragensteller krijgen zo'n 'deftige' aanhef niet.
Mooi dat het misverstand uit de lucht is

Overigens klopt je analyse van de code.... , daarvoor gebruiken we blijkbaar dezelfde criteria

danny147 · 14 jan 2013

Beste snb

Sorry voor de late reactie, ben net thuis en zie je commentaar.

Uw code vervangt dit alles of moet het ergens tussen geplaatst worden ?

Nu nog eens je stukje code proberen in post #6

@ Beste HSV

Heb verwezen naar een blad en het probleem is verholpen

Code:

[COLOR="#FF0000"]With Sheets("Blad1")[/COLOR]
For Each cl In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)

Groetjes Danny :thumb:

Demeter · 14 jan 2013

Zit hem vaak in de punten en de kommas

Danny, kan je hem op opgelost zetten

danny147 · 14 jan 2013

Beste Demeter

Daar wacht ik voorlopig nog mee, tot wanneer ik een reactie van snb heb gekregen.

@ Beste snb,

Uw meerwaarde in post #6 zie ik het nut niet van in.
Wat doet het trouwens eigenlijk ?

Groetjes Danny. :thumb:

Fout in aangepaste code ?

danny147

Terugkerende gebruiker

edmoor

Inventaris

danny147

Terugkerende gebruiker

Bijlagen

HierEnNu

Gebruiker

Demeter

Verenigingslid

snb

Verenigingslid

danny147

Terugkerende gebruiker

snb

Verenigingslid

danny147

Terugkerende gebruiker

HSV

Inventaris

snb

Verenigingslid

HSV

Inventaris

snb

Verenigingslid

HSV

Inventaris

snb

Verenigingslid

danny147

Terugkerende gebruiker

Demeter

Verenigingslid

danny147

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy