Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенос остатков макросом / 4 сообщений из 4, страница 1 из 1
01.08.2020, 08:34
    #39985742
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос остатков макросом
Доброго дня форумчане я уже 10 лет как забыл про макросы и появился вопрос
как перенести остатки расчетов на свободную строку другого листа
На листе X макросом заполняются данные 1) нач остаток из листа Y 2) Приход из листа Дата 3) заполняем вручную конечный остаток
После чего производится расчет столбца Расход и в конце макросом надо конечный остаток перевести на свободную строку листа Y как бы архивируем Спасибо
"Бухгалтера можно уподобить пчеловоду, ибо от его труда - учетной информации - извлекают пользу очень многие, но трудится он один. М.Ф. Ван Бреда"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2020, 08:46
    #39985743
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос остатков макросом
Код: vbnet
1.
2.
3.
Sub test()
    Range("G5").CurrentRegion.Copy Sheets("Y").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub


Зделал так но все копирует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2020, 11:45
    #39985764
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос остатков макросом
Сделал так но что то не так идет
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Ostatok()
    Dim lr As Long
    Dim wsIstochnik As Worksheet
    Dim wsMestoData As Worksheet
    
    Set wsIstochnik = Sheets("X")
    Set wsMestoData = Sheets("Y")
    
    lr = wsMestoData.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    wsMestoData.Range("A" & lr).Value = wsIstochnik.Range("A" & lr).Value
    wsMestoData.Range("B" & lr).Value = wsIstochnik.Range("B" & lr).Value
    wsMestoData.Range("C" & lr).Value = wsIstochnik.Range("C" & lr).Value
    wsMestoData.Range("D" & lr).Value = wsIstochnik.Range("D" & lr).Value
    
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.08.2020, 12:13
    #39985766
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перенос остатков макросом
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub foo()
    Dim lr As Long
    Dim wsIstochnik As Worksheet
    Dim wsMestoData As Worksheet
    
    Set wsIstochnik = Sheets("X")
    Set wsMestoData = Sheets("Y")
    For n = 3 To 100
    lr = wsMestoData.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    wsMestoData.Range("A" & lr).Value = wsIstochnik.Range("A" & n).Value
    wsMestoData.Range("B" & lr).Value = wsIstochnik.Range("B" & n).Value
    wsMestoData.Range("C" & lr).Value = wsIstochnik.Range("C" & n).Value
    wsMestoData.Range("D" & lr).Value = wsIstochnik.Range("G" & n).Value
    Next n
End Sub


Все получилось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенос остатков макросом / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]