externe gegevens

[Ytsje]

Hallo,

ik heb in een excel bestand met een koppeling naar een externe bron. naast de cellen die gevuld worden door de bron heb ik formules geplaatst. maar deze formules zouden eigenlijk ook aangepast moeten worden aan de hoeveelheid rijen van de bron.

hoe kan ik dit automatisch laten verlopen?

gr en alvast bedankt!

 

[Joske2000]

Voeg eens een voorbeeldbestandje toe, met fictieve gegevens.

thx,

Joske

 

[Joske2000]

Uit de losse pols
zoiets :

Sub formule()
    Dim q As Range
        For Each q In Range("a1:a10000")
        If q.Value > 0 Then
            q.Offset(0, 3).Formula = jouw formule
        End If
        Next
End Sub

Joske

 

[Ytsje]

zie bijgevoegd bestandje

in de tab data is dat een koppeling met de externe data (in dit geval tabbald extdata). je kunt de koppeling simuleren door de data uit 'extdata' te kopieren en plakken in 'data'. het zou dan mooi zijn als de formule in kolom D automatisch wordt aangepast aan het aantal regels van de externe data.

NB het aantal regels neemt alleen maar toe in de tijd (hoeft dus alleen maar een aanpassing naar beneden.

 

[Joske2000]

Hi Ytsje,

Met de volgende code moet het lukken :

Sub formule()
    Dim q As Range
        For Each q In Range("a1:a10000")
        If q.Value > 0 Then
            q.Offset(0, 3).Formula = "=+RC[-1]/100"
        End If
        Next
End Sub

Joske

 

[Warme bakkertje]

Sub tst()
With Sheets("data")
    .Range("D2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End With
End Sub

 

[Ytsje]

bedankt!! het is gelukt!!