Добрый день!  
 
Подскажите, пожалуйста,в чем ошибка в формуле по выборке данных.

Все получилось, всем огромное спасибо

Ругается на MkDir pathDir

Спасибо, только файл сохраняется в папку мои документы, а как сделать, что бы он сохранялся именно в вновь созданную папку  
Private Sub CommandButton1_Click()  
Dim txtText2  
txtText2 = Range("A1")  
Dim txtText1  
txtText1 = Range("B1")  
Dim txtText  
txtText = TextBox1.Value  
pathDir = "D:/сохранить/акт разногласия " & txtText2 & txtText & txtText1  
If Dir(pathDir, vbDirectory) = "" Then  
MkDir pathDir  
End If  
base = ActiveWorkbook.Name  
Windows(base).Activate  
 
ThisWorkbook.Worksheets("Лист1").Activate  
ThisWorkbook.Worksheets("Лист1").Copy  
 
 
текдиректрория = ThisWorkbook.Path + "\"  
название = "акт"  
Nazv = название + ".xls"  
ZB = текдиректрория + Nazv  
 
Application.DisplayAlerts = True  
ActiveWorkbook.SaveAs Filename:=ZB  
 
 
Nazv = ActiveWorkbook.Name  
Workbooks(Nazv).Close SaveChanges:=True  
Windows(base).Activate  
End Sub

В этом и вся проблема, что путь к файлу я не могу указать, так как он создается этой же кнопкой, и берет свое название из ячеек сохраняемого листа

что то не прокатывает  
 
Private Sub CommandButton1_Click()  
Dim txtText2  
txtText2 = Range("A1")  
Dim txtText1  
txtText1 = Range("B1")  
Dim txtText  
txtText = TextBox1.Value  
pathDir = "D:/ñîõðàíèòü/àêò ðàçíîãëàñèÿ " & txtText2 & txtText & txtText1  
If Dir(pathDir, vbDirectory) = "" Then  
MkDir pathDir  
End If  
CreateObject("Shell.Application").Explore pathDir  
ActiveSheet.Copy  
With ActiveWorkbook  
.save as filename:=""  
.Close True  
End With  
End Sub

Здравствуйте, проблема следующая - кнопкой создаю папку, (название папка берет из ячеек документа), в эту папку необходимо сохранить активный лист этого документа. Подскажите пожалуйста, как можно это сделать. Сохранятся файл должен к примеру под именем "акт разногласий", щелчком одной кнопки, которой создался файл.

Добрый вечер, Уважаемые знатоки, подскажите пожалуйста как скопировать в соседний столбец слова написанные заглавными буквами в начале строки. Пример:  
 
Столбец А  (то что есть)                  | Столбец B (то что надо)  
МАЛАЯ ШЕЛКОВКА ул.Масловского д.85 кв.15  | МАЛАЯ ШЕЛКОВКА    
БОР-ФОРПОСТ пл.Советская д.68а            | БОР-ФОРПОСТ  
ТИТОВКА пер.Советский д.101 кв.20         | ТИТОВКА  
12 ЛЕТ ОКТЯБРЯ пр.Степная д.250           | 12 ЛЕТ ОКТЯБРЯ

А можно фаил с примером,а то я че то не очень

извеняюсь за отсутствие 5 листа(он такой же как и четвертый)  
Суть в том что лист4 январь лист 5 февраль и тд  
цифры на листе 4 (а также 5,6, и так до декабря) в ячейка a22-a52 числа  
и чертее знает как сделать что бы копировалось в определенную ячейку определенной даты.

Люди знающие и умеющие.Кто подскажет  
Хотя бы в общих чертах,хрен с ним с моим примером,по аналогии думаю разберусь,как копировать ячейку(диапазон ячеек,столбец,строку)в др. ячейку(--II--) ,что бы выполнялось условие - при наличии в какойто определенной ячейке определенного значения(цифры,буквы,слова) - копировалось в одну ячейку(-II-),а при наличии др значения(-II-) в той же ячейке,в др ячейку(-II-).Желательно что бы кол-во значений могло учавствовать много раз(в смысле по кол-ву дней,месяцев,отделов)  
 
пример копируем а1  при нажатии кнопки в б1(есл в с1=еденица),в б2(есл в с1=двойка),в б3(есл в с1=тройка),и так много раз

помогите дописать макрос .Как сделать что бы при нажатии кнопки  копировался бы ячейка с2(лист1) на с2(лист3) ,а так же если в ячейках  e3(лист1) введено янв копир в e2(лист3);(фев в g2(лист3) и тд),  
и еще один ,если в d3 введена "1",а в Е3 янв - с2 копировалась в b22(лист4);а если d3 "5",а E3 февр - в b26(лист5) и т.п.  
 
зарание спасибо