autofill

[Jack Nouws]

Hallo waarom werkt deze regel niet

met vr gr
Jack

Sub uitvullen()
        With Cells(Rows.Count, 12).End(xlUp).Offset(-1)
             .copy
             .AutoFill Destination:=Cells(Rows.Count, 12).Offset(1)
        End With
End Sub

 

[Wigi]

Jack

1 van uw meer dan 500 eerdere posts en 100 topics, bevat reeds code voor autofill. http://www.helpmij.nl/forum/showpost.php?p=2609708&postcount=9. Dit is dan meteen een voorbeeld van autofill.

Andere voorbeelden en vereisten voor het gebruik van de autofill methode, kan je in de helpfiles vinden. De meest elementaire vereiste is uiteraard dat ranges bestaan.

Wigi

 

[Jack Nouws]

Zo, dan

Sub uitvullen()
        Range("L20").AutoFill Destination:=Range("L65536").End(xlUp).Offset(1), Type:=xlFillDefault
End Sub

Met vr gr
Jack

 

[Warme bakkertje]

Sub uitvullen()
    [L20].AutoFill Range("L20", [L65536].End(xlUp).Offset(1)), xlFillDefault
End Sub

Of wil je hem tot helemaal onderaan

Sub uitvullen()
    [L20].AutoFill Range("L20", [L65536].End(xlDown)), xlFillDefault
End Sub

 

[Wigi]

Zo, dan

Sub uitvullen()
        Range("L20").AutoFill Destination:=Range("L65536").End(xlUp).Offset(1), Type:=xlFillDefault
End Sub

Met vr gr
Jack

Waarom vraagt u "Zo dan?" als u ook gewoon kan testen in een werkblad of het werkt of niet?

Dan zou je zien dat dat inderdaad niet werkt, en weet je dat je verder moet speuren naar fouten. In de helpfiles staat waaraan de bereiken moeten voldoen.

Waarom staat die L20 nu hardgecodeerd in deze code, en niet in de code in post 1 van de topic? En waarom het aantal rijen in de sheet nu ineens hardgecodeerd is begrijp ik al evenmin, al zal dat niet de oorzaak zijn dat het niet werkt.

Wigi

 

[Jack Nouws]

 With Cells(Rows.Count, 12).End(xlUp).Offset
        .AutoFill Range(.Cells(1), .Offset(-1).End(xlDown).Offset(1))
    End With

Nou WIGI het is me uiteindelijk toch gelukt ook al koste het behoorlijk veel moeite
Met bovenstaande code bereik ik wat ik wilde bereiken :thumb:

Groetjes
Jack

 

[Jack Nouws]

Alleen nu het volgende probleem nu werkt dat stukje code niet icm de rest van de code.
Omdat de code nu zo groot wordt voor mij zie ik door de bomen het bos niet meer
Wie kan me hierbij helpen of uitleg geven?

Private Sub CmdOK_Click()
    
Application.ScreenUpdating = False
     With Sheets("Blad4")
         .Unprotect
         .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 10) = Split(Format(TxtDatum.Text, "mm/dd/yyyy") & "|" & CboVanBron.Value & "|" & TxtVanBron.Text & "|" & TxtVanPost.Text & "|" & CboNaarBron.Value & "|" & TxtNaarBron.Text & "|" & TxtNaarPost.Text & "|" & TxtOmschrijving.Text & "|" & TxtInkomsten.Text & "|" & TxtUitgaven.Text, "|")
        With .[A1]
             .Formula = "1"
             .Copy
             .Cells(Rows.Count, 2).End(xlUp).Resize(, 10).PasteSpecial xlPasteAll, xlMultiply, False, False
             .Cells(Rows.Count, 2).End(xlUp).Resize(, 10).HorizontalAlignment = xlLeft
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 8).Style = "Currency"
             .Cells(Rows.Count, 2).End(xlUp).Offset(, 9).Style = "Currency"
        End With
        With .Cells(Rows.Count, 2).End(xlUp).Offset(-2)
             .EntireRow.Copy
             .Offset(2).EntireRow.PasteSpecial xlPasteFormats
        End With
        With Cells(Rows.Count, 12).End(xlUp).Offset
             .AutoFill Range(.Cells(1), .Offset(-1).End(xlDown).Offset(1))
        End With

        .Protect
     End With
End Sub

Met vr gr
Jack

 

[Jack Nouws]

Gevonden
Het was de . in de code

        With [COLOR="red"][B].[/B][/COLOR]Cells(Rows.Count, 12).End(xlUp).Offset
             .AutoFill Range(.Cells(1), .Offset(-1).End(xlDown).Offset(1))
        End With

Met vr gr
Jack

 

[Wigi]

Gevonden
Het was de . in de code

        With [COLOR="red"][B].[/B][/COLOR]Cells(Rows.Count, 12).End(xlUp).Offset
             .AutoFill Range(.Cells(1), .Offset(-1).End(xlDown).Offset(1))
        End With

Met vr gr
Jack

U hebt toch een rare stijl van programmeren. Volgens mij bedoel je dit, al kan ik daar niet zeker van zijn.

    With Cells(Rows.Count, 12).End(xlUp)
        .AutoFill Destination:=.Resize(2)
    End With

Of nog:

    With Cells(Rows.Count, 12).End(xlUp)
        .Copy .Offset(1)
    End With

Wat doet Offset zonder parameters trouwens in jouw vorige code?

Wigi