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

Страницы: 1 2 След.
Вставить данные с ячейки в UserForm
 
#
29.08.2016 01:13:24
marchenkoan при использовании Вашего макроса появляется ошибка

Изменено: Denis_pog - 29.08.2016 02:00:59
 
Перейти    
Вставить данные с ячейки в UserForm
 
#
28.08.2016 15:29:08
Извините, исправил
 
Перейти    
Вставить данные с ячейки в UserForm
 
#
28.08.2016 07:07:33
Спасибо, будет время займусь, пока достаточно реализовать первый вопрос:
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test") в файле ексел генерируеться 2 значения, и заносятся в ячейки листа, как сделать чтоб с этих ячеек данные подставлялись вместо абв и abc

Если знаете подскажите как сделать?
 
Перейти    
Вставить данные с ячейки в UserForm
 
#
28.08.2016 02:40:31
Помогите доделать скрипт:
Код
Private Sub TextBox2_Change()
If Len(Me.TextBox2) > 10 Then MsgBox "Длина значения больше 10 знаков!!"
End Sub

Private Sub UserForm_Initialize()
Me.TextBox2.Value = "..2016"
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Unload Me
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test")
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
ThisWorkbook.Save
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\Kill_TR.exe")
ThisWorkbook.Close
End If
End Sub


Shell ("C:\Program Files (x86)\Iteamma\Text Replacer\TR.exe tr /files *.sql /findtext абв /replacetext abc /folder D:\test") в файле ексел генерируеться 2 значения, и заносятся в ячейки листа, как сделать чтоб с этих ячеек данные подставлялись вместо абв и abc

p.s.

На данный момент для замены текста я использую программу Text Replace, в идеале было хорошо все сделать на VB:
Нужно проверить все файлы *.sql в определенной папке найти в них текст WAYBILL_date>1470009600 AND WAYBILL_DATE<1472342400 - 1470009600 - дата в unix каждый раз может быть разная и заменить ее на сгенерированное значение из определенной ячейки
------
Изменено: Denis_pog - 28.08.2016 15:27:22
 
Перейти    
Excel макрос - если в одной ячейки есть данные, то заполнить другие ячейки
 
#
23.01.2015 07:21:07
Здравствуйте, есть таблица состоящая из пяти столбцов (№ | 111 |  от | 24.02.2014| ; ), из них 1,3 и 5 столбец заполнен всегда (№ , от ,  ;)  , строк примерно 10-15 штук (всегда по разному),  данные  № | 111 |  от | 24.02.2014| ; собираются в последний столбец в единый номер | № 111 от 24.02.2014 ; | , потом все номера собираются в одну ячейку на другом листе, т.к. 1, 3 и 5 столбец постоянно заполнены получается следующее  № 111 от 24.02.2014 ; № 222 от 24.02.2014 ;  № 333 от 24.02.2014 ;  №  от  ; и т.д.

Подскажите как сделать если в 2 столбце появись то поставить данные в столбец 1 - №, в 3 - от, в 5 - ;    
если удалить данные то ячейки 1, 3, 5 должны очиститься ?
 
Перейти    
Получение данных с web страницы при вставке ссылки в ячейку
 
#
04.06.2014 01:49:46
Здравствуйте, как в excel реализовать получение данных с web страницы при вставке ссылки в ячейку?
Есть интернет магазин, нужно скопировать ссылку и вставить в ячейку excel, даные с страницы должны автоматически загрузиться в другие ячейки (название товара, цена, по возможности картинка, но не обязательно).
 
Перейти    
Как записать значение из textbox в ячейку?
 
#
21.04.2014 03:50:54
Создал форму с текстовым полем (textbox), нужно: когда откроется форма вписать (руками, т.к. номера всегда разные) значение (числового формата 0001072 - 1072 это пример, номер всегда разный) и чтоб после нажатия кнопки Enter форма закрылась и это значение появилось в ячейке J39 .
Изменено: Denis_pog - 21.04.2014 04:14:18
 
Перейти    
Окно входа с выпадающим списком.
 
#
21.04.2014 03:30:39
Извините, создал новую тему.
 
Перейти    
Окно входа с выпадающим списком.
 
#
17.04.2014 10:01:12
Помогите еще: создал форму с текстовым полем, нужно: когда откроется форма вписать в нее значение (числового формата 0001072) и чтоб это значение появилось в определенной ячейке.
 
Перейти    
Автозапуск макроса, при открытии определенного листа
 
#
17.04.2014 03:33:51
Всем спасибо, все работает.
 
Перейти    
Автозапуск макроса, при открытии определенного листа
 
#
17.04.2014 03:12:37
Здравствуйте, есть рабочая книга, в ней 15 листов, объясните как сделать чтоб макрос запускался автоматически только когда книга открывается на определенном листе? Если книга сохранена на других листах, то при открытии макрос не должен выполнятся.
 
Перейти    
Окно входа с выпадающим списком.
 
#
16.04.2014 02:25:42
Цитата
ts-79 пишет:
Без кнопки. После выбора сразу закрывается
Спасибо.
 
Перейти    
Окно входа с выпадающим списком.
 
#
12.04.2014 09:30:49
Как к форме привязать кнопку ОК, что бы выбрал товар и нажал ОК или enter и окно выбора закрылось?
 
Перейти    
Окно входа с выпадающим списком.
 
#
12.04.2014 06:41:17
Вот это то что нужно было, спасибо.
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 09:54:42
Спасибо.
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 08:58:35
Всем спасибо, нашел в соседней теме, то что нужно
Код
=ЕСЛИ(И(ЕОШ(НАЙТИ({"ГАББРО"};I23)));;"GABBRO")&ЕСЛИ(И(ЕОШ(НАЙТИ({"ГРАНИТА"};I23)));;"GRANITE")&ЕСЛИ(И(ЕОШ(НАЙТИ({"ДИОРИТА"};I23)));;"DIORITE")
Изменено: Denis_pog - 16.04.2014 08:55:26
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 08:33:57
А как ее к ячейке привязать? Извините за такие вопросы, но VBA только не давно начал изучать, с помощью Вашего форума уже многое изучил.
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 07:46:33
Помогите еще не множко, как сделать если в графе А1 Стоит ГАББРО, то в в Графе А3 должны быть GABBRO ?
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 05:00:24
При открытии документа нужно как то пользателя направить на выбор товара, а то при больших объемах работы 100% не всегда будет исправлен товар.
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 04:55:28
Спасибо, разобрался
А как привязать всё к появлявшемся окну?
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 04:23:19
Как я понял, этот макрос нужно привязать к какой то форме?
 
Перейти    
Окно входа с выпадающим списком.
 
#
07.04.2014 03:05:39
Здравствуйте, помогите написать макрос: нужно чтоб при открытии книги появлялось окно с выпадающим списком (будет 3 значения). После выбора в первой ячейке должно появится выбранное значение, а во второй (справа) и третей (ниже), зависящее значение от первой.
Например: если мы выбрали с выпадающего списка "ГРАНИТ" то на листе первая ячейка (A1) Будет - " ГРАНИТ ", вторая (B1) " 6802931000 ", третья (B2) "6802939000", всего будет три значения, у каждого по два зависящих.

ГРАНИТ - 6802931000  
- 6802939000
ДИОРИТ - 6802991000
               - 6802999000
ГАББРО - 6802991000
              - 6802999000
Изменено: Denis_pog - 07.04.2014 23:37:25
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 09:33:27
Цитата
Сергей пишет:
и ваши раскраски закончатся
Пользователь должен видеть, где хвост, чтоб проверить данные в предыдущем документе (его формируем не мы)
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 09:14:45
Есть расчетный лист, после его заполнения (данные копируются с одной книги в эту) выводится вес брутто в определенной ячейке, после заполнения пользователь нажимает кнопку, после чего документ сохраняется под определенным именем и распечатываются три документа. Как правило, когда много работы все печатается с хвостами, а потом приходится переделывать, т.к. одну из условий формирования данных документов - брутто должно быть целое, с так же применил форматирование к столбцам с значениями (взял с Вашего примера), чтоб видеть где нужно поправить. Спасибо.
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 08:53:16
Всем спасибо, разобрался. Решил так:
ниже вставил формулу =ОСТАТ(K21;1), создал правило: =$K$23>0, применяется к ячейке =$K$21, настроил формат.
Изменено: Denis_pog - 02.04.2014 20:41:25
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 08:45:50
Цитата
Сергей пишет: Вот прицепили бы файл вам бы показали
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 08:31:11
ZVI, немного не понятно куда вставлять, все перепробовал не получается
 
Перейти    
Условное форматирование, если значение больше 0 , после запятой.
 
#
02.04.2014 04:41:29
Здравствуйте, есть сумма, которая постоянно меняется, к примеру 62990,00 как применить условное форматирование, если значение после запятой будет больше ноля, т.е. 62990,40 - тогда ячейка должна окраситься в другой цвет?
 
Перейти    
Сохранение книги в сетевую папку, с именем из определенной ячейки
 
#
27.03.2014 09:53:54
Спасибо, вот так все работает.
Код
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Изменено: Denis_pog - 27.03.2014 19:01:20
 
Перейти    
Сохранение книги в сетевую папку, с именем из определенной ячейки
 
#
27.03.2014 06:48:48
Здравствуйте, есть макрос, после его выполнения книга должна сохраниться в сетевую папку (откуда она была открыта - \\Serverlex\FAILS (D)\Мои документы\КОМПАНИИ\Хик\Август-сентябрь\Документы 2014\ГАББРО) , она сохраняется но не всегда, через раз, то в папке Мои документы, то в сетевой.


Код
Sub WPrintButton_Click()
Worksheets("Упаковочный").Range("A1:H35").PrintOut Copies:=2
Worksheets("Инвойс").Range("A1:I39").PrintOut Copies:=2
Worksheets("Приложение").Range("A1:H50").PrintOut Copies:=3
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Sheets("ДТ").Select
MsgBox "Документы сохранены и распечатаны, заполняйте декларацию!", vbExclamation
End Sub

Объясните что сделал не так?
 
Перейти    
Страницы: 1 2 След.
Наверх