Stooklijst

[Gijsbert1960]

Hallo Allen

Ik ben bezig om een variabel bereik naar ander blad te kopieren zonder lege cellen waar wel een formule in staat in Excel 365.
Maar loop vast op de regel "If Not RangeIsEmpty(Selection) Then" tijdens test. Ik heb deze code uit een ander bestand waar hij wel werkt maar door aanpassing hier niet en foutmelding geeft Sub of Function is niet gedefineerd. De rest van de code staaat op blad Stoken dat is om naar ander blad te zetten. Ik weet dus door vastlopen niet of hij de regels met formule wel of niet meeneemt en weet te weinig van VBA om er uit te komen, dus alle hulp is welkom. Ook staat de formule in module1

With ActiveSheet
    Dim col As Integer
    Dim myrange As Range
    For col = 14 To 23
            Range(Cells(77, 14), Cells(91,23)).Select
                If Not RangeIsEmpty(Selection) Then
                    Selection.SpecialCells(xlCellTypeConstants,10).Copy

M vr gr
Gijs

 

[edmoor]

Die RangeIsEmpty is geen standaard Excel VBA function en zal je in z'n geheel uit dat andere document moeten kopiëren.
Die huidige code kan ook een heel stuk eenvoudiger.

 

[Gijsbert1960]

Hallo Edmoor

Heb die opgezocht en onderaan stond nog

Function RangeIsEmpty(ByVal SourceRange As Range) As Boolean
  RangeIsEmpty = (WorksheetFunction.CountA(SourceRange) = 0)
End Function

Denk dat hij daardoor wel werkteop het gevonden bestand.

Ik heb nu de formule aangepast naar het volgende

Sub GevuldeCellen()
    Dim col As Integer
    Dim myrange As Range
    For col = 14 To 23
    Next
        Range(Cells(77, 14), Cells(91, 23)).Select
            Selection.SpecialCells(xlCellTypeConstants, 10).Copy

Maar krijg op "Selection.SpecialCells(xlCellTypeConstants,10).Copy" de melding geen cellen gevonden en begrijp niet uit waarom, dat de code eenvoudiger kan zal wel maar heb er niet veel kaas van gegeten dus als iets werkt ben ik al blij.

M vr gr
Gijs

 

[AHulpje]

End With zonder With, Blad1 bestaat niet, een For-loop over col die je nergens in die For-loop gebruikt, myrange wordt niet gebruikt, kortom, er klopt niet veel van.
Leg eens uit wat er moet gebeuren.

 

[edmoor]

En die hele If..Then..Else constructie pam worden vervangen door 1 Select Case statement.