VBA Скопируйте и вставьте одну ячейку определенное количество раз в другой лист - PullRequest
Новая
       35

VBA Скопируйте и вставьте одну ячейку определенное количество раз в другой лист

0 голосов
/ 14 апреля 2020

Я получил некоторый код VBA, который активируется нажатием кнопки. Он копирует и вставляет значения из диапазона ячеек на одном листе в определенное место на другом листе.

Однако я также хотел бы скопировать одну ячейку данных из другого места на исходном листе и скопировать ее. в определенное нет. ячеек в этом другом листе. Я добавил функцию копирования в нижнюю часть функции копирования и вставки значений в приведенном ниже коде. Но я борюсь с этим, так как мой код не работает. Что я делаю не так, пожалуйста, и как я могу это исправить? 

Private Sub CommandButton1_Click()
Dim controlRng, nRng As Range
Set controlRng = Range("AD12")  ' This the range of cells which I have defined to be my dropdown cells.
lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

If controlRng = "Apr-20" Then
    Range("AH10:AM30").Copy
    Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues ' Copy and paste values to next available rows in destination sheet
    Range("AB12").Copy
    Sheets("Planning").Range("A" & lastrow).Resize(14*("A2").Value

1 Ответ

1 голос
/ 14 апреля 2020 
Private Sub CommandButton1_Click()
    Dim controlRng, nRng As Range
    Set controlRng = Range("AD12")

    lastrow = Sheets("Planning").Range("A" & Rows.Count).End(xlUp).Row + 1

    If controlRng = "Apr-20" Then
        Range("AH10:AM30").Copy
        Sheets("Planning").Range("D" & lastrow).PasteSpecial xlPasteValues
        Sheets("Planning").Range("A2").Resize(14, 1) = Range("AB12")
    End If
End Sub
...