Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » mikle63
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перенос данных из таблицы на другой лист по условию.
 
#
01.06.2014 11:55:03
Спасибо. Все заработало на 5+.
 
Перейти    
Перенос данных из таблицы на другой лист по условию.
 
#
01.06.2014 09:57:20
Всем добрый день. Стоит задача:
1. Выбрать из таблицы строки отвечающие условию "выполнено" и скопировать их на Лист2, с последующим удалением с Листа1.
2. Нумерация на Листе1 и на Листе2 должна измениться.
3. Диапазоны с условием "выполнено" будут добавляться  и меняться.
Что не так в модуле, почему не работает.
 
Перейти    
Буфер обмена и TextBox
 
#
27.05.2014 12:09:07
Спасибо всем кто ответил. Вариант который предложил Игорь подходит на 100%. Если честно о Ctrl+V не знал, возьму на заметку. Еще раз спасибо. Тема закрыта.
 
Перейти    
Буфер обмена и TextBox
 
#
27.05.2014 07:31:06
Есть форма на ней есть TextBox, для ввода данных с клавиатуры, но часто необходимо вставить данные из буфера обмена. Как программно по правому клику мыши вызвать контекстное меню и ввести данные из буфера обмена?  
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 20:01:12
Прикрепил.
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 19:24:03
Ругается при клике по кнопке "заполнить". Пишет указанный файл не найден.

Код
With ActiveSheet
     LastRow = .Cells(65536, 1).End(xlUp).Row     'ïîñëåäíÿÿ ñòðîêà òàáëèöû â ñòîëáöå 1
     nom = .Cells(LastRow - 1, 1)
     If Cells(6, 1) <> "" Then
     .Rows(LastRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     Else
     LastRow = LastRow - 1
     End If
     .Cells(LastRow, 1).FormulaR1C1 = "=IF(RC[2]="""","""",row()-5)" ' ñëåäóþùèé íîìåð
     .Cells(LastRow, 2).Value = TextBox1.Text
     .Cells(LastRow, 3).Value = TextBox2.Text
     .Cells(LastRow, 14).Value = TextBox3.Text
     .Cells(LastRow, 2).AddComment.Shape.Fill.UserPicture y
     
     End With
Что не так?
Изменено: mikle63 - 26.05.2014 19:27:08
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 18:14:52
Большое спасибо. Все работает. А можно этот рисунок из формы вставить в примечание?
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 16:10:06
Первый вопрос решен. спасибо. А есть идей по второму?
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 16:04:16
Сори все окей. спасибо.
Изменено: mikle63 - 26.05.2014 16:06:19
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 15:53:01
Так строку надо убрать или как изменить, чтобы ввод был изначально в TextBox, а по клику заполнить даты из TextBox переносились в указанные ячейки.
 
Перейти    
Заполнение таблицы из формы
 
#
26.05.2014 15:24:07
Добрый день. Есть таблица с формой заполнения. Возникли трудности:
1. При активации заказа в ComboBox1 из определенных ячеек "дат" заполняются TextBox(5,6,7,8). В последующем данные в ячейках надо менять или добавлять введением из Календаря соответствующих дат, но при вводе из календаря даты в TextBox (5,6,7,8) эта дата сразу добавляется в активную ячейку, а надо по клику кнопки "Внести изменения" и даты должны вводиться в соответствующие им ячейки.
2. Как программно добавить в комментарий выбранный рисунок, чтобы он в начале появился в TextBox4  по клику кнопки "выбрать из файла", а затем по клику кнопки "заполнить" добавился как комментарий в ячейку.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 23:29:27
Спасибо это оно. Тема закрыта.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 23:18:41
Если можно, еще вопрос. Это диапазон Опера открывает все страницы в этом диапазоне, а надо только активной ячейки.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 23:08:35
Спасибо. Все сработало.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 22:52:13
Отлично все работает. Спасибо.
Только еще вопрос:
Вместо определенной ссылки  "http://www.planetaexcel.ru", надо задать адрес который будет находиться в ячейке. Адреса будут меняться.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 22:37:21
Вот такой код тоже не работает:
Код
 Range("N7".Select
 Shell("c:\Program Files (x86)\Opera\Opera.exe" & "http://www.planetaexcel.ru", vbNormalNoFocus)
И надо именно Опера.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 22:27:26
В этом примере ссылка на определенный сайт и страницу, а мне надо так чтобы ссылки в ячейке менялись.
 
Перейти    
Переход из Excel по ссылке в Опере
 
#
24.05.2014 20:46:16
Как запустить Оперу понятно:
Код
 Range("N7").Select
 Shell "c:\Program Files (x86)\Opera\Opera.exe"
А как теперь прописать ссылку на определенную страницу?
Опера запускается на Экспресс - странице.
Изменено: mikle63 - 24.05.2014 21:16:43
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 14:20:21
Это то что нужно. Спасибо. А говорите новичек. Класс. Может еще, что подскажете по модернизации этого документа. Буду благодарен.
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 13:54:47
Да большое спасибо, я уже просмотрел и где можно изменил. Но при этом перед строкой итогов выскакивает пустая строка, как с этим бороться?
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 13:00:47
Цитата
mikle63 пишет:
А Вы можете подробнее обьяснить, в чем разница. Я с VBA только начинаю.
Спасибо. С этим разобрался, вводим формулу с условием ЕСЛИ.
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 12:49:37
Цитата
V пишет: .Cells(LastRow - 1,  8)  .FormulaR1C1 = "=IF(RC[-2]="""","""",PRODUCT(RC5,RC6,RC7))"
Цитата
V пишет: .Cells(LastRow - 1, 2).FormulaR1C1 = "=IF(RC[4]="""","""",row()-3)"
А Вы можете подробнее обьяснить, в чем разница. Я с VBA только начинаю.
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 12:40:30
Прошу прощения, не обратил внимания. Да с этим кодом работает. Но при этом выплывает следующая проблема, при попытке удаления записи или очистки строк в ComboBox2 и ComboBox3 не вносится строка с порядковым номером 1.
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 12:19:57
Изменение в коде:
.Cells(LastRow, 2).FormulaR1C1 = "=row()-3" ' следующий номер
Приводит только к тому что в первой строке появляется порядковый номер строки 1, а данные в остальные столбцы не вносятся. данные вносятся в следующую строку под порядковым номером 2 и так далее. Я это уже пробовал.
 
Перейти    
Вставка новой строки в таблицу
 
#
09.04.2014 11:57:25
Добрый день. Есть таблица, при вводе данных таблица заполняется не с первой строки, а со второй. Как сделать чтобы после очистки таблицы, заполнение шло с первой строки, под заголовком. Прошу сильно не судить, документ составлял сам, на основе примеров с форума.
 
Перейти    
Страницы: 1
Наверх