VBA Excel посмотреть с переменной - PullRequest
Новая
       7

VBA Excel посмотреть с переменной

0 голосов
/ 05 марта 2019

Каждый месяц я обновляю свой новый устаревший баланс, а затем автоматически создаю новый лист с макросом, который будет фильтровать клиента.

Итак, мои текущие листы: So here are my current sheets

Каждый месяц я слежу за платежами своих клиентов, добавляя комментарии в столбце 10.

На последней странице я хочу добавить старые комментарии после столбца 10, поэтому в столбце 11,12,13 будетстарые комментарии ... То есть будет столько новых столбцов, сколько будет листов клиентов.

Старые комментарии находятся в листах "клиенты 2019-01-31" и "клиенты 2019-02-28" Я хочудобавить их в "клиенты 2019-03-30"

Для этого, я думаю, использование Vlookup было лучшим планом.Но, похоже, у меня слишком много переменных, они не работают:

Ошибка 1004.

Я действительно много чего перепробовал, как объявление листов перед каждой ячейкой, активациялист только раньше.Рабочие листы (Sheets.Count). Активировать

Я не могу заставить его работать.Если что-то не понятно, скажите, пожалуйста, я постараюсь объяснить это лучше. 

Sub Macro1()

Dim nbCustomer ' Customer Number, this value is not fix in my whole program
nbCustomer = 244

Dim numCol ' Column Number
numCol = 11

Dim nbws ' Sheets number
nbws = Sheets.Count

nbws = nbws - 1 ' Because we don't need to lookup on the last page

     While (nbws > 1)

         Dim numL ' Line Number
         numL = 2


              While (numL <= nbCustomer)
              nbCustomer = nbCustomer + 10
              Worksheets(Sheets.Count).Cells(numL, numCol) = Application.VLookup(Cells(numL, 1), Sheets(nbws).Range(Cells(1, 1), Cells(nbCustomer, 10)), 10, False)
              numL = numL + 1
              nbCustomer = nbCustomer - 10
              Wend

         numCol = numCol + 1
         nbws = nbws - 1 ' we will look up our data on the previous sheet

     Wend

End Sub
...