• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro aanpassen voor enkel de ingevulde rijen

Status
Niet open voor verdere reacties.

mause01

Gebruiker
Lid geworden
19 okt 2012
Berichten
75
Heren & Dames,

Ik wil graag een macro maken met een random nummer in de cellen.
enkel mag deze alleen toegevoegd worden als er waardes in cellen staan op een rij.
Deze moet stoppen bij de laatste rij welke is ingevuld.

Ik heb al een stukje code welke ik wil gebruiken maar krijg het niet goed in deze macro.
Code:
Range("B7:AJ" & Range("C" & Rows.Count).End(xlUp).Row).Select
 Selection.SpecialCells(xlCellTypeVisible).Select

Code:
Sub RandomNR()

    Dim r As Range
    Set r = Range("C7:C5000")
    With r
        .Formula = "=randbetween(0,10000)"
        .Copy
        .PasteSpecial (xlPasteValues)
    End With
End Sub

Wie kan mij helpen!
 
Laatst bewerkt:
Zo?
Code:
    Range("B7:B" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeConstants).Offset(, 1).Formula = "=randbetween(1,10000)"
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan