ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 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/topic.php?fid=61&msg=39985766&tid=2171856]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 12ms
total:  133ms
созд. / загр.: 133ms
x
x
Закрыть


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