aangeven van celbereik in macro

[hgm]

Via een macro wil ik in bijv. cel D2 een formule (=A2*B3) zetten. Deze
formule moet in kolom D net zolang doorgezet worden als er regels zijn.
Aangezien dit bestand gekoppeld is met een ander bestand, zijn het de ene
keer 25 regels en de andere keer 100 regels. Hoe regel ik in deze macro dat
er bij 100 regels in regel 101 en verder géén formule meer staat.
Of hoe ziet de macro er uit bij 37 regels.

 

[Demeter]

Het beste kan je dit met een loop bewerkstelligen.

Sub copy()
    Dim c As Range
    Dim MyRange As Range
    
    Set MyRange = Range("D1:D100")

    For Each c In MyRange
        If c <> "" Then
            hier je code voor wat je wilt laten doen
        End If
    Next
        
Range("A1").Select

End Sub

Als je je vraag wat beter formuleert dan zouden we je gerichter kunnen helpen.
Post anders ene (bijna) leeg voorbeeld, werk een stuk fijner als iemand al ene opzet heeft.


Groet,
Ferenc

 

[Wigi]

Hellowa

Een loop is niet noodzakelijk het beste:

Sub copy()
    Dim c As Range, MyRange As Range, lngRows as Long
lngRows = 100
    Set MyRange = Range("D1:D" & lngRows)
MyRange.Formula = "" 'zet hier je formule        
Range("A1").Select
End Sub

pas lngRows aan - of laat hem opvragen met een Inputbox - en dan zou het moeten werken. Ook formule erin zetten.

Wigi