Выбрать дату в календареВыбрать дату в календаре

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

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

Если знаете подскажите как сделать?
Вставить данные с ячейки в UserForm
 
Помогите доделать скрипт:
Код
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 макрос - если в одной ячейки есть данные, то заполнить другие ячейки
 
Здравствуйте, есть таблица состоящая из пяти столбцов (№ | 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 страницы при вставке ссылки в ячейку
 
Здравствуйте, как в excel реализовать получение данных с web страницы при вставке ссылки в ячейку?
Есть интернет магазин, нужно скопировать ссылку и вставить в ячейку excel, даные с страницы должны автоматически загрузиться в другие ячейки (название товара, цена, по возможности картинка, но не обязательно).
Как записать значение из textbox в ячейку?
 
Создал форму с текстовым полем (textbox), нужно: когда откроется форма вписать (руками, т.к. номера всегда разные) значение (числового формата 0001072 - 1072 это пример, номер всегда разный) и чтоб после нажатия кнопки Enter форма закрылась и это значение появилось в ячейке J39 .
Изменено: Denis_pog - 21.04.2014 04:14:18
Окно входа с выпадающим списком.
 
Извините, создал новую тему.
Окно входа с выпадающим списком.
 
Помогите еще: создал форму с текстовым полем, нужно: когда откроется форма вписать в нее значение (числового формата 0001072) и чтоб это значение появилось в определенной ячейке.
Автозапуск макроса, при открытии определенного листа
 
Всем спасибо, все работает.
Автозапуск макроса, при открытии определенного листа
 
Здравствуйте, есть рабочая книга, в ней 15 листов, объясните как сделать чтоб макрос запускался автоматически только когда книга открывается на определенном листе? Если книга сохранена на других листах, то при открытии макрос не должен выполнятся.
Окно входа с выпадающим списком.
 
Цитата
ts-79 пишет:
Без кнопки. После выбора сразу закрывается
Спасибо.
Окно входа с выпадающим списком.
 
Как к форме привязать кнопку ОК, что бы выбрал товар и нажал ОК или enter и окно выбора закрылось?
Окно входа с выпадающим списком.
 
Вот это то что нужно было, спасибо.
Окно входа с выпадающим списком.
 
Спасибо.
Окно входа с выпадающим списком.
 
Всем спасибо, нашел в соседней теме, то что нужно
Код
=ЕСЛИ(И(ЕОШ(НАЙТИ({"ГАББРО"};I23)));;"GABBRO")&ЕСЛИ(И(ЕОШ(НАЙТИ({"ГРАНИТА"};I23)));;"GRANITE")&ЕСЛИ(И(ЕОШ(НАЙТИ({"ДИОРИТА"};I23)));;"DIORITE")
Изменено: Denis_pog - 16.04.2014 08:55:26
Окно входа с выпадающим списком.
 
А как ее к ячейке привязать? Извините за такие вопросы, но VBA только не давно начал изучать, с помощью Вашего форума уже многое изучил.
Окно входа с выпадающим списком.
 
Помогите еще не множко, как сделать если в графе А1 Стоит ГАББРО, то в в Графе А3 должны быть GABBRO ?
Окно входа с выпадающим списком.
 
При открытии документа нужно как то пользателя направить на выбор товара, а то при больших объемах работы 100% не всегда будет исправлен товар.
Окно входа с выпадающим списком.
 
Спасибо, разобрался
А как привязать всё к появлявшемся окну?
Окно входа с выпадающим списком.
 
Как я понял, этот макрос нужно привязать к какой то форме?
Окно входа с выпадающим списком.
 
Здравствуйте, помогите написать макрос: нужно чтоб при открытии книги появлялось окно с выпадающим списком (будет 3 значения). После выбора в первой ячейке должно появится выбранное значение, а во второй (справа) и третей (ниже), зависящее значение от первой.
Например: если мы выбрали с выпадающего списка "ГРАНИТ" то на листе первая ячейка (A1) Будет - " ГРАНИТ ", вторая (B1) " 6802931000 ", третья (B2) "6802939000", всего будет три значения, у каждого по два зависящих.

ГРАНИТ - 6802931000  
- 6802939000
ДИОРИТ - 6802991000
               - 6802999000
ГАББРО - 6802991000
              - 6802999000
Изменено: Denis_pog - 07.04.2014 23:37:25
Условное форматирование, если значение больше 0 , после запятой.
 
Цитата
Сергей пишет:
и ваши раскраски закончатся
Пользователь должен видеть, где хвост, чтоб проверить данные в предыдущем документе (его формируем не мы)
Условное форматирование, если значение больше 0 , после запятой.
 
Есть расчетный лист, после его заполнения (данные копируются с одной книги в эту) выводится вес брутто в определенной ячейке, после заполнения пользователь нажимает кнопку, после чего документ сохраняется под определенным именем и распечатываются три документа. Как правило, когда много работы все печатается с хвостами, а потом приходится переделывать, т.к. одну из условий формирования данных документов - брутто должно быть целое, с так же применил форматирование к столбцам с значениями (взял с Вашего примера), чтоб видеть где нужно поправить. Спасибо.
Условное форматирование, если значение больше 0 , после запятой.
 
Всем спасибо, разобрался. Решил так:
ниже вставил формулу =ОСТАТ(K21;1), создал правило: =$K$23>0, применяется к ячейке =$K$21, настроил формат.
Изменено: Denis_pog - 02.04.2014 20:41:25
Условное форматирование, если значение больше 0 , после запятой.
 
Цитата
Сергей пишет: Вот прицепили бы файл вам бы показали
Условное форматирование, если значение больше 0 , после запятой.
 
ZVI, немного не понятно куда вставлять, все перепробовал не получается
Условное форматирование, если значение больше 0 , после запятой.
 
Здравствуйте, есть сумма, которая постоянно меняется, к примеру 62990,00 как применить условное форматирование, если значение после запятой будет больше ноля, т.е. 62990,40 - тогда ячейка должна окраситься в другой цвет?
Сохранение книги в сетевую папку, с именем из определенной ячейки
 
Спасибо, вот так все работает.
Код
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Изменено: Denis_pog - 27.03.2014 19:01:20
Сохранение книги в сетевую папку, с именем из определенной ячейки
 
Здравствуйте, есть макрос, после его выполнения книга должна сохраниться в сетевую папку (откуда она была открыта - \\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 След.
Наверх