kosten van een ordernummer op ander tab blad zetten, incl het zoeken juiste kolom

[ewh]

in de bijlage een voorbeeld wat we terbeschikking hebben
op Blad Basis in kolom T staat het ordernummer
Kolom F staat de omschrijving ( betreft)
Kolom W zijn de kosten

op Blad werkorder staan herhaald twee kolommen, per ordernummer een kolom betreft en een kolom totaal

het is de bedoeling met vba om van het blad basisi het order nummer te zoeken op blad werkorder en dan de omschrijving ( betreft) en de bijbehorende kosten juist te plaatsen.

ben al weer even aan het puzzelen maar het lukt me echt niet

in het voorbeeld twee order nummers ingevuld maar in werkelijkheid kunnen dat er meerderen zijn Bekijk bijlage demo werkorder verplaatsen.xls

 

[JeanPaul28]

Ben je hier iets mee

 

[ewh]

wat een gave oplossing. maar zie nu ook dat ik niet volledig ben geweest .
als de maand november voorbij is dan wordt het basisblad werkorder gewist en de weeklijsten vann december worden per week ingevoerd en ( via VBA) verzameld op het tabblad werkorder

wellicht dat je nog iets weet?

 

[HSV]

Uit je openingspost.

 

[ewh]

HSV top dat is precies wat we bedoelen. ik ga er gauw mee verder

bedankt

 

[HSV]

Het kan nog wel iets anders (korter).

Sub hsv()
Dim sn, sq, st, j As Long, i As Long, n As Long
With Sheets("werkorders")
sn = Sheets("basis").Columns(6).SpecialCells(2).Resize(, 18)
sq = .Columns(1).SpecialCells(2).Resize(, 14)
For j = 1 To 14 Step 3
  For i = 5 To UBound(sn)
    If sq(1, j) = sn(i, 15) Then
                   n = n + 1
          sn(n, 1) = sn(i, 1)
          sn(n, 2) = sn(i, 18)
    End If
  Next i
 If n > 0 Then .Cells(6, j).Resize(n, 2) = sn
    n = 0
Next j
End With
End Sub

 

[ewh]

HSV ik heb toch je hulp nog nodig.
in eerste instantie werkt je oplossing perfect.
dus ik heb hem in de grote oorspronkelijke sheet verwerkt ( excel 2003 ) en nu krijg ik een fot melding bij de regel die begint met sq

het valt me op dat jou bestand een xlsb is daar zal het probleem zitten denk ik
kan je me nog een keer helpen ?

 

[HSV]

Dan staan er wellicht geen specialcells(2) in kolom A.

Jij kan het bestand van een Excel 2003 niet opslaan als .xlsb, maar gelukkig heeft dat niets met de foutmelding van doen.
Gewoon opslaan als .xls.

 

[ewh]

Harry,

Help

ik blijf maar een fout melding krijgen bij de regel die begint met sq je gaf al aan "Dan staan er wellicht geen specialcells(2) in kolom A."

maar ik begrijp echt niet wat je bedoelt.

kolom A van welk blad en wat wordt bedoelt met specialcells( 2 ) ?

 

[ewh]

Harry,
nog een vraagje

als het basis blad eenmaal is door gezet naar het bladwerkorders met jou vba code , wordt daar na blad basis geleegd en op nieuw gevuld .
als ik nu weer jou vba code er op los laat lijkt er niets te gebeuren terwijl het blad werkorders verder aangevuld moet gaan worden

kan jij nog eens kijken