Tilføj linjeskift automatisk

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("b1").Formula = ""
For i = 1 To Target - 1
Range("b1").Formula = Range("b1").Formula & Chr(10)
Next
End If
End Sub

Prøv at sætte den i arkets modul

skriv så et tal i A1.


er det sådan du vil. ?

Ja næsten. Når jeg skriver i feltet vil jeg gerne kunne gå ned til næste linje i b1 med piltasterne. Nu går den ned til næste celle.

Jeg har løst det med at den automatisk sætter cursor på når man vælger feltet. Det gør jeg med:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.address = "$H$3" or Target.address= "$H$117") Then
        Application.SendKeys ("{F2}{End}")
    End If
End Sub

Nu skal jeg bare lige have den til at gøre det på alle mellem B1 og B40. Dte kan jeg ikke huske hvordan man gør.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A40")) Is Nothing Then
If Target > 0 Then
Target.Offset(0, 1).Formula = ""
For i = 1 To Target - 1
Target.Offset(0, 1).Formula = Range("b1").Formula & Chr(10)
Next
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H3:H117")) Is Nothing Then
          Application.SendKeys ("{F2}{End}")
    End If
End Sub



måske sådan

Ja! Jeg får en fejl når jeg prøver følgende:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1:G110")) Is Nothing Then
If Target > 0 Then
Target.Offset(0, 1).Formula = ""
For i = 1 To Target - 1
Target.Offset(0, 1).Formula = Range("H1:H110").Formula & Chr(10)
Next
End If
End If
End Sub

Det er på Target.Offset(0, 1).Formula = Range("H1:H110").Formula & Chr(10)
jeg får fejl.

skal være
Target.Offset(0, 1).Formula = Target.Offset(0, 1).Formula & Chr(10)

Perfekt :-)
Lægger du et svar så er der velfortjente point til dig :-)

et svar ;-))