Вставка значений ячеек в указанную ячейку

Question

Я полный новичок с Excel VBA. Я пытаюсь создать расписание, в котором на листе «Курсы» представлена ​​вся учебная информация о курсах.

В колонке E используется формула для идентификации ячейки, которая перекрестно ссылается на сотрудника и дату курса.

Столбец K содержит оператор concat (текст & Числовые данные), который должен быть вставлен в нужное место на листе «Календарь» (той же книге).

Кодекс Я до сих пор показано ниже:

Private Sub BtnUpdate_Click() 

Dim w As Variant 
Dim c As Variant 
Dim i As Integer 
Dim n As Integer 

'Application.ScreenUpdating = False 
i = 1 
w = Sheets("Courses").Range("E" & i).Value 
c = Sheets("Courses").Range("K" & i).Value 

Do 
Sheets("Calendar").Range(w).Select 
ActiveCell.Value = c.Value 
Loop While n <> Range("E2").End(xlDown).Row 
'Application.ScreenUpdating = True 

End Sub 

Любое руководство будет высоко оценен.

Answer 1

Не слишком понятно .. но вы можете попробовать это ..

Private Sub BtnUpdate_Click() 

Dim w As Variant 
Dim c As Variant 
Dim i, n As Integer 
Dim r as Range 

Set r = Range("E65536").End(xlup) 

'Application.ScreenUpdating = False 

For i = 1 to r.Row 
    w = Sheets("Courses").Range("E" & i).Value 
    c = Sheets("Courses").Range("K" & i).Value 

    Sheets("Calendar").Range(w).Select 
    ActiveCell.Value = c.Value 

    'Application.ScreenUpdating = True 

Next  
End Sub