将单元格复制到可变行号的指定工作表中

Question

如何将单元格的内容复制到另一个工作表中具有可变行号的单元格中？

我已经搜索了这个站点，并找到了下面的代码，但是目标工作表中没有出现任何内容。工作表"Koersen“自动更新。"Koersen“中的单元格A19应复制到"ASML”中的单元格A3中，当"Koersen“中的单元格C7发生更改时，应将其复制到"ASML”中的A4中，然后复制到A5、A6等。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Integer
    For x = 3 To 1500
        If Target.Address = "$C$7" Then
            Sheets("Koersen").Cells(19, 1).Copy
            Sheets("ASML").Cells(x, 1).Paste
        End If
    Next x
End Sub

正如你可能已经猜到的，我是个完全的新手，提前感谢VBA。

Answer 1

试一试，虽然我看不清你想要实现什么。

Private Sub Worksheet_Change(ByVal Target As Range) 'if something change in worksheet...
    Dim x As Integer
    Worksheets("ASML").Cells(3, 1) = Worksheets("Koersen").Cells(19, 1) 'make value of ASML A3 equal to Koersen A19
    If Target.Address = "$C$7" Then 'if what have changed is cell C7...
        For x = 3 To 1500
            Worksheets("ASML").Cells(x, 1) = Target.Value '...copy value of Koersen C7 to ASML column A, from row 3 to 1500
        Next x
    End If
End Sub

Answer 2

我相信，每当单元格Koersen!A19更改时，您要做的就是将ASML中的新行复制到C7中。如果是这样的话，下面的代码应该可以工作：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Long
    If Target.Address = "$C$7" Then
        With Sheets("ASML") ' use a With block to save typing
            x = .Cells(.Rows.Count, "A").End(xlUp).Row + 1    
            Sheets("Koersen").Cells(19, "A").Copy .Cells(x, "A")
        End With
    End If
End Sub