Selectie laatste rij, maar cellen met Formules en waarde

Vendeburk · 22 okt 2021

Beste Forumleden,

Ik ben op zoek naar een VBA code voor het selecteren van een gedeelte, maar de laatste rij is afhankelijk van de ingevulde waarde.

Graag wil ik een selectie van D3:I (laatste rij)

Ik gebruik nu de volgende code:

Code:

Range("D3:I" & .Cells(.Rows.Count, "I").End(xlUp).Row)

In het voorbeeld zijn de cellen E63:I85 niet gevuld met formules, maar dat zijn ze in het echte bestand wel. Zoals in kolom D

Ik zou in dit voorbeeld graag een VBA code willen met een bereik van D3:I62

Dus als ik naar kolom D kijk. De laatste rij is de cel met een gevulde waarde of hoogste waarde.

Weet iemand hoe ik dit kan doen. In de codes die ik nu gebruik kijkt hij ook of er een formule in de cel staat.

VenA · 22 okt 2021

In een .xlsx staan geen codes. Waarom maak je geen gebruik van een echte tabel?

Misschien dat het zo werkt:

Code:

Sub VenA()
  With Sheets("Pdf")
    For j = .UsedRange.Rows.Count To 1 Step -1
      If .Cells(j, 4) <> "" Then
        .Cells(3, 4).Resize(j - 2, 5).Select
        Exit Sub
      End If
    Next j
  End With
End Sub

HSV · 22 okt 2021

Of misschien.

Code:

Range("d3:i" & Columns(4).SpecialCells(-4123, 1).Rows.Count + 11).Select

Selectie laatste rij, maar cellen met Formules en waarde

Vendeburk

Gebruiker

Bijlagen

VenA

Inventaris

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy