VBA-løkker mv.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cnum As String, lCount As Long
    If Target.Column = 2 And Target.Row = 3 Then
        cnum = Chr(Val(Target.Text) + 66)
        Me.Range(cnum & "78").Select
        For lCount = 0 To 36
            Me.Range(cnum & Cstr(78 + lCount).Value = _
Worksheets("Ark4").Range("A" & Cstr
        Next lCount
    End If
End Sub

http://www.eksperten.dk/spm/170473

Undskyld ovenstående var en fejlbetjening - her har jeg fået skrevet færdig.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cnum As String, lCount As Long
    If Target.Column = 2 And Target.Row = 3 Then
        cnum = Chr(Val(Target.Text) + 66)
        Me.Range(cnum & "78").Select
        For lCount = 0 To 36
            Me.Range(cnum & Cstr(78 + lCount)).Value = _
                Worksheets("Ark4").Range("A" & Cstr(lCount + 1)).Value
        Next lCount
    End If
End Sub

medions>> du henviser til det svar, som slejpnir har fået en gang, og som også nævnes dette spørgsmål !

Det ser godt ud, men der efterlades ikke noget af det, der er kopieret. Jeg har forsøgt med

ActiveSheet.Paste
                Application.CutCopyMode = False
men vba gør vrøvl over "activesheet.paste"
Hvordan får jeg den til at slippe det kopierede?

Disse linier skulle gerne sætte Ark4 "A1:A37" ind i dit ark:
    For lCount = 0 To 36
        Me.Range(cnum & Cstr(78 + lCount)).Value = _
            Worksheets("Ark4").Range("A" & Cstr(lCount + 1)).Value
    Next lCount

Hvis ikke det løser det, så prøv
    Me.Paste
Me ( betyder det ark, som den har fat i, men kun når du koder på selve arket)

Jeg forstår ikke et suk af de koder I laver, og jeg kan se noget i koderne der gør, at der skulle blive kopieret fra ark4(a1.a37)til ark1??? Jeg har prøvet følgende:
ark4.Range("a1.a37").Select
Selection.Copy
If Sheets("bilag").Range("b1") = 1 Then
Sheets("ark1").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
copierer indholdet til ark 1, men starter alle andre steder med at indsætte end i række 78???

flemmingdahl> DOH.. *G* well, det skulle gå stærkt... ;-)

//>Rune

Med forklaring.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cnum As String, lCount As Long
  If Target.Column = 2 And Target.Row = 3 Then
    cnum = Chr(Val(Target.Text) + 66)
    Me.Range(cnum & "78").Select
    'Du skal have 37 celler fra Ark4. 0 To 36 er 37 værdier - OK
    For lCount = 0 To 36
      'I ark1 kolonne cnum og række 78+lCount-værdien bliver indholdet(Value) sat ligmed Ark4 kolonne A række lCount+1 - det er altså en Copy uden at bruge Copy - det burde virke.
      Me.Range(cnum & Cstr(78 + lCount)).Value = _
        Worksheets("Ark4").Range("A" & Cstr(lCount + 1)).Value
    Next lCount
  End If
End Sub

Hjalp det ? ellers må du lige sende mig arket fd@win-consult.com

Foreløbig tak, Flemming, jeg får ikke set mere på det i aften(gæster). Vender tilbage i morgen formiddag.

>Jeg har fundet løsningen. Jeg skal bare lade være med at blande mine egne koder sammen med jeres!:o))Alt fungerer perfekt. Mange tak for hjælpen.

hehe - håber også at du forstod lidt af det :-)