VBA - find første tomme felt

Altså en sætning til at FINDE feltet!!

Hvis du allerede står i d4 kan du bruge denne

Selection.End(xlDown).Offset(1, 0).Activate

Hvis du ikke står i d4 kan du bruge

Range("d4).Activate
Selection.End(xlDown).Offset(1, 0).Activate

Sub SidsteRække()
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
End Sub

Det går dog galt, hvs den celle du starter i, fx D4 er blank, eller hvis den første blanke er lige under den, du står i.

jeg er for laaangsom ;-))

kabbak :-)

Hmm - den kan jeg ikke lige finde ud af...

Min plan: Jeg har:
If Target = Range("c3") Then
felt = Range("c3").Value

felt skulle så gerne skrives i første tomme felt i D4-d16 - Men jeg kan ikke finde ud af at bruge dit fine exempel  :-(

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = Range("c3") Then
        felt = Range("c3").Value
    End If
    For Each c In ActiveSheet.Range("d4:d16").Cells
        If IsEmpty(c) Then
            c.Value = felt
            Exit Sub
        End If
    Next c
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Range("D4").Select
Selection.End(xlDown).Offset(1, 0) = Range("c3").Value
End If
End Sub

et forslag

kabbak-> Din kode har samme skavank som min første, den fejler hvis D4 eller D5 er tomme.

ja, men din sætter værdier ind hvergang du klikker ind i C3

Præcis. Og din skriver i D9, hvis der står noget i D8, også selv om D4, D5, D6 og D7 er tomme :-) Så helt perfekt er det ikke :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Range("D4").Select
If Range("D4") <> "" Then
Selection.End(xlDown).Offset(1, 0) = Range("c3").Value
End If
Range("D4") = Range("c3").Value
End If
End Sub

prøv den

kabbak >> hvorfor "opdaterer" din kode når man klikker IND i feltet og ikke når man har ændret værdien og trykker enter??

NEJ - sorry - det var til Jkrons

kabbak - den fejler hos mig ved 2. indtastning

Det gør den fordi jeg bruge selection_change. Det var en fejl. Jeg skulle selvfølgfelig have brugt change. altså

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("c3") Then
        felt = Range("c3").Value
    End If
    For Each c In ActiveSheet.Range("d4:d16").Cells
        If IsEmpty(c) Then
            c.Value = felt
            Exit Sub
        End If
    Next c
End Sub

jkrons > jeg har hukket lidt fra dig, men nu er den ok

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
  For Each c In ActiveSheet.Range("d4:d16").Cells
        If IsEmpty(c) Then
            c.Value = Range("c3").Value
            Exit Sub
        End If
    Next c
End If
End Sub

Husrtigst igen :-)

jaa, men jeg kommenterer også bare for at holde dig i ilden ;-))

Kabbak - din virker!!
Jkrons - første gang man indtaster kommer det på ALLE feleterne d4:d16

Det er helt flovt jeg kun satte 15 point med al det besvær...
Hvis i lægger et svar hver får i begge 15 - ok??  ;-)

1000 tak - det har været sjovt at følge med på sidelinien!!!!!

Lige et spørgsmål? Hvad nu når alle celler i området D4:D16 er fyldt ud?

ok med mig

Det sad jeg også og tænkte på - men den kan jo udvides til D65536 så det går nok...

Det er i orden med mig at dele :-)

Men du kan bruge denne, som skriver i en tom celle i området hvis en sådan findes, eller skriver videre i D17, hvis alle celler i området er brugt :-)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$C$3" Then
    On Error GoTo newcell
        ActiveSheet.Range("d4:d16").Cells.SpecialCells(xlCellTypeBlanks).Activate
       
        For Each c In ActiveSheet.Range("d4:d16").Cells
        If IsEmpty(c) Then
            c.Value = Range("c3").Value
            Exit Sub
        End If
    Next c
    End If

    Exit Sub

newcell:
    If Err.Number = 1004 Then
        Range("d4").Select
        Selection.End(xlDown).Offset(1, 0).Value = Range("c3").Value
        Exit Sub
    End If

Og her var det så min tur til at stjæle fra kabbaks første forslag :-)

jkrons - den kan ikke finde tomme D5 hos mig?!?
Men nu vi er i gang - er der et sted man kan finde ud af hvad linie nr. linien blev skrevet?? Bliver det "gemt" et sted??

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
  For Each c In ActiveSheet.Range("d4:d16").Cells
        If IsEmpty(c) Then
            c.Value = Range("c3").Value
            Msgbox "Gemt i " & C.row  ' fortæller rækken
            Exit Sub
        End If
    Next c
End If
End Sub

Den kan sagtens finde en tom D5 hos mig. et er ikke noget i koden, der gemme celleadressen. Og under alel omstændigheder er info væk, når koden er kørt færdig med mindre du gemmer den i en variabel eller i en celle i arket.

Hvis du har brug for at gemme det til senere brug, så tilføje denne linie lige efter linien hvor du skriver i cellen. Så gemmes rækkenummeret i A1.:

Range("a1") = c.Row

1000 tak for jeres deltagelse. Det virker som jeg havde tænkt - men det jeg trode var et let spørgsmål resulterede i 29 indlæg!!

Så endnu engang MANGE TAK!!

selv tak :oP

Velbekomme :-)

Selv på de mest enkle spørgsmål er det muligt at finde komplcerede løsninger :-)