ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенос остатков макросом
4 сообщений из 4, страница 1 из 1
Перенос остатков макросом
    #39985742
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Доброго дня форумчане я уже 10 лет как забыл про макросы и появился вопрос
как перенести остатки расчетов на свободную строку другого листа
На листе X макросом заполняются данные 1) нач остаток из листа Y 2) Приход из листа Дата 3) заполняем вручную конечный остаток
После чего производится расчет столбца Расход и в конце макросом надо конечный остаток перевести на свободную строку листа Y как бы архивируем Спасибо
"Бухгалтера можно уподобить пчеловоду, ибо от его труда - учетной информации - извлекают пользу очень многие, но трудится он один. М.Ф. Ван Бреда"
...
Рейтинг: 0 / 0
01.08.2020, 08:34
| Ответить | Цитировать | Написать  
Перенос остатков макросом
    #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, 08:46
| Ответить | Цитировать | Написать  
Перенос остатков макросом
    #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, 11:45
| Ответить | Цитировать | Написать  
Перенос остатков макросом
    #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
01.08.2020, 12:13
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенос остатков макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=prostonik&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 13ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 447ms
total:  600ms
созд. / загр.: 600ms
x
x
Закрыть


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