wegschrijven naar een werkblad

[HWV]

Beste,

Met behulp van het formu hier ben ik tot de volgend ecode gekomen om een opsomming te krijgen van de artikelen die besteld moeten worden.
Dit wordt getoont in een msgbox.
Nu wil ik dit wegschrijven naar een werkblad, maar dan zet hij alle achter elkaar in een cel.
Hoe kan ik dit overzichtelijk in een werkblad plaatsen.

  ar = Cells(1).CurrentRegion
  For J = 2 To UBound(ar)
     If ar(J, 24) > ar(J, 26) And ar(J, 27) = "" Then C00 = C00 & ar(J, 28) & vbCr & ar(J, 1) & " - " & ar(J, 6) & vbCr & ar(J, 10) & vbCr & ar(J, 9) & vbCr & vbCr & "Besteladvies : " & ar(J, 25) - ar(J, 24) & " Stuks" & vbCr & vbCr
  Next J
  c01 = "Het volgende wordt u aangeraden te bestellen via de MIN en MAX :" & vbCr & vbCr
  If C00 = "" Then
  
  MsgBox ("Er staat niks in de herbevoorradingslijst om te bestellen"), , "Herbevoorrading!"

  Else
  
  MsgBox c01 & C00, vbQuestion, " Herbevoorrading!"

  End If

Alvast dank hiervoor

Henk

 

[SjonR]

Ik zie je niks wegschrijven.

 

[HWV]

Sheets("Blad1").Range("A1") = c01 & C00

Omdat het niet werkte had ik het er weer uit gehaald

 

[SjonR]

Tja, er zullen gerust helpers zijn die een glazen bol hebben, maar wat waarnaartoe moet worden geschreven is mij een raadsel. Voorbeeldbestandje met wat uitleg misschien?

 

[edmoor]

Nogal logisch dat 'ie alles achter elkaar zet.
c00 is een gewone string variabele waarin je zelf alles achter elkaar zet in je code in #1.
Dat gaat 'ie niet uit zichzelf over meerdere cellen verdelen.

 

[HWV]

Oké, dus de code moet omgebouwd worden zodat deze weggeschreven kan worden naar een werkblad , en dat dit goed leesbaar is zodat dit ook te printen is.

Ik zal een voorbeeldbestand moeten bouwen aangezien het huidige bestand gevoelige informatie bevat. Ik hoop dat dit lukt vanuit huis, anders moet ik er maandag pas op terug komen.

Groet Henk

 

[HSV]

vbCrLf of VbNewLine i.p.v. vbCr

 

[HWV]

dat is gelukt maar...

Bedankt HSV dit is idd dat hij dan de regels wel onder elkaar zet.
Maar er mee bezig te zijn is dit niet echt handig als er veel dingen in bestelling gezet moeten worden.
Dan laat hij niet alles zien in 1 cel wn is zeker niet handig.

Is er een mogelijkheid dat ik per regel kan wegschrijven, zodat ik er een soort bestellijst van kan maken voor onze fustbeheerder die dan de bestellingen kan doen.
A1 Artikelnummer
A2 Omschrijving
A3 Leverancier
A4 besteladvies

A6 Artikelnummer
A7 Omschrijving
A8 Leverancier
A9 besteladvies

enz enz

Hier mijn bestandje met de wijzigingen die goed werken maar staat zeker open of dit ook anders kan.

Bekijk bijlage Helpmij.xlsm

Groet Henk

 

[VenA]

Sub VenA()
  ar = Sheets("Database").Cells(1).CurrentRegion
  t = 0
  For j = 2 To UBound(ar)
    If ar(j, 24) > ar(j, 26) And ar(j, 27) = "" Then
      c00 = Array(ar(j, 1) & " - " & ar(j, 6), ar(j, 10), ar(j, 9), "Besteladvies : " & ar(j, 25) - ar(j, 24) & " Stuks")
      Sheets("Bestellen").Cells(1).Offset(t * 5).Resize(4) = Application.Transpose(c00)
      t = t + 1
     End If
  Next j
End Sub

 

[HSV]

Meer code, minder schrijfbewegingen.

Sub hsv()
ReDim arr(3)
sv = Sheets("Database").Cells(1).CurrentRegion
  For i = 2 To UBound(sv)
     If sv(i, 24) > sv(i, 26) And sv(i, 27) = "" Then
       arr(n) = sv(i, 1) & " - " & sv(i, 6)
       arr(n + 1) = sv(i, 10)
       arr(n + 2) = sv(i, 9)
       arr(n + 3) = "Besteladvies : " & sv(i, 25) - sv(i, 24) & " Stuks"
       n = n + 5
        ReDim Preserve arr(UBound(arr) + n)
     End If
  Next i
    With Sheets("Bestellen")
     .usedrange.ClearContents
     .Cells(1).Resize(UBound(arr)) = Application.Transpose(arr)
    End With
End Sub

 

[HWV]

Geweldig

Beide dank voor de bijdrage, dit geef het gewenste resultaat.
Ik ga het verwerken in het originele bestand.

Ik heb ze beide geprobeerd, moet nog even kijken welke ik ga gebruiken.

Groet Henk