Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Люди добрые, помогите, если можете / 5 сообщений из 5, страница 1 из 1
11.10.2007, 21:24:48
    #34864457
DaniilK
DaniilK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Люди добрые, помогите, если можете
Люди добрые, помогите, если можете!
Нужен макрос!
Прилагаю файл-пример.
Смысл файла, это заполнение некой формы и перенос данных в базу.
Хотел автоматизировать этот процесс. То есть после того, как данные внесены хотелось бы, чтобы после нажатия на кнопку "Занести / очистить" данные из строки 22 (лист "ВНЕС") переносились в первую незаполненную строку листа "БАЗ" и после этого происходило бы очистка ("очистить содержимое") столбца B листа "ВНЕС". Все что сам смог сделать, это с помощью сервис-макрос-начать запись и т.д. производить очитку данных (и после этого ячейка B1 – активная – имеется ввиду не режим редактирования ячейки, а чтобы там стояла "рамка")…
Буду очень счастлив, если Вы мне поможете!

В оригинальном файле (там, где бы мне хотелось использовать такой макрос) названия листов, столбцов с данными, количество полей не такие как в файле-примере, то есть, желательно, чтобы макрос был универсальным.
Огромное спасибо, за любую подсказку или помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2007, 21:53:09
    #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, 23:43:57
    #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
| Ответить | Цитировать | Написать  
14.10.2007, 18:48:08
    #34867436
DaniilK
DaniilK
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Люди добрые, помогите, если можете
Подскажие, плиз, как этим воспользоваться?
Куда заходить? Куда что копировать? как это привинтить к кнопке?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2007, 19:29:33
    #34867491
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Люди добрые, помогите, если можете
В файле нажми <Alt> + <F11> , откроется редактор VBE? там будут модули листов и раскрывающаяся группа Modules , открой ее и выбери module1 в нём и есть этот код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Люди добрые, помогите, если можете / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 298ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182111]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 188ms
total:  298ms
x
x
Закрыть


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