Variabele range instellen

Nelis1 · 19 jun 2018

Beste allemaal,

hoe kan onderstaand stukje VBA variabel in range gemaakt worden.

ActiveCell.FormulaR1C1 = "=IF(RC[-12]="""","""",1)"
Range("M2").Select
Selection.Copy
Range("M3:M237").Select

de bedoeling is dat wanneer er geen waarde in kolom "M" staat deze wordt gevuld met 1 zolang er een waarde in kolom A staat.
gezien er verschillende lijsten zijn is de range altijd anders vandaar en ik kom er niet aan uit.

Bekijk bijlage Variabele range instellen middels VBA.xlsm

snb · 19 jun 2018

Waar heb je dat voor nodig ?

'middels' is slecht Nedrlands voor 'met'

Nelis1 · 19 jun 2018

de 1 is een indicator voor een vervolgactie
tja en middels... dan maar een beetje slecht NL

Timshel · 19 jun 2018

Niet helemaal duidelijk wat de bedoeling is.
Probeer het eens MET deze code (gehele sub vervangen)

Code:

Sub Test()
    Cells.NumberFormat = "General"
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    Selection.AutoFilter
    'ActiveSheet.Range("$A$1:$S$238").AutoFilter Field:=13, Criteria1:="="
    Range("M2:M" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=IF(RC[-12]="""","""",1)"
    ActiveSheet.Range("$A$1").AutoFilter Field:=13
End Sub

Nelis1 · 19 jun 2018

Deze lijkt inderdaad te werken - is dit het gedeelte in de code dat de range variabel maakt? Rows.Count, 1).End(xlUp).Row

Timshel · 19 jun 2018

Cells(Rows.Count, 1).End(xlUp).Row zoekt de rij van de laatste gevulde cel in kolom 1.

Nelis1 · 19 jun 2018

:thumb:

snb · 19 jun 2018

Met voorwaardelijke opmaak kan het ook.

Nelis1 · 19 jun 2018

Nou idd dat is ook een goede invalshoek.

In der Beschränkung zeigt sich erst der Meister.

Variabele range instellen

Nelis1

Gebruiker

snb

Verenigingslid

Nelis1

Gebruiker

Timshel

Terugkerende gebruiker

Nelis1

Gebruiker

Timshel

Terugkerende gebruiker

Nelis1

Gebruiker

snb

Verenigingslid

Nelis1

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy