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 kan worden vervangen door 1 Select Case statement.

 

[popipipo]

=IF(B36="";"";IF(AND(AND(B37>=0);(B39>=1));$L$13;$L$14))

De ze dubbele 'AND' formule is ook overbodig kan ook zo:

=IF(B36="";"";IF(AND(B37>=0;B39>=1);$L$13;$L$14))

 

[Gijsbert1960]

Hallo Ahulpje en Edmoor

Wat ik wil is dat de gevulde cellen in bereik N77:W91 indien ingevuld verplaatst worden naar blad verbruik zonder de lege cellen waar wel een formule instaat op maand die in kolom L gevonden wordt zoals nu de 9 voor September. With en End With heb ik al weg gehaald maar weet niet om de selectie te maken "Selection.SpecialCells(xlCellTypeConstants, 10).Copy" om te bepalen waar het gekopieerd moet worden. En Edmoor mijn kennis van VBA is beperkt dus weet niet hoe je een 1 Select Case statement. moet maken dus heb het op deze manier gedaan.

M vr gr
Gijs

 

[AHulpje]

Probeer het hier eens mee (ietsje korter):

Sub Verbruik()
    Dim rng As Range
    
    Sheets("Stoken").Range("N77:W91").Copy
    Set rng = Sheets("verbruik").Columns("A:A").Find(What:=MonthName(Sheets("Stoken").Range("L77")), MatchCase:=False, SearchFormat:=False)
    Sheets("verbruik").Cells(rng.Row + 2, 1).PasteSpecial Paste:=xlPasteValues
End Sub

 

[Gijsbert1960]

Hallo Peter59

Nee dit komt niet in de buurt daar blad verbruik in takt moet blijven voor kantoor

Bericht automatisch samengevoegd: 9 minuten geleden

Beste Ahulpje

Dit is het bijna alleen nu worden de lege cellen waar wel een formule in staat mee gekopieerd en dat is niet de bedoeling. Ook het aantal ingevulde regels veranderd geregeld.
Maar hij zet het wel goed op de maand weg, maar als de maand bijna vol is verwijderd hij een deel van de volgende maand. We kijken wel hoveel vrije regels er nog zijn en voegen dan er bij maar anderen die er mee werken kijken hier niet naar en ben daarom bezig in het orginele bestand het aantal lege regels te tellen en dan vie de knop die ik voor de module gebruik wel of niet te laten werken.

M vr gr
Gijs