добый день! Все с праздником!!!!  
помогите плиз изменить макрос так чтобы при сохранении кипии он проверял сколько кипий уже имеется и если их 20 то заменял самую раннюю. вот макрос:  
 
  Dim x As String  
   strPath = "c:\Резервные копии Журнала по Ипотеке"  
   On Error Resume Next  
   x = GetAttr(strPath) And 0  
   If Err = 0 Then ' если путь существует - сохраняем копию книги  
       strDate = Format(Now, "dd/mm/yy hh-mm")  
       FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _  
            Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xls"  
       ActiveWorkbook.SaveCopyAs Filename:=FileNameXls  
   Else 'если путь не существует - выводим сообщение  
       MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical  
   End If

Добрый вечер! надо чтобы макрос удалял строки если в 9 столбце, в строках с 15 по 200 значение равно "0"  
Т.е. Если в ячейке "i" значение "0" то вся строка удаляется  
почемуто не получается( исправьте плиз  
 
Dim i As Long  
For i = 15 To 200  
If Cells(i, 9).Value = "0" Then  
Rows("i:9").Delete Shift:=xlUp  
End If

Добрый день! при копировании в новую книгу не получается очистить содержание столбцов G:L в новой книге (2 нижние строчки применяются к файлу с которого происходило копирование, а не к новому). Помогите исправить)  
 
Cells.Copy  
  Workbooks.Add  
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _  
       SkipBlanks:=False, Transpose:=False  
  Columns("G:L").ClearContents  
  Columns("G:L").UnMerge

Добрый вечер! Надо чтобы формула с ячейки А6 копировалась до последней заполненой строки в колонке В, почемуто не получается( поправьте пожалуйста.  
 
Sub 111  
Dim LastRow As Long  
Application.ScreenUpdating = False  
astRow = Cells(Rows.Count, 2).End(xlUp).Row  
Cells(LastRow + 1, 1) = Application.WorksheetFunction.AutoFill Destination:=Range("A6:A48"), Type:=xlFillDefault  
 Application.ScreenUpdating = True  
End Sub

Надо, чтобы макрос определял есть ли значение в ячейке (колонка H),    
Если ячейка пуста, то вся строка скрывалась, а если есть отображалась  
вот что пишу    
 
Sub Kopir()  
Dim i As Long  
Rows(1:207).EntireRow.Hidden = False  
For i = 7 To 200  
If Hi.Value = "" Then  
Rows(i).EntireRow.Hidden = True  
end if  
end sub  
 
как правильно написать?

Условие:  
1. Есть файл №1 // сохранен на рабочем столе (может быть и вдругом месте)  
2. Есть файл №2 , который всегда находится C:\  
3. файлы разные - файл №1 - исходная информация ; Файл №2 - Журнал учета  
Задача:  
Нужен макрос (будет активироваться в Файле №1 при нажатии на кнопку) который скопирует значения из ячеек A2, C4 и B6 в файл №2 в ячейки B3, C3, D3 (соответственно)на лист Журнал, при этом если данные ячейки уже заняты то на стоку ниже (B4, C4, D4).

В Ячейках А1, В1, С1 - Указаны доли  
В ячейке D1 - Число (с копейками)  
В Ячейках А2, В2, С2 - Доля упноженная на Число  
В Ячейке D2 Сумма А2, В2, С2 - которая показывает расхождение примерно в 1 копейку  
ВОПРОС  
Как сделать чтобы таких расхождений не было, обязательное условие - в ячейках А2, В2, С2 должны отображаться числа с двумя знаками после запятой  
Файл приложен.

В прикрепленном файле есль модуль с функциями  
-Сумма прописью для Рублей  
-Сумма прописью для Долларов  
-Сумма прописью для Евро  
-Число прописью для числа  
Проблема: функция "числопрописью" прописывает числа с маленькой буквы, а должна с большой  
например: число "23" прописывается как "двадцать три", а должно "Двадцать три" или число "248" прописывается как "двести сорок восемь", а должно "Двести сорок восемь"  
Помогите исправить функцию, числопрописью, чтобы числа прописывались с большой буквы

Привет всем!  
В ячейке A1 - "Текст1"  
в ячейке В1 - "Текст2"  
надо слить тексты из ячеев А1 и В1 в ячейку A2 так чтобы текст из ячейки В1 был курсивом  
=A1&" "&B1  
- не получается

в колонке А1 (строки с 1-250) с помошью формул получен текст, который надо перевести в Word, подскажите пожалуйста как это сделать? желательно чтобы форматирование текста осталось такимже как в Excel

Привет всем!  
Как сделать чтобы высота строки A1:H1 регулировалась в зависемости от количесва строк в тексте, при условии:  
-ширина фиксированная  
-ячейки A1:H1 объеденены в одну строку  
-Объединять A2-H2 нельзя  
-В ячейке A1:H1 формула результат которой может быть равен разному количеству знаков

Люди почему не работает? как сделать?  
Хочу сделать чтобыпри значении 1 в поле A2 появлялась кнопка №1, при 2- кнопка № 2, а при 3 -третья  
 
Sub МакросТипДоговора()  
If [Исходная информация!A2].Value = 1 Then
CommandButton1.Visible = True  
CommandButton2.Visible = False  
CommandButton3.Visible = False  
   ElseIf [Исходная информация!A2].Value = 2 Then
   CommandButton1.Visible = False  
   CommandButton2.Visible = True  
   CommandButton3.Visible = False  
       ElseIf [Исходная информация!A2].Value = 3 Then
       CommandButton1.Visible = False  
       CommandButton2.Visible = False  
       CommandButton3.Visible = True  
End If  
End Sub

Подскажите плиз как сделать так чтобы из нанных введенных в excel создался докумен word? например:  
в ячейке A1 значение "12 км"  
в ячейке A2 значение "Москва"  
надо чтобы при нажатии на CommandButton открылся Word и там было написано до города Москва осталось 12 км