Здравствуйте.Раз в месяц приходится переписывать координаты ячеек,например вместо ("B283:B295")- ("B300:B330").Есть идея обьявить переменные-проблемма с реализацией.  
Вот так вылетает ошибка:  
Dim param1 As Integer, paeam2 As Integer  
   param1 = 283  
   param2 = 295  
 
Sheets("дата-рейс").Range("B(param1):B(param2)").End(xlDown).Offset(1) = ComboBox1.Value  
 
как это должно выглядеть.спасибо заранее.

Здравствуйте.В рабочей книге существует макрос вида:  
 
Sub Get_Arhive_File()  
....  
....  
End Sub    
 
В обозревателе VBA Project он имеет имя Module11-при попытке его переименовать макрос перестает работать.Пробывал в названии модуля указывать рус,англ. буквы-не помогает.  
Принудительный запуск выдает ошибку компиляции.

Здравствуйте, просьба подсказать.Отрывок кода:  
 
Dim sozdaty, vvod    
       sozdaty = CreateObject("Scripting.FileSystemObject")  
       vvod = InputBox("Имя файла для создания:например --.txt,--.xls,--.doc")    
       sozdaty.CreateTextFile("" & vvod )    
       MsgBox("Создан файл: " & vvod)    
 
По событию on click пользователь вводит в окно название создаваемого файла с указанием расширения.Вопрос как сделать чтобы расширение файла устанавливалось програмно.То есть  
или всегда xsl или doc.Не смог найти ни одного примера по синтаксису.

Подскажите пожалуйста.Макрос переносит вводимую дату с одного листа на другой,при этом формат 20.09.09 меняется на 40076.региональные стандарты норм.Это что отсчет от последнего потопа?

Добрый день.Переменными не владею.Пробую из подобных примеров.у меня получается вот такой код:  
 
 
Sub ср_расход()  
Dim iLastRow As Integer  
 iLastRow = ActiveSheet.Range("B2:B24").End(xlDown).Select  
 iLastRow = iLastRow - 12112  
 Range("B25") = iLastRow  
End Sub  
 
Последнюю ячейку находит,но в переменную присваевается значение (-1) и соответственно в В25 оказывается значение (-12113).Просьба объясните в чем ошибка-поиск по форуму ничего не дал,кроме нахождения последней ячейки.