воо ,спасибо большое  , что то стало похоже на то что нужно  , щас попробую через циклы сделать

ни кто не может помочь ?

подскажите как сделать что бы с страниц интернета копировался конкретный текст  а не все в подряд что есть в таблице    
 
нужен конкретно этот текст для каждой страницы он будет разный ,но находится всегда в таком же окне    
вот ссылка на страницу      http://data246.cnbc.com/quotes/AAPL/tab/4  
а вот сам текст который нужен -это для примера что бы было понятно о чем я говорю    
 
Apple Inc. (Apple), along with its subsidiaries, is engaged in designing, manufacturing and marketing mobile communication and media devices, personal computers, and portable digital music players. It also sells a range of related software, services, peripherals, networking solutions, and third-party digital content and applications. The Company's   итд..............

спасибо

а вот это куда? , оно красным светится в макросе !  , у меня 2010 ексел и 64 бита    
Public Declare Function ShellExecute Lib "shell32.dll" Alias _  
"ShellExecuteA" (ByVal hwnd As Long, _  
ByVal lpOperation As String, _  
ByVal lpFile As String, _  
ByVal lpParameters As String, _  
ByVal lpDirectory As String, _  
ByVal nShowCmd As Long) As Long

вот что пишет ,может я не туда вставил?  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>  
 
<EM>http://www.planetaexcel.ru/forum.php?thread_id=8735</EM>

что то все красным светит , не могли бы вы скинуть файлом екселевским , было бы просто супер

дак а что тут пример то , ну вот например в одном столбце название в другом должны быть ссылки на картинки вот и все

помогите сделать формулу или макрос , прочитал похожие темы но не смог сделать из этого то что мне надо  , вопрос следующий  , 1) есть список с именем файлов  из 2000 штук - это общий список , находиться в стобце "А" тоесть А1 - А2000  ,  2) есть папка  с картинками к каждому имени   тоесть 2000 картинок как мне привязать к ячейке с именем файла эту картинку , в ручную очень долго получиться , может можно как то по быстрому (имя в ячейке совпадает с именем картинки), и причем есть третий момент   , 3) файлы с картинками добавляются постоянно и   соответственно   в ячейке "А" список тоже будет расти как минимум до 10000 шт ,   есть еще такой момент что если привязать в ручную   имя   в столбце "А" к картинке через гипер ссылку то он ее будет открывать через   браузер , может сделать лучше как то через стандартные средства просмотра изображений , расширение картинок png ? помогите чем сможите ,плиз ) , хотелось бы такое решение  например , открываю ексель ,макрос сканирует столбец "А" потом папку где находятся картинки    
и присваивает например в столбец "Б" ссылки на эти картинки  , вот и все ))) думаю профи  это будет не проблема , спасибо за раннее

{quote}{login=Михаил}{date=20.01.2011 08:12}{thema=}{post}как вариант{/post}{/quote}  
 
Ничего не происходит

Кто знает как сделать помогите пожалуйста    
 
Как из постоянно меняющегося значения в ячейке вычесть предыдущее значение в этой же ячейке и поместить в другую ячейку ,  пример   Значение в ячейке А1 = 43566 через секунду или две там значение  44564   итд(постоянный поток)   дак вот мне нужна разница этих значений в ячейке  В1 что бы она тоже менялась от последних двух значений в ячейке А1

столько человек посмотрело , неужели ни кто не знает

Собрал такой макрос из отрывков кода представленного на форуме    
Подскажите как сделать так что бы не на каждую же ячейку в отдельности писать такой макрос    
Пример у меня есть столбец "А"  в нем находяться значения в 7000 строчках тоесть 7000 тысяч значений    по определенным условиям ячейка начинает мигать условия значений прописаны в коде , я незнаю как сделать чтобы этот код работал сразу на весь столбец    
Это я вставил в лист    
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Address = [a1].Address Then If Range("A1") <= 0.1 And Range("A1") >= 0 Or Range("A1") <= 0.99 And Range("A1") >= 0.9 Then BlinkingCell
End Sub  
 
А вот это в Модуль  
 
Sub BlinkingCell()  
Static intCalls As Integer  
If Range("A1") <= 0.1 And Range("A1") >= 0 Or Range("A1") <= 0.99 And Range("A1") >= 0.9 Then  
If intCalls < 100 Then  
intCalls = intCalls + 1  
 If Range("A1").Interior.Color <> RGB(0, 0, 255) Then  
   Range("A1").Interior.Color = RGB(0, 0, 255)  
     Else  
       Range("A1").Interior.Color = RGB(255, 0, 0)  
         End If  
       Application.OnTime Now + TimeValue("00:00:01"), "BlinkingCell"  
     Else  
   Range("A1").Interior.ColorIndex = xlNone  
  intCalls = 0  
 End If  
Else  
Range("A1").Interior.Color = RGB(255, 255, 255)  
End If  
End Sub

А через VBA или просто через формулы , можно както это сделать

как сосчитать количество не пустых ячеек после фильтра ,    
Пример : в первом столбике  1000 наименований , после фильтра осталось 200 , как это число вывести в отдельную яцейку например в "B1"

во всей книге

Как сделать автоматическую замену точек на запятые

Ура спасибо , монстрам экселя!

{quote}{login=Юрий М}{date=19.12.2010 12:12}{thema=}{post}Перенесите весь код из события:  
Worksheet_SelectionChange  
в событие:  
Worksheet_BeforeDoubleClick  
В конце кода советую добавить строку:  
Cancel = True{/post}{/quote}  
 
 
Private Sub CommandButton1_Click()  
clean  
 
End Sub  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range)  
If Target.Column = 1 And Target.Row <> 1 And Target.Cells.Count = 1 Then  
Target.Interior.ColorIndex = 4  
Target.Parent.Range("B" & Target.Parent.Cells.Rows.Count).End(xlUp).Offset(1, 0).Value _  
= Target.Value  
Cancel = True  
Else  
 
Exit Sub  
End If  
End Sub  
ошибку выдает

Да, Юрий ,я так и просил и уже успешно применил в своем проекте за что уже поблагодарил вас за помощь , но тут же нашел как еще можно использовать это что бы было удобно

А можно как то это сделать что бы по двойному щелчку выделялось и копировалось    
а то я только нажал а оно уже выделилось зеленым и перенеслось в столбик , а если сбросить то только все вместе получаеться

{quote}{login=f_aleks}{date=18.12.2010 10:59}{thema=}{post}А так работает?{/post}{/quote}  
 
Спасибо :)

{quote}{login=f_aleks}{date=18.12.2010 10:13}{thema=}{post}А вы запишите действия по удалению форматирования и скопированных данных макрорекодером, нарисуйте кнопку и назначьте ей записанный макрос.{/post}{/quote}  
 
Что то не работает сброс(

{quote}{login=f_aleks}{date=18.12.2010 09:43}{thema=}{post}:){/post}{/quote}  
 
а как сбросить

Спасибо большое все работает

Добрый вечер всем , подскажите как сделать следующее через VBA (по другому наверное неполучиться)  
 
Пример    
У меня в первом столбце введены названия Компаний, количество их изменяеться от 1 до 1000    
как мне сделать чтобы при нажатии (ну или выделении одной из этих ячеек ) в которой находиться название компании , значение этой выделеной ячейки(тоесть название этой компании) переносилось в столбец "B1"

Помогите пожлуста  
Как мне изменить макрос чтобы он копировал не из одной ячейки а из диапазона ячеек и при сохранении в файл удалял старые данные в этом файле  
 
Sub SaveFile()  
 
 
 
myStrin = Worksheets(2).Cells(1, 1).Value  
f = FreeFile  
Open "c:\myFile.txt" For Output As #f  
Print #f, myStrin  
Close #f  
 
f = FreeFile  
Open "c:\myFile.txt" For Append As #f  
Print #f, myStrin  
Close #f  
 
 
End Sub

{quote}{login=Andrey}{date=13.12.2010 06:52}{thema=Re: }{post}{quote}{login=VDM}{date=13.12.2010 06:44}{thema=}{post}Каким образом копируется и в какой момент нужно обирать? От этого зависит ответ.{/post}{/quote}  
 
Веб запрос из интернета копирует данные на лист , в самом начале ячеек стоят пробелы  , вот их нужно сразу убрать  после того как произошла загрузка из интернета{/post}{/quote}  
 
Все решил проблему функцией СЖПРОБЕЛЫ

{quote}{login=VDM}{date=13.12.2010 06:44}{thema=}{post}Каким образом копируется и в какой момент нужно обирать? От этого зависит ответ.{/post}{/quote}  
 
Веб запрос из интернета копирует данные на лист , в самом начале ячеек стоят пробелы  , вот их нужно сразу убрать  после того как произошла загрузка из интернета

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