Введите значение учебника на другом листе - PullRequest
Новая
       9

Введите значение учебника на другом листе

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

У меня есть пользовательская форма на листе под названием «Панель инструментов» и паспорт данных под названием «Микрукс». Предполагается, что каждое значение текстового поля загружается в «микро» лист, проблема в том, что оно загружается в мою активную таблицу «Панель инструментов». Является ли причина моей проблемы причиной WorksheetFunction? Потому что я тоже попробовал что-то вроде этого: 

emptyRow = WorksheetFunction.CountA(Worksheets("Micrux").Range("C:D"))

И он все еще загружается не на тот лист. 

Private Sub CommandButton1_Enter()

    Dim emptyRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Micrux")
    ActiveSheet.Name = "Dashboard"


    If Not IsDate(TextBox3) Then
        MsgBox " Wrong Format (YYYY/MM/DD)"
        TextBox3 = ""
        Exit Sub
    Else

    End If

    emptyRow = WorksheetFunction.CountA(Range("C:D"))

    Cells(emptyRow + 1, 1).Value = TextBox1.Value
    Cells(emptyRow + 1, 2).Value = TextBox2.Value
    Cells(emptyRow + 1, 3).Value = TextBox3.Value


     Unload Me


End Sub
...