Здраствуйте, проблема с датаформ, скажем имеем таблицу, делаем клик в заголовке потом идем и нажимаем на кнопку датаформ, это все записав на макрос, но потом етот макрос не работает, почему???  
 
Sub Macro1()  
   Range("B4").Select  
   ActiveSheet.ShowDataForm  
End Sub

здравствуйте!    
Неподскажите как совместить формат ячейки для Времени и даты? дело в том что туда ставятся данные с веб консульты, а там или дата или время, тоеcть нельзя выбрать формат дата + время, ибо дата будет 1-1901 и время правильно, а если есть дата то нету времени:(( как-бы это совместит???

Ошибка: Поворот АвтоФигуры запрещен. ВБА маркос  
Добрый день! вот имею такой макрос, он как доходит до роташин = 270 то выдает ошибку. Подскажте :))  
 
Sub Sort_Fecha()  
Dim PrimeraFila As Integer, PrimeraColumna As Integer  
Dim UltimaFila As Integer, UltimaColumna As Integer  
 
PrimeraFila = 3  
PrimeraColumna = 2  
 
With Sheets("Datos")  
UltimaColumna = .Range("B3").End(xlToRight).Column  
UltimaFila = .Range("B3").End(xlDown).Row  
 
       NombreAvtofigura = "fecha"  
       If .Shapes(NombreAvtofigura).Rotation = 0 Then  
           .Range(Cells(PrimeraFila, PrimeraColumna), Cells(UltimaFila, UltimaColumna)).Sort key1:=.Range("R3"), order1:=xlDescending, header:=xlYes  
       Else  
           .Range(Cells(PrimeraFila, PrimeraColumna), Cells(UltimaFila, UltimaColumna)).Sort key1:=.Range("R3"), order1:=xlAscending, header:=xlYes  
       End If  
   End With  
   Call Reset  
End Sub  
 
Sub Reset()  
   Dim Figura As Shape  
   For Each Figura In Sheets("Datos").Shapes  
       With Figura  
           If .Name <> "Btn_Inicio" Then  
               If .Name = NombreAvtofigura Then  
                   If .Rotation = 0 Then  
                       .Rotation = 180  
                       .Fill.ForeColor.SchemeColor = 42  
                   Else  
                       .Rotation = 0  
                       .Fill.ForeColor.SchemeColor = 13  
                   End If  
               Else  
                   .Rotation = 270  
                   .Fill.ForeColor.SchemeColor = 8  
               End If  
           End If  
       End With  
   Next  
End Sub

Здравствуйте читатели! Образовалась следующая проблема:  
Как проверить существует ли лист в книге, и если существует то удалить eго?? имя листа передается глобальной переменной "Imya"  
Писать это все в ВБА. Спасибо

Веб-Консульты, Обновление Данных, Сбор данных с разных листов на один.  
Здравствуйте! Образовалась такая проблемка, нужно собрать данные с 30 листов на 1м листе, в документе имеем 34 макроса для получанения данных с веб-страничек, нужно написать еще один макрос который пройдется по всем листам(а именно только колонку Б(всю) с каждого листа) и скопирует это на лист под именем "ИТОГ" начиная "вставлять данные с Б2"(колонку А оставит свободную) и так далее, ячейка Б1 дойжна содержать имя листа откуда даные, в конце мы получим таблицу с 34 столбцами.  
Есть какая-то функция чтобы обновить сразу все консульты? или нужно по одной? как проверить существует ли консульта на листе?  
В примере попробую все "нарисовать" понятнее :))

Работа с автофигурами в ВБА  
посмотрите пожалуста на код и если можете дайте совет по оптимизации, просто в структуре:  
If nom <> ActiveSheet.Shapes("autoforma1").Name Then  
ActiveSheet.Shapes("autoforma1").Rotation = 0  
End If  
строчку ActiveSheet.Shapes("autoforma1").Name можно на чтото заменить? ато кажетча что пишу 2 раза имя автофигуры. есть какоето генерическое имя для автофигур кроме того что мы ему присвоем?    
 
Код:  
Sub Rote_Autoforma1()  
Call Reset("autoforma1")  
   If ActiveSheet.Shapes("autoforma1").Rotation = 180 Then  
       ActiveSheet.Shapes("autoforma1").Rotation = 0  
   Else  
       ActiveSheet.Shapes("autoforma1").Rotation = 180  
   End If  
End Sub  
 
Sub Rote_Autoforma2()  
Call Reset("autoforma2")  
   If ActiveSheet.Shapes("autoforma2").Rotation = 180 Then  
       ActiveSheet.Shapes("autoforma2").Rotation = 0  
   Else  
       ActiveSheet.Shapes("autoforma2").Rotation = 180  
   End If  
End Sub  
 
Sub Rote_Autoforma3()  
Call Reset("autoforma3")  
   If ActiveSheet.Shapes("autoforma3").Rotation = 180 Then  
       ActiveSheet.Shapes("autoforma3").Rotation = 0  
   Else  
       ActiveSheet.Shapes("autoforma3").Rotation = 180  
   End If  
End Sub  
 
Sub Reset(nom As String)  
If nom <> ActiveSheet.Shapes("autoforma1").Name Then  
ActiveSheet.Shapes("autoforma1").Rotation = 0  
End If  
If nom <> ActiveSheet.Shapes("autoforma2").Name Then  
ActiveSheet.Shapes("autoforma2").Rotation = 0  
End If  
If nom <> ActiveSheet.Shapes("autoforma3").Name Then  
ActiveSheet.Shapes("autoforma3").Rotation = 0  
End If  
End Sub

При постройке Графика на оси ОУ, мы часто получаем  интервал неисползуемых значений, еcли поправитьв ручную то при просмотре следующей компании нам прийдется делать тоже, ибо неувидим приввельно ее значений, можно както в ячейки с макс и ми значениями оси ОУ вставлять формулы типа =1,2 * МАКС заначения некого диапазона ?? и также для минимального?? = 0,8 * МИН значение екого диапазона??

Доброе время суток господа, оброзовалась слудующая проблема :))  
имееем таблицу и нужно ее сложить по букваам, при нажатии на автофигуру нужно чтобы после запуска ее макроса она перевернулась на 180. если кто может предложить альтернативу милости прошу. всем спасибо.

Здраствуйте Господа :))  
Имею таблицу со списком компаний,и датами(в икселе) нужно ето отобразить в графике в ЮзерФорм.  
тоесть, открываем юзерформ, пишим название компаниии и нам выдает ее график "успешности2 на бирже. рядом имеем кнопочку сравнить и там выбераем оставшиеся компании с которыми можно сравнить нашу. График желательно интерактивный. чтобы можно было "увиличивать" и "ползунок" для передвидения по периодам времени, но етоне приоретно, приорететней ето могти сравнивать с другими в одном и томже графикею спасибо. буду ждать ваших советов.  
 
* по форуму искал нету подобных тем, вернее есть но там мало информации. и немогу запустить тамышний документ чтоб посмотреть как он устроен. всем спасибо.  
:)

жилаю зделать слудующие:  
вместо ячейки где вводится значение для поиска использовать комбобокс, как ето зделать нигде инфы нету, в приемах и примерах пусто, думаю если тут решим етот вопрос его можно будет добавить в прием ыи примеры в соотвецтвующую тему.  
в документе пример как ето вижу. всем спасибо!    
 
 
 
 
**пример взял отцудова, http://www.planetaexcel.ru/tip.php?aid=102

листаем в конец гд епишет П.С.  
http://www.planetaexcel.ru/tip.php?aid=121  
 
сложно зделать также на 2003?(ато там пишуть только для 2007, и в 2003 подобного ненашол)

собсввенно нужно то что написанно выше :)  
как ето зделать, скажем так:  
Dim i As Date  
dim x as integer  
x=1  
For i=(Сегодня минус 1 год) to СЕГОДНЯ  
 
if (i ненаходится в списке празников и ето не субота или воскресенье) then  
list1.cells(x,1) = i  
x=x+1 //чтобы перескакивать строки  
next i  
 
Помогите кто чем может, Идеями, кодом :))  
Всем Спасибо  
**список с выходними предположим что находится на LIST2.RANGE("A1:A50")  
*** в дальнейшем планируется ходит на вебСтраничку индексировать ее и обновлять сегодняшние значение, тоесть все остальное будет передвигатся на 1,1 новый день входит 1 старый выходит. при етом не теряя значений напротив дняб(такде может предположить что существует БД, где ето все хранится и от туда мы будем брать значения для какждого дня.  
 
*нужно будет ето все сгрупировать по семестрам, четвертям и месацам, командой Group, где ето лучше влепить??

Здраствуйте:))  
нуждаемся в посортировать ету таблицу по полям А2 по вертикали ето ключ1 и потом по B2 по горизонтали.  
 
Ето все в VBA пытался реализовать через:  
Hoja1.Range("A1:U21").Sort key1:=Hoja1.Range("A2"), order1:=xlAscending, key2:=Hoja1.Range("B2"), order2:=xlAscending  
только там где В2 оно ето делает по вертикали а если написать на оборот то ошибка.  
 
 
 
 
*если вы видете что колонка А1 какбы уже сортирована, то необращайте внимание, сюда постоянно буду вставлятся даные и их нужно будет сортировать.  
 
*также результат привязаный к 2м командам например America / Toluca: 4-4,  после сортировки должен оставатся такимже.  
 
**реализовать надо ето все через VBA.

Имеем 2 таблица на разных листах, нужно с первой брать по 1му имени команды и искать его на 2м листе, тоесть что нужно ето сравнивать стринги, также получить "кординаты" ячейки на 2м листе где было найдено совпадение(совпадение должно быть 100%, тоесть я думаю с лайк непойдет, или да??)  
 
Подскажите пожалуста пару команд для реализации уже книги листал но "нужных" мне команд невстречал.  
 
примеры таблиц:  
 
Лист1_Таблица 1    Лист2_Таблица2  
команда 1          Команда 14  поле2 поле3 поле4  
команда 2          Команда 10  
команда 3          Команда 1  
...                ...                
команда 20         Команда 19  
 
Спасибо.

проблема состоит в следующем: что во свсей етой структуре ошибки невижу, но оно продолжает выдавать иногда одинаковые команды.. почему не срабатывает иф??  
 
Private Sub Btn_Generar_Click()  
   Dim j, k, nachalo, konec As Integer  
   Dim komanda1, komanda2 As Integer  
   Dim raznye As Boolean  
   //обьевление переменых  
 
   raznye = True  
     
   nachalo = 3  
   konec = 22  
     
   For j = nachalo To konec  
   komanda1 = NumeroAlter()  
   komanda2 = NumeroAlter()  
//присваюем переменым команда 1 и команда2 рандомные числа от 1 до 20  
   If komanda1 = komanda2 Then //проверяем если команды 1 = команде2 то запускаем цикл в из которого оно не выйдет пока не убелдится что команды разные.  
       While raznye  
           komanda1 = NumeroAlter()  
           komanda2 = NumeroAlter()  
           //меняем числа команд(мы знаем что они одинаковы)  
           If komanda1 <> komanda2 Then  
               raznye = False //если они разные то выходим их цикла  
           End If  
//в случаи невыполнения условия в иф, то значение разные попрежнему остается "правда" и мы продолжаем менят значения командам пока таки они нестанут разными  
       Wend  
   End If  
      //присваюем ячейкам имена команд в зависимости о номера(передавая номер в функцию)  
       Hoja3.Cells(j, 1) = EquipoAlter(komanda1)  
       Hoja3.Cells(j, 3) = EquipoAlter(komanda2)  
   Next j  
End Sub

Private Sub Btn_Generar_Click()  
   Dim j, k, inicio, fin As Integer  
   Dim equipo1, equipo2 As String  
   Dim salir As Boolean  
     
   salir = False  
   inicio = 3  
   fin = 22  
     
   For j = inicio To fin  
       equipo1 = EquipoAlter()//выбираю рандомно команду футбольную  
       equipo2 = EquipoAlter()  
         
       While Not salir //крутим цикл пока небудет "лош", лош в том случаи если команды разные  
         If equipo1 = equipo2 Then //сравниваю их но почемуто не работает  
        equipo1 = EquipoAlter()//задаем новые команды  
        equipo2 = EquipoAlter() //тоже новая команда  
//значение salir не меняю на "лош" потомучто и так будет крутить пока оно неизменится в ельсе  
        Else  
           salir = True //в случаи команды разные то выходим с цикла  
        End If  
                     
  Wend  
       //передаю на ячейки переменые  
       Hoja3.Cells(j, 1) = equipo1  
       Hoja3.Cells(j, 3) = equipo2  
   Next j  
End Sub

вопрос конешно нуба, сильно камнями не кидайте, но уже весь нет обшарил и вконце концов только видео как "умные люди2 делают комбобокс со списка на одной и тойже страничке, а мне нудно на разных.  
тоесть на 1й написаны футбольные команды а на 3м листе надо комбобоксы с их именами, как ето провернуть??  
спасибо большое.