VBA kode til at finde værdien af den sidste celle i en kolonne

Hvordan forstår du den sidst udfyldte? Står den altid nederst i kolonnen?

I så fald behøver du ikek VBA, men kan klare det med en formel.

http://www.kronsell.net/finde_indholdet_af_sidste_celle.htm

Det gør den, men værdien skal jeg bruge i en anden rutine, som køre i VBA

Kan denne makro bruges? Den indsætter den sidst indtastede værdi (i området A1:G10) i celle H1. Der kan så arbejdes videre derfra.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:G10")) Is Nothing Then
Range("H1") = Target.Value
End If
End Sub

Istedet for at indsætte den i regnearket, så kan jeg vel give den en variabel evt. sådan

istedet for:
Range("H1")=Target.Value

Så dette:
PL=Target.Value

PL er en variabel der er defn, og skal bruges videre med den aktuelle værdi

Jens48 - den virke ikke umiddelbart, men jeg har jo også kun sakset dette

If Not Intersect(Target, Range("A1:G10")) Is Nothing Then
Range("H1") = Target.Value (i min version PL=Target.Value

Og defn. Target som range.

Den skal jo bruges som en del af en makro

Hvis den sidste "bare" er den nederste, så kan denne bruges

sidste = Range("d:d").End(xlDown).Value

Den indsætter indholdet af den nederste celle i D-kolonnen i variablen Sidste. Ret selv kolonnen til den rigtige.

Prøv:

JanK: Den tager række 4, men den sidste fyldte række er 11

Store-morten: Jeg kan ikke indbygge den kodestump i en eksisterende makro, som er det jeg skal

Det skal du heller ikke?

Den skal evt. ligge øverst på det ark den skal virke på.

Er det sidste celle der er indtastet i ?
Eller sidste række i en bestemt kolonne ?

Det er sidste række i en kolonne G.

Jeg bliver vel nød til at indbygge den i makroen for at jeg kan anvende værdien af cellen til videre bearbejdning

Prøv at bruge:

Range("G" & Rows.Count).End(xlUp)

i din makro.

Eller:
PL = Range("G" & Rows.Count).End(xlUp)

#8 Jeg gik ud fra at alle rækker var brugt.

#12: Det virker:-)

Det var godt 👌