lokatie cel

[mlc1]

Beste allemaal
Uit het volgende kom ik niet uit.

Sub subtotaal

dim row as integer
dim col as integer
dim Tel as integer

row = 1
col = 1

Do Until ws.Cells(row, col).Value = ""

Cells(row, col + 6) = "oke"
row = row + 1

Loop

++++

door de waarde van ROW na de loop te gebruiken heb ik meteen het totaal aantal regels welke gevuld zijn. Ik wil de waarde van ROW toepassen in
de eerstvolgende lege regel van Kolom E
subtotaal formule =subtotaal(9;E1:E(TEL))
+++++
TEL = ROW
Range("E[TEL]").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-TEL]C:R[-1]C)"

End Sub


Wat gaat er fout?

Bij voorbaat dank voor een snelle reactie

Groet Ron

 

[sylvester-ponte]

hoi
ik denk dat je zo iets bedoeld:

Sub subtotaal()

    Dim row As Integer
    Dim col As Integer
    Dim Tel As Integer

    row = 1
    col = 1

    'Do Until ws.Cells(row, col).Value = ""   'is vervangen door
    Do Until Cells(row, col).Value = ""

        Cells(row, col + 6) = "oke"
        row = row + 1

    Loop

    '++++
    '
    'door de waarde van ROW na de loop te gebruiken heb ik meteen het totaal aantal regels welke gevuld zijn. Ik wil de waarde van ROW toepassen in
    'de eerstvolgende lege regel van Kolom E
    'subtotaal formule =subtotaal(9;E1:E(TEL))
    '+++++
    Tel = row

    Range("E" & Tel).Select
    'ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-TEL]C:R[-1]C)"   'is vervangen door
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & Tel - 1 & "]C:R[-1]C)"
End Sub

groet sylvester

 

[mlc1]

Hi Silvester

Dit is precies wat ik bedoelde
Hartelijk dank
Groet Ron

 

[mlc1]

Beste Silvester
Nog even een vraag.
Stel de inhoud van Row is 10

Ik wil A1 tm A 10 vullen met

Row =10
ActiveCell.FormulaR1C1 = " =RC[1]&"" - "" &RC[4]" 
Range ("A1").select
Selection.autofill Destination: Range ("A1" & Row), type:xlfillDefault

Maar dat werkt niet
kan jij de oplossing geven
Bijvoorbaat dank Ron

 

[wampier]

Range("a1:a"&Row)

 

[mlc1]

Beste Silvester
Nog even een vraag.
Stel de inhoud van Row is 10

Ik wil A1 tm A 10 vullen met

Row =10
ActiveCell.FormulaR1C1 = " =RC[1]&"" - "" &RC[4]" 
Range ("A1").select
Selection.autofill Destination: Range ("A1" & Row), type:xlfillDefault

Maar dat werkt niet
kan jij de oplossing geven
Bijvoorbaat dank Ron

 

[mlc1]

oeps 2 x verzonden

dank je ik ga het proberen

 

[mlc1]

Silvester

Yesss
Zo gaat ie goed
Dank je wel

 

[sylvester-ponte]

ik heb niets gedaan dat was wampier:thumb:

groet sylvester

 

[mlc1]

Ahhh sorry Wampier
hartelijk dank

Ron

 

[wampier]

Ha ha, ik vond het ook niet erg zonder excuses hoor. Sylvester heeft namelijk wel al het echte werk gedaan.