ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Люди добрые, помогите, если можете
5 сообщений из 5, страница 1 из 1
Люди добрые, помогите, если можете
    #34864457
DaniilK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DaniilK
Участник
Люди добрые, помогите, если можете!
Нужен макрос!
Прилагаю файл-пример.
Смысл файла, это заполнение некой формы и перенос данных в базу.
Хотел автоматизировать этот процесс. То есть после того, как данные внесены хотелось бы, чтобы после нажатия на кнопку "Занести / очистить" данные из строки 22 (лист "ВНЕС") переносились в первую незаполненную строку листа "БАЗ" и после этого происходило бы очистка ("очистить содержимое") столбца B листа "ВНЕС". Все что сам смог сделать, это с помощью сервис-макрос-начать запись и т.д. производить очитку данных (и после этого ячейка B1 – активная – имеется ввиду не режим редактирования ячейки, а чтобы там стояла "рамка")…
Буду очень счастлив, если Вы мне поможете!

В оригинальном файле (там, где бы мне хотелось использовать такой макрос) названия листов, столбцов с данными, количество полей не такие как в файле-примере, то есть, желательно, чтобы макрос был универсальным.
Огромное спасибо, за любую подсказку или помощь!
...
Рейтинг: 0 / 0
11.10.2007, 21:24:48
| Ответить | Цитировать | Написать  
Люди добрые, помогите, если можете
    #34864485
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
Точно не знаю, но попробуйте что-нибудь такое

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub Макрос1()
Dim iLastRow&
    Range("C22:V22").Copy
    With Sheets("БАЗ")
        iLastRow = .Cells( 65536 ,  3 ).End(xlUp).Row +  1 
        .Range("C" & iLastRow).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
    Columns("B:B").ClearContents
    Range("B1").Select
End Sub
...
Рейтинг: 0 / 0
11.10.2007, 21:53:09
| Ответить | Цитировать | Написать  
Люди добрые, помогите, если можете
    #34864593
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Транспонируйте в коде, зачем это делать на листе

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Test()
Dim myRng As Range, svodSh As Worksheet
    Set myRng = ActiveSheet.Range("B1:B20")
    Set svodSh = Sheets("БАЗ")
    svodSh.Cells(svodSh.Rows.Count,  3 ).End(xlUp) _
         .Offset( 1 ).Resize(, myRng.Rows.Count).Value = _
         WorksheetFunction.Transpose(myRng)
    myRng.ClearContents
    myRng( 1 ).Select
End Sub
...
Рейтинг: 0 / 0
11.10.2007, 23:43:57
| Ответить | Цитировать | Написать  
Люди добрые, помогите, если можете
    #34867436
DaniilK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DaniilK
Участник
Подскажие, плиз, как этим воспользоваться?
Куда заходить? Куда что копировать? как это привинтить к кнопке?
...
Рейтинг: 0 / 0
14.10.2007, 18:48:08
| Ответить | Цитировать | Написать  
Люди добрые, помогите, если можете
    #34867491
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
В файле нажми <Alt> + <F11> , откроется редактор VBE? там будут модули листов и раскрывающаяся группа Modules , открой ее и выбери module1 в нём и есть этот код.
...
Рейтинг: 0 / 0
14.10.2007, 19:29:33
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Люди добрые, помогите, если можете
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2182111]:
 0ms
get settings:
 13ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 216ms
total:  314ms
созд. / загр.: 314ms
x
x
Закрыть


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