Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение 2-ух таблиц одновременно / 13 сообщений из 13, страница 1 из 1
17.01.2007, 16:24:32
    #34262260
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
Есть Форма (таблица) ввожу в нее данные и при нажатие на кнопку архив отправляю данные на другой лист Архив , там идет поиск последней введеной ячейке и производиться копирование данных из Формы в таблицу Архив , теперь возникла необходимость сделать возможным отправки данных в две таблицы одновременно , условно назову ее Архив 2 , чтобы при нажатие кнопки данные отправлялись в две таблицы сразу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2007, 16:28:48
    #34262279
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
хорошая мысль. так будет лучше :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 09:37:13
    #34263553
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
Видать дело трудное, раз все молчат ((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 09:48:06
    #34263587
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
EvrodillerВидать дело трудное, раз все молчат ((
Потому и молчат, что СЛИШКОМ ПРОСТО
Private Sub Worksheet_Change(ByVal Target As Range)
Здесь твой код
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 10:44:11
    #34263828
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
talgat EvrodillerВидать дело трудное, раз все молчат ((
Потому и молчат, что СЛИШКОМ ПРОСТО

2Evrodiller
не понятно о чем спрашиваете, если смог сделать что данные попадают в одну таблицу, в чем проблема, чтоб скопировать пару строк кода и поменять название листа в них?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 15:06:50
    #34265258
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
И в самом деле ступил (( Спасибо, ребята
А можно ли как нить сделать, чтобы перехода (мерцания ) не было видно. Мелочь,но приятно ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 15:15:18
    #34265320
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
избавься от activate или покажи код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 15:34:08
    #34265406
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
Sub Arxiv ()
'Макрос находит последнею пустую ячейку и копирует данные из Формы Накладные (распечатка)
'далее переходит на лист БД и вставляет скопированное в первую пустую ячейку.

If Range("O1") =  1  Then
   
   
For y =  8  To  52  'Строка от 8 до 52
 If Cells(y,  2 ).Value =  0  Then
  Rows(y).Hidden = True
  
  End If
  Next
Dim Rk, Rk0
Rk = Columns("B").Rows( 65000 ).End(xlUp).Row ' определение первой пустой ячейки в колонке А
    Range("A9:O" & Rk).Select
    Selection.Copy
    Sheets("БД").Select
    Rk0 = Columns("B").Rows( 65000 ).End(xlUp).Row
        
    
    Range("A" & Rk0 +  1 ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Sheets("Форма Накладные").Select
    Range("D2").Select
    Application.CutCopyMode = False
    End If
    If Range("O1") =  1  Then
   
   
For y =  8  To  52  'Строка от 8 до 52
 If Cells(y,  2 ).Value =  0  Then
  Rows(y).Hidden = True
  
  End If
  Next
    Dim Rk1, Rk01
Rk1 = Columns("B").Rows( 65000 ).End(xlUp).Row ' определение первой пустой ячейки в колонке А
    Range("A9:O" & Rk).Select
    Selection.Copy
    Sheets("БД1").Select
    Rk01 = Columns("B").Rows( 65000 ).End(xlUp).Row
    
    Range("A" & Rk01 +  1 ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Sheets("Форма Накладные").Select
    Range("D2").Select
    Application.CutCopyMode = False
     End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 15:49:09
    #34265470
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
если копируешь простым копированием, то используй

Код: plaintext
Range1.Copy Destination:=Range2

если специальное копирование, то

Код: plaintext
1.
Range1.Copy
Range2.PasteSpecial

без промежуточных .Select

а самое простое решение - Application.ScreenUpdating = False в начале поставить, а Application.ScreenUpdating = True в конце процедуры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 16:08:16
    #34265543
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
vbaproа самое простое решение - Application.ScreenUpdating = False в начале поставить, а Application.ScreenUpdating = True в конце процедуры

Если не трудно покажите, пжлста на примере данном, чуть не понял куда вставлять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 16:14:05
    #34265561
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
EvrodillerSub Arxiv ()
'Макрос находит последнею пустую ячейку и копирует данные из Формы Накладные (распечатка)
'далее переходит на лист БД и вставляет скопированное в первую пустую ячейку.
Application.ScreenUpdating = False
If Range("O1") = 1 Then


For y = 8 To 52 'Строка от 8 до 52
If Cells(y, 2).Value = 0 Then
Rows(y).Hidden = True

End If
Next
Dim Rk, Rk0
Rk = Columns("B").Rows(65000).End(xlUp).Row ' определение первой пустой ячейки в колонке А
Range("A9:O" & Rk).Select
Selection.Copy
Sheets("БД").Select
Rk0 = Columns("B").Rows(65000).End(xlUp).Row


Range("A" & Rk0 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Форма Накладные").Select
Range("D2").Select
Application.CutCopyMode = False
End If
If Range("O1") = 1 Then


For y = 8 To 52 'Строка от 8 до 52
If Cells(y, 2).Value = 0 Then
Rows(y).Hidden = True

End If
Next
Dim Rk1, Rk01
Rk1 = Columns("B").Rows(65000).End(xlUp).Row ' определение первой пустой ячейки в колонке А
Range("A9:O" & Rk).Select
Selection.Copy
Sheets("БД1").Select
Rk01 = Columns("B").Rows(65000).End(xlUp).Row

Range("A" & Rk01 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Форма Накладные").Select
Range("D2").Select
Application.CutCopyMode = False
End If
Application.ScreenUpdating = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 16:20:12
    #34265582
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
Спасибо огромное... Все просто и идеально
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2007, 16:23:45
    #34265600
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение 2-ух таблиц одновременно
EvrodillerСпасибо огромное... Все просто и идеально
пожалуйста,
:) "просто" - согласен, "идеально" - будет когда избавишься от Select. почитай на форуме, пару раз это обсуждалось, много хороших для парктики мыслей высказывались
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение 2-ух таблиц одновременно / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183619]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 241ms
total:  371ms
x
x
Закрыть


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