Beste deskundigen,
Wie kan mij helpen met een kwestie waar ik na 2 weken uitproberen nog geen betrouwbare oplossing voor heb.
Ik werk dagelijks een bestand bij dmv een macro.
Het bestand is bevat meer dan 150.000 regels (dus meer dan de grens van 38.000)
Het bestand wordt dagelijks langer
De laatste kolom (AK) heeft wisselend lege en gevulde cellen
In kolom (B) zijn alle cellen gevuld
Kolom AL en AM worden aangevuld vanuit een 2e en 3e bestand dmv de formule vert.zoeken
Deze formule staat bovenaan de database en kopieer ik met een functie naar de laatste regel van het bestand.
Probleem: De kopieer functie hapert halverwege
Noodoplossing: Een range van 1.000.000 selecteren
Range("AL173736").Select
Selection.AutoFill Destination:=Range("AL173736:AL1000000")
Range("AL173736:AL1000000").Select
Range("AM173736").Select
Selection.AutoFill Destination:=Range("AM173736:AM1000000")
Range("AM173736:AM1000000").Select
Range("AL173737:AM173737").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Wie kan en wil mij helpen aan een nette oplossing.
Gr.
Paul
Wie kan mij helpen met een kwestie waar ik na 2 weken uitproberen nog geen betrouwbare oplossing voor heb.
Ik werk dagelijks een bestand bij dmv een macro.
Het bestand is bevat meer dan 150.000 regels (dus meer dan de grens van 38.000)
Het bestand wordt dagelijks langer
De laatste kolom (AK) heeft wisselend lege en gevulde cellen
In kolom (B) zijn alle cellen gevuld
Kolom AL en AM worden aangevuld vanuit een 2e en 3e bestand dmv de formule vert.zoeken
Deze formule staat bovenaan de database en kopieer ik met een functie naar de laatste regel van het bestand.
Probleem: De kopieer functie hapert halverwege
Noodoplossing: Een range van 1.000.000 selecteren
Range("AL173736").Select
Selection.AutoFill Destination:=Range("AL173736:AL1000000")
Range("AL173736:AL1000000").Select
Range("AM173736").Select
Selection.AutoFill Destination:=Range("AM173736:AM1000000")
Range("AM173736:AM1000000").Select
Range("AL173737:AM173737").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Wie kan en wil mij helpen aan een nette oplossing.
Gr.
Paul