VBA Editor: Finde sidste brugte celle i en række.

Denne vælger den første tomme række i den aktive række.

ActiveCell.End(xlDown).Offset(1, 0).Select

Var det det du skulle bruge?

Sub Sidste()
Range("B65536").Select
Selection.End(xlUp).Select
End Sub

Ret bogstavet B i 'Range("B65536").Select' til den kolonne du vil bruge

Det var den sidste i rækken ikke?
ActiveCell.End(xlToRight).Offset(0, 1).Select

Kun en kommentar, da den var tyvstjålden fra vogt

Jeg læste det faktisk som sidste række, så din er den korrekte (og dermed pointene) :-)

den kommer med en runtime fejl:
Run-time error '1004'
Application-defined or object-defined error
hvad betyder det?

Det er nok fordi, at du skal stille markøren på den pågældende række.

Alternativt, kan du indsætte linien
Range("A1").select i din kode først.

Brug f.eks.
Range("A23").Select
hvis det er i række 23 du ønsker at finde den sidste celle.'

den kommer stadig med samme runtime error :(
koden er:
dim c
c=ActiveCell.End(xlToRight).Offset(0, 1).Select

Prøv

Sub Sidste()
  ActiveCell.End(xlToRight).Offset(0, 1).Select
End Sub

forstår det ikke det virker stadig ikke :(

Tryk ALT+11 for at komme ind i VBA-editoren.
Her indsætter du et nyt modul og paster koden ind.

Sub Sidste()
  Range("A23").Select 
  ActiveCell.End(xlToRight).Offset(0, 1).Select
End Sub

"23" skal udskiftes med det rækkenr. du ønsker at finde sidste celle.

Undskyld, ALT+F11

Hvis vi lige holder fast i din egen sætning:

dim c as Range
Set c=ActiveCell.End(xlToRight).Offset(0, 1)
c.Select

:-/ Ked af at sige det men fejlen som beskrevet i "Kommentar: dc
17/09-2003 10:31:38" kommer stadig... hvad kan der være galt? koden ligger i en funktion og jeg kan se at den aktive cell er A4.

to ting.
står der noget i b4, ellers får du fejlmeddelelse

jeg vil gerne se hele din funktion.
bruger du den i regnearket eller bare i vba ?

bak -> der står ikke noget i B4 og desuden ville det være kanont hvis den først starter med at lede efter tom celle efter kolonne b, da der altid vil stå noget i kolonne A og kolonne B skal altid være tom, da den bliver brugt til status.

Jeg bruger funktionen i regnearket og den ser sådan ud:
Public Function fs_ReturnLastCellFromCurrentRow() As String
    Dim s$, w$, i%
''''''''
'    Dim c As Range
'    Set c = ActiveCell.End(xlToRight).Offset(0, 1)
'    c.Select
''''''''
    i = 67
    s = Chr$(i) + CStr(piCurrentRow)
    w = Range(s).Value
    While w <> ""
        i = i + 1
        s = Chr$(i) + CStr(piCurrentRow)
        w = Range(s).Value
    Wend
    fs_ReturnLastCellFromCurrentRow = s
End Function

Det der ikke er kommenteret ud er det jeg bruger nu og det virker godt nok, men det andet ser ud til at være smartere :)

Jeg kan ikke lige se hvad du skal bruge så jeg har lavet 3 funktion.

1. funktion returnerer værdien af sidste celle i rækken (0 hvis ingen celler efter B)
2. funktion returnerer adressen (IV hvis ingen celler efter B)
3. funktion returnerer kolonnen (#Value hvis ingen celler efter B)

funktionen er lavet lidt om så den ikke bruger activecell, men den adresse du kommer i.
feks.
=fs_ReturnLastCellFromCurrentRow(A23) giver værdien af sidst (kontinuert) udfyldte celle i række 23. Starter fra kolonne B.

Public Function fs_ReturnLastCellFromCurrentRow(rng As Range)
Application.Volatile
fs_ReturnLastCellFromCurrentRow = Cells(rng.Row, 2).End(xlToRight).Value
End Function

Public Function fs_ReturnLastCellAddressFromCurrentRow(rng As Range)
Application.Volatile
fs_ReturnLastCellAddressFromCurrentRow = Cells(rng.Row, 2).End(xlToRight).Address
End Function

Public Function fs_ReturnLastCellColumnFromCurrentRow(rng As Range)
Application.Volatile
fs_ReturnLastCellColumnFromCurrentRow = Chr(Cells(rng.Row, 2).End(xlToRight).Column + 64)
End Function

Sorry, det holder ikke :-(((

test lige denne istedet
Public Function fs_ReturnLastCellFromCurrentRow(rng As Range)
Application.Volatile
If Len(Cells(rng.Row, 4)) > 0 Then
    fs_ReturnLastCellFromCurrentRow = Cells(rng.Row, 3).End(xlToRight).Value
Else
    fs_ReturnLastCellFromCurrentRow = Cells(rng.Row, 3).Value
End If
End Function

hvad skal jeg kalde funktionen med ?
(rng As Range) hvordan skal rng se ud?

=fs_ReturnLastCellFromCurrentRow(A5)

A5 er en tilfældig celle i den række, hvor du ønsker sidste værdi oplyst

= fs_ReturnLastCellFromCurrentRow(A5) giver fejlen:
"Compile error: Variable not defined" ?

=fs_ReturnLastCellFromCurrentRow("A5")
der manglede ""

Jeg troede du ville bruge den som en regnearkarksfunktion.
hvis du vil bruge den i vba så skriv
= fs_ReturnLastCellFromCurrentRow(range("A5"))

bak -> jeg har valgt din løsning, kom med et svar og du skal få point :)

ok :-)

Lukketid.