Selectie Cellen bij bepaalde waarde van een andere cel

[MMS1972]

In de A kolom staan ook nog gegevens dus eigenlijk begint het met A7 al is A7 zelf leeg. Kan daar wel een willekeurige waarde aan geven.

 

[HSV]

Het is geen fraai bestand met al die lege rijen en cellen.

In je laatst geplaatst bestand werkt het prima hier.

 

[MMS1972]

Uitdaging?

Het is een inventarisatielijst waarbij een aantal kolommen altijd gebruikt worden maar waar ook kolommen zijn gebruikt die niet voor elk artikel gebruikt worden.

Ik probeer de macro te begrijpen maar kom er zelf niet uit.

 

[HSV]

Zover was ik al in dit bestand.

 

[MMS1972]

Wat kan een evt fout veroorzaken?

Ik heb eerst reeksen van 100 regels gekopieerd en dat ging zonder probleem.

Toen reeksen van 500 ook geen probleem

Toen reeksen van 1000 ook geen probleem

Alleen ergens gaat het op een gegeven moment fout en werkt het niet meer.

Enig idee waarnaar te zoeken?

 

[emields]

ergens een foute invoer in een kolom? Of een verborgen rij?

 

[MMS1972]

Als in? Wat voor soort foute invoer bedoel je?

Hoe zou ik dit kunnen vinden?

 

[HSV]

plaats het bestand eens waarin het fout gaat.

 

[MMS1972]

Zou ik wel willen maar mag niet. Te gevoelige informatie.

 

[HSV]

Die kan je eruit halen lijkt me.

Als de range in A7 begint moet je dit maar eens testen.

Sub hsv()
Dim sv, Ws As Range
Application.ScreenUpdating = False
Set Ws = Sheets("blad1").Cells(7, 1).Resize(Sheets("blad1").UsedRange.Rows.Count, 13)
   Ws.Name = "bereik"
   sv = Ws.Value
 With Sheets("blad2")
   .Cells(1).Resize(UBound(sv), 4) = Application.Index(sv, [row(bereik)-6], Array(4, 6, 12, 13))
   .UsedRange.AutoFilter 1, Ws.Parent.Cells(4, 6).Value
   .Columns.AutoFit
   .PrintPreview
   .UsedRange.AutoFilter
   .UsedRange.ClearContents
 End With
End Sub

 

[MMS1972]

Geprobeerd maar dat heeft er niets mee te maken.

Er lijkt ergens een fout te zitten.

Wanneer ik 5000 items kopieer gaat het ergens tussen regel 4500 en 5000 fout.

Maak ik kolom M tussen 4500 en 5000 leeg dan doet alles het wel....

Iets uit kolom M geeft dus een conflict met de macro. Is er iets wat NIET in een cel mag staan omdat er anders fouten optreden?

 

[MMS1972]

Kan het zijn dat een cel waar te veel tekst in staat het probleem geeft?

Cel M4690 Is gevuld met een groot stuk tekst. In totaal 264 tekens.

Haal ik die cel leeg dan werkt de macro weer wel. Vul ik die cel weer dan werkt die niet.

Haal ik hem leeg zodat die werkt en vul ik een andere cel met meer tekens dan krijg ik ook weer die foutmelding.

Waarschijnlijk zit er dus een max aantal tekens in.

Wat kunnen we daarmee?

Ik zie overigens dat naarmate de cellen meer gevuld zijn het te printen gedeelte minder goed zichtbaar is. Logisch want er moeten meer tekens op het papiertje.

Oplossing zou dus zijn om de te printen kolom M af te breken na een X aantal tekens. Het mooiste is om dit ALLEEN in het te printen gedeelte te doen en het origineel NIET te wijzigen. Als dit niet kan zouden we ervoor kunnen kiezen om een extra kolom te maken die dan automatisch de tekst van kolom M kopieert en dan afbreekt op een X aantal tekens.

Kunnen we hier wat mee?

 

[HSV]

Ik denk dat het bereik te groot wordt voor 'application.index'.

 

[MMS1972]

Het bereik van het totaal aantal cellen/kolommen of het aantal tekens?

 

[MMS1972]

All done. Heb een extra kolom toegevoegd waar de tekst van kolom M automatisch heen gekopieerd wordt en vervolgens afgebroken wordt op 100 tekens.

Nu werkt alles perfect.

Bedankt voor alle hulp!

Marco