Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Добавление данных в конец таблицы на VBA
 
Спасибо))))
Добавление данных в конец таблицы на VBA
 
Помогите, пожалуйста, найти ошибку. Написала макрос на заполнение таблицы данными из другого файла. Проблема в том, что при следующем заполнении происходит замена уже имеющихся данных. А надо что б новые данные добавились ниже.
Код
Sub zzzzz()
Dim Arr(1000, 40)
    MsgBox "Укажите путь к сбыту"
    FilePath1 = Application.GetOpenFilename()
    MsgBox "Укажите путь к заполняемому файлу"
    FilePath2 = Application.GetOpenFilename()
Workbooks.Open Filename:=FilePath1, UpdateLinks:=0
    Range("A65536").Select
    Selection.End(xlUp).Select
    Rowsend1 = ActiveSheet.Cells.Row
    For i = 2 To 1000
    For j = 1 To 35
        Arr(i, j) = ActiveSheet.Cells(i, j).Value
    Next
    Next
ActiveWindow.Close (False)
Workbooks.Open Filename:=FilePath2, UpdateLinks:=0
Worksheets("вся техника").Activate
    Range("A65536").Select
    Selection.End(xlUp).Select
    Rowsend2 = ActiveSheet.Cells.Row + 1
    For i = 2 To 1000
            ActiveSheet.Cells(Rowsend2, 3).Value = Arr(i, 1)
            ActiveSheet.Cells(Rowsend2, 20).Value = Arr(i, 23)
            ActiveSheet.Cells(Rowsend2, 4).Value = Arr(i, 2)
            ActiveSheet.Cells(Rowsend2, 6).Value = Arr(i, 10)
            ActiveSheet.Cells(Rowsend2, 7).Value = Arr(i, 9)
            ActiveSheet.Cells(Rowsend2, 19).Value = Arr(i, 22)
            ActiveSheet.Cells(Rowsend2, 21).Value = Arr(i, 11)
            ActiveSheet.Cells(Rowsend2, 23).Value = Arr(i, 26)
            Rowsend2 = Rowsend2 + 1
    Next

End Sub
Изменено: guri - 26 Янв 2016 14:48:45
Как автоматизировать распределение рабочего времени в табеле
 
Здравствуйте!!!  
Пожалуйста, подскажите можно ли сделать так что бы в табеле, при имеющейся норме рабочего времени на месяц, нормы рабочего времени в день заполнялить автоматически. Проблема в том, что норма в день не может превышать 7ч 40мин, использовать расчет с секундами - нельзя!!! Вот и получается, что при норме 159ч 30мин работник должен работать по 7ч - 2 дн, 7ч30мин - 1 д, 7ч40мин - остальные дни. это каждый раз приходится делать вручную (а нормы то каждый раз разные на каждого сотрудника). можно ли это как-то автоматизировать?    
заранее благодарю за помощь
автоматизация заполнения табеля учета рабочего времени
 
ПОМОГИТЕ!!!  
Пожалуйста, подскажите можно ли сделать так что бы в табеле, при имеющейся норме рабочего времени на месяц, нормы рабочего времени в день заполнялить автоматически. Проблема в том, что норма в день не может превышать 7ч 40мин, использовать расчет с секундами - нельзя!!! Вот и получается, что при норме 159ч 30мин работник должен работать по 7ч - 2 дн, 7ч30мин - 1 д, 7ч40мин - остальные дни. это каждый раз приходится делать вручную (а нормы то каждый раз разные на каждого сотрудника). можно ли это как-то автоматизировать?    
заранее благодарю за помощь
Страницы: 1
Наверх