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

Страницы: 1 2 След.
Макрос – «Сохранить как»
 
#
14.06.2013 00:19:49
Igor67,
strPath = ThisWorkbook.Path
почему-то сохраняет на рабочий стол, хотя файл с макросом в папке...
 
Перейти    
Макрос – «Сохранить как»
 
#
14.06.2013 00:15:55
KuklP,
Application.ThisWorkbook.Path не работает... выбивает ошибку
 
Перейти    
Макрос – «Сохранить как»
 
#
13.06.2013 17:50:52
Igor67, "не зарывайся рогалик"  ;)
лучше помоги с циклопом каким-то и с первым вопросом...  :)
 
Перейти    
Макрос – «Сохранить как»
 
#
13.06.2013 03:21:37
Ответ на вопрос №2:
А2 - Имя папки которую нужно будет создать
В2 - Имя листа
Код
Sub CreateFolder_SaveAs()
On Error Resume Next
oCell = Range("A2")
If Not IsEmpty(oCell) Then MkDir "C:\Users\NewLife\Music\" & oCell
ChDir "C:\Users\NewLife\Music\" & [A2]
ActiveWorkbook.SaveAs [B2]
End Sub

Работает отлично, но подозреваю что тут есть что-то лишнее.  :|  
Изменено: [VERONIKA] - 13.06.2013 03:37:35
 
Перейти    
Макрос – «Сохранить как»
 
#
12.06.2013 22:54:20
Вы же видите что это было прямое высмеивание, с умыслом мол я какая-то дурочка и не умею пользоватся поиском.
Извините если я не правильно поняла, сегодня не самый лучший день...

Да ладно, проехали... мы тут не для того чтобы выяснять отношения.
Я все еще надеюсь на помощь.  :)

 
Перейти    
Макрос – «Сохранить как»
 
#
12.06.2013 22:28:32
Mr. Igor67,
Не обезательно выплескивать потоки негатива когда общаешся с людьми  ;)  
эта статья не дает ответа ни на один из моих вопросов.
Изменено: [VERONIKA] - 12.06.2013 22:34:42
 
Перейти    
Макрос – «Сохранить как»
 
#
12.06.2013 21:56:21
Ivan.kh,
к сожалению не работает...
 
Перейти    
Макрос – «Сохранить как»
 
#
12.06.2013 20:45:01
Если так, то сохраняет на рабочий стол. (Понятия не имею почему)
Код
Sub SaveAs1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [AZ32]
Application.DisplayAlerts = True
End Sub

А если так, то сохраняет в указаную папку.
Код
Sub SaveAs2()
Application.DisplayAlerts = False
ChDir "C:\Users\Вероника\Документы"
ActiveWorkbook.SaveAs [AZ32]
Application.DisplayAlerts = True
End Sub

Вопрос:
1. А как сделать чтобы он сохранял в ту папку, из которой я его открыла?
2. А еще как сделать чтобы он создавал новую папку в том месте где я ему укажу, и сохранял документ там?

К примеру, я хочу чтобы он создавал новую папку именем ячейки А1,
по адресу "C:\Users\Вероника\Документы\ (имя с ячейки А1)"
Изменено: [VERONIKA] - 12.06.2013 21:11:07
 
Перейти    
Макрос для закрытия книги + самой программы Эксель.
 
#
12.06.2013 03:45:10
ikki,
все что мне нужно было это
Код
Application.Quit
 
Перейти    
Макрос для закрытия книги + самой программы Эксель.
 
#
11.06.2013 10:40:21
Johny,
Сто лет искала как это сделать и не могла найти, а только задала этот вопрос, так тут же и ответ нашла...
точно такой же как и вы написали...  8)

Все равно большое спасибо за помощь!

Не думаю что фотка как-то повлияет на скорость ответов  :) просто она мне очень нравится...
 
Перейти    
Макрос для закрытия книги + самой программы Эксель.
 
#
11.06.2013 10:25:55
Есть очень простой макрос, который закрывает книгу.

Код
Sub CloseWorkbook()
Application.ActiveWorkbook.Close
End Sub

Но сама программа Эксель продолжает работать?
Как исправить макрос, чтобы он закрывал все листы и саму программу тоже?
 
Перейти    
Проверка имени листа
 
#
08.06.2013 22:28:48
у меня Эксель 2013, макрос работает...
жаль что он автоматически не запускается...
 
Перейти    
Как бороться с лимитом знаков в формуле?
 
#
08.06.2013 21:56:39
Слэн,
К сожалению, я не умею макросы писать…
А в интернете ничего подобного нет.
 
Перейти    
Как бороться с лимитом знаков в формуле?
 
#
08.06.2013 21:54:07
Hugo,
Этот пример тоже не работает. Как только я написала немного текста, и добавила получателей тут же вылезла ошибка #ЗНАЧ  :cry:
 
Перейти    
Как бороться с лимитом знаков в формуле?
 
#
08.06.2013 10:14:38
vikttur,
Я пробовала использовать формулу СЦЕПИТЬ, -
разбила формулу на 3 части, в самой формуле знаков было очень мало, но видимо считаются все те знаки что в ячейках…
так как эффект тот же (не работает)
 
Перейти    
Как бороться с лимитом знаков в формуле?
 
#
08.06.2013 09:53:28
vikttur,
Цель не в том чтобы отправлять письма через Эксель, иначе я бы использовала Outlook или что-либо другое.

Есть Эксель в котором будет много информации, но отправить нужно будет только некоторые ячейки.
И для того чтобы не копировать все это вручную, хотелось бы создать кнопочку, при нажатии которой все автоматически скопировалось и отправилось нужным людям…

Жаль, что не получается этой формулой, так как она очень проста в использовании.
Может кто-то знает другой вариант?  :?:
 
Перейти    
Как бороться с лимитом знаков в формуле?
 
#
08.06.2013 04:57:51
Формула для того чтобы отправлять письма через Эксель.

Работает отлично если общее количество знаков не превышает лимита.
(Вроде бы до 250 знаков, если не ошибаюсь…)
Но как только я добавляю текст, или получателей – выбивает ошибку #ЗНАЧ

Нужен острый ум и умелые руки!  :idea:  
 
Перейти    
Нужен VBA код для вычисления 10% от числа.
 
#
02.06.2013 08:52:08
Получилось!

Цитата
Private Sub Worksheet_Change(ByVal Target As Range)
Set nRng = Range("A1:A10")
tr = Target.Row
tc = Target.Column
If Intersect(Target, nRng) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Target.Offset(, 1).Clear
With Cells(tr, tc)
If .Value > 0 Then
.Offset(, 1).Value = .Value * 0.1
Else
.Offset(, 1).Value = ""
End If
End With
End Sub

 
Перейти    
Нужен VBA код для вычисления 10% от числа.
 
#
02.06.2013 08:37:11
Sanja,
Не работает...
Он думает что *.1 это текст
 
Перейти    
Нужен VBA код для вычисления 10% от числа.
 
#
02.06.2013 08:17:51
Помогите пожалуйста доработать это:
Цитата

Private Sub Worksheet_Change(ByVal Target As Range)
Set nRng = Range("A1:A10")
   tr = Target.Row
   tc = Target.Column
   If Intersect(Target, nRng) Is Nothing Then Exit Sub
   If IsEmpty(Target) Then Target.Offset(, 1).Clear
   If Cells(tr, tc).Value > 0 Then
       Cells(tr, tc).Offset(, 1).Value = "*.1"
   End If
End Sub
 
Перейти    
Нужен VBA код для вычисления 10% от числа.
 
#
02.06.2013 08:01:32
KuklP,
Работает только если

Цитата
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[c2:c10] = [a2:a10*.1]
End Sub

Но мне не нравится, что если в ячейках А ничего нет, то в ячейках С показаны нули.
Можно ли их как-то убрать?
 
Перейти    
Нужен VBA код для вычисления 10% от числа.
 
#
02.06.2013 07:26:23

Нужен код для VBA, чтобы в ячейках С2:С10 показывались 10% от ячеек А2:А10.
Формулу использовать нельзя, нужен код.
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 22:29:12
The_Prist,
Простите тупую блондинку...  :{}
Скачала, все сделала. Все работает! Суппер!!!
Ой спасибочки вам огромное  ;)
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 22:08:34
The_Prist, класная ссылка, все доступно и понятно...
но у меня выбивает ошибку #имя?  :(
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 20:59:34
Цитата
KuklP пишет:
не кощунствуйте!

хаха, а что это значит?  :D

Цитата
KuklP пишет:
Читайте Правила и выкладывайте пример с Вашими попытками. Раз уж слабО готовыми решениями воспользоваться.

так я же выставила свой пример.
просто у меня не получается сделать чтобы все это заработало...
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 17:58:48
LVL,
Что-то у меня не получается.
Можно пример? А то может я что-то не так делаю....  :(
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 10:04:30
пример
Изменено: VeroNika_xxx - 31.05.2013 10:46:04
 
Перейти    
Как удалить цифры с ячейки, оставив только текст?
 
#
31.05.2013 09:46:54
В данном случае текст слева а цифры справа.
Но если можно, я бы хотела узнать разные варианты...
Спасибки всем  :)
 
Перейти    
Как сделать чтобы формула не удалялась при введении данных?
 
#
29.05.2013 10:07:08
В ячейках А1:А10 работает макрос. (Лист1)
Можно ли сделать так чтобы этот макрос базировался на списке (Лист2)
И если я изменю список, (изменю/добавлю/удалю) то макрос тоже должен изменится….
 
Перейти    
Ввод данных в ячейку без потери формулы
 
#
29.05.2013 02:30:52
Недавно узнала про макросы  8)
Клевая вещь!
 
Перейти    
Страницы: 1 2 След.
Наверх