bereik selecteren

[Ringo]

Hallo,

Ik ben bezig met een macro. In een database moet ik een lege kolom invoegen. B.v. kolom L. Kopje erboven.
In cel L2 zet ik een formule. Tot zover geen probleem.

Nu wil ik de formule doortrekken naar de laatste cel van kolom K. Stel K 800. Dit is ook geen probleem, maar stel de database breid uit naar L 825, dan stopt de macro bij L 800.

Weet iemand de truc hiervoor?

Bedankt alvast.

 

[danny147]

Beste Ringo

Ik denk dat je moet zoeken met:

 End(xlUp).Row

Welke formule gebruik je ?

Groetjes Danny. :thumb:

 

[Ringo]

Hallo Danny,

Het is in dit geval een simpele formule "=K2 - L2.

Met de vulgreep werkt uiteraard niet. Hij moet zich aanpassen aan de lengte van de database.

Ga jouw optie proberen!

Thanks!

Groet,

Martin

 

[gelens]

Ringo

In L2 wil jij de volgende formule plaatsen :

Het is in dit geval een simpele formule "=K2 - L2.

Ben bang dat dat een kringverwijzing oplevert.

 

[Ringo]

Ik had gehoopt dat onderstaande zou werken.

Selection.AutoFill Destination:=Range("J2:J" & CounterRows)
Range("J2:J" & CounterRows).Select

Resulteert in een fout?

Groet,

Martin

 

[danny147]

Beste Ringo

Probeer deze eens:

lastrow = Sheets ("Blad1"). Range ("J2"). End (xlDown). Row

= Range ("J2: J" & & lastrow)

Groetjes Danny. :thumb:

 

[danny147]

Beste Ringo

Je kan deze code gebruiken:

lastrow =Sheets ("Blad1"). Range ("J2"). End (xlDown). Row
Selection.AutoFill Destination:= Range ("J2: J" & & lastrow)

Of deze:

lastrow = Sheets ("Blad1"). Range ("J65536"). End (xlUp). Row 
Selection.AutoFill Destination:= Range ("J2: J" & & lastrow)

Groetjes Danny. :thumb:

 

[Ringo]

Hallo Danny,

Op het eerste gezicht een simpel iets, maar valt toch tegen

Je hebt me toch nuttige dingen gestuurd denk ik!!!

Ik ga ermee stoeien

Thanks:thumb:

Groet,

Martin

 

[Ringo]

Danny,

Met onderstaande ben ik er bijna.

lastrow =Sheets ("Blad1"). Range ("J2"). End (xlDown). Row
Selection.AutoFill Destination:= Range ("k2: k" & lastrow)

In kolom K vult hij na de database tot 65536 aan met 0.

Groet,

Martin

 

[Ringo]

Danny,

Ik heb hem!!!! Bedankt!!

Met de macro kopieerde ik de database naar blad 2.
Dan heeft de string met" blad 1" geen zin natuurlijk!

Enorm bedankt voor je hulp!!

Groet,

Martin:thumb:

 

[Warme bakkertje]

Om de onderste rij van een bereik te bepalen werk je steeds van onder naar boven(End(xlUp)
Als je zoals jij met End(xlDown) werkt en er zit per ongeluk een lege cel tussen je bereik heb je nooit de onderste cel als laatste want het tellen stopt bij de eerste lege cel.

Sub tst()
With Sheets("Blad2")
    .[K2].AutoFill .Range("K2:K" & .Cells(Rows.Count, 10).End(xlUp).Row)
End With
End Sub

 

[Roncancio]

Danny,

Ik heb hem!!!! Bedankt!!

Met de macro kopieerde ik de database naar blad 2.
Dan heeft de string met" blad 1" geen zin natuurlijk!

Enorm bedankt voor je hulp!!

Groet,

Martin:thumb:

Graag nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio