[Excel 2010 VBA] Update rij uit tweede sheet

[cschot]

Tweakers,

Dit script kopieert bepaalde celllen naar een andere sheet in Excel.
Als ik het script draai, pakt hij alleen de eerste 9 rijen.
Daarna moet hij wat langer zoeken, en stop hij.
Prompt: 9 rijen geupdatet.
Weet iemand hoe ik alle 910 rijen kan updaten?
Er staat na de 9e rij geen lege rij.
Als ik debug, dan geeft DestSheet.Range("AQ65536").End(xlUp).Row
waarde 910 aan.
Weet iemand raad?

code:

Sub CopySignificant()

  Dim DestSheet        As Worksheet
  Dim SrcSheet         As Worksheet
  
  Set DestSheet = Worksheets("items")
  Set SrcSheet = Worksheets("prijslijst")
  
  Dim sRow       As Long    
  Dim dRow       As Long     
  Dim sCount     As Long
  sCount = 0
  dRow = 1

  For sRow = 1 To DestSheet.Range("AQ65536").End(xlUp).Row
    

     If DestSheet.Cells(dRow, "AQ") Like SrcSheet.Cells(sRow, "A") Then
        sCount = sCount + 1
        
        SrcSheet.Cells(sRow, "B").Copy Destination:=DestSheet.Cells(dRow, "E")
        SrcSheet.Cells(sRow, "C").Copy Destination:=DestSheet.Cells(dRow, "K")
        SrcSheet.Cells(sRow, "D").Copy Destination:=DestSheet.Cells(dRow, "AT")
        SrcSheet.Cells(sRow, "D").Copy Destination:=DestSheet.Cells(dRow, "Y")
        DestSheet.Cells(dRow, "L").Value = "1004"
        dRow = dRow + 1
     End If
        
  Next sRow
  
  MsgBox sCount & " rijen geüpdatet"

End Sub

[ Voor 7% gewijzigd door cschot op 15-10-2010 16:52 ]

[Dirk]

Blijkbaar is cel A10 in de bronsheet dan niet gelijk aan cel AQ10 in de doelsheet?

[cschot]

script aangepast, hij pakt nu de eerste 13 rijen.

code:

Sub CopySignificant()

  Dim DestSheet        As Worksheet
  Dim SrcSheet         As Worksheet
  
  Set DestSheet = Worksheets("items")
  Set SrcSheet = Worksheets("prijslijst")
  
  Dim sRow       As Long
  Dim dRow       As Long
  Dim sCount     As Long
  sCount = 0
  dRow = 1

  For sRow = 1 To DestSheet.Range("AQ65536").End(xlUp).Row
    

     If DestSheet.Cells(dRow, "AQ") Like SrcSheet.Cells(sRow, "A") Then
        sCount = sCount + 1
        
        SrcSheet.Cells(sRow, "B").Copy Destination:=DestSheet.Cells(dRow, "E")
        SrcSheet.Cells(sRow, "C").Copy Destination:=DestSheet.Cells(dRow, "K")
        SrcSheet.Cells(sRow, "D").Copy Destination:=DestSheet.Cells(dRow, "AT")
        SrcSheet.Cells(sRow, "D").Copy Destination:=DestSheet.Cells(dRow, "Y")
        DestSheet.Cells(dRow, "L").Value = "1004"
        dRow = dRow + 1
       [blue] sRow = 1  [/blue]
     End If
        
  Next sRow
  
  MsgBox sCount & " rijen geüpdatet"

End Sub

[pedorus]

Ligt iets als vlookup niet meer voor de hand? In ieder geval zou ik DestSheet.Range("AQ65536").End(xlUp).Row
in een variabele stoppen, en sRow niet in de loop zetten (sRow = 1) zodat je een nette loop krijgt, enkel dat verhelpt je probleem waarschijnlijk niet. Daarnaast wil je misschien een else conditie opnemen, of dRow=dRow+1 buiten de loop doen ofzo, of kan die hele if weg. Dat ligt eraan wat je nu eigenlijk wil doen...

Wellicht denk je dat de volgorde in items!aq hetzelfde is als in prijslijst!a, behalve dat er sommige ontbreken, echter is in werkelijkheid de volgorde anders of ontbreekt een item in je prijslijst.

[cschot]

pedorus,

dank je voor de tips.
Ik heb uitgezocht dat Het 14e item niet in prijslijst staat.
Hoe kan ik in de loop aangeven dat hij deze over moet slaan,
of een andere kleur geven? in iedergeval moet hij die kunnen herkennen.

Die if moet erin, om te kijken in welke rij item matcht met welke rij in prijslijst.
Vlookup is niet echt een optie, omdat de data nogal verandert in ITEMS

De bedoeling is om een Workbook te maken
Waarin in 2 sheets data geplakt wordt uit een geexporteerd csv extract van exact en wanneer er op een knop gedrukt wordt en
een script gedraaid wordt om de prijzen te updaten. Daarna wordt de sheet items als csv bestand opgeslagen.
Waarna het weer geimporteerd in exact.

Ik dacht dat dit de beste oplossing was om de prijzen te updaten, of heeft iemand een beter idee?