подскажите как сделать что бы с страниц интернета копировался конкретный текст  а не все в подряд что есть в таблице    
 
нужен конкретно этот текст для каждой страницы он будет разный ,но находится всегда в таком же окне    
вот ссылка на страницу      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   итд..............

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

Кто знает как сделать помогите пожалуйста    
 
Как из постоянно меняющегося значения в ячейке вычесть предыдущее значение в этой же ячейке и поместить в другую ячейку ,  пример   Значение в ячейке А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

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

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

Добрый вечер всем , подскажите как сделать следующее через 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

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

вот макрос  
 
   
Sub www()  
   
 
With ActiveSheet.QueryTables.Add(Connection:="TEXT;ftp://ftp.cme.com/pub/pub/daily_volume/daily_volume_20101210.xls", Destination:=Range("$A$1"))  
        .Name = "daily_volume_20101210.xls"  
        .FieldNames = True  
        .RowNumbers = False  
        .FillAdjacentFormulas = False  
        .PreserveFormatting = True  
        .RefreshOnFileOpen = False  
        .RefreshStyle = xlInsertDeleteCells  
        .SavePassword = False  
        .SaveData = True  
        .AdjustColumnWidth = True  
        .RefreshPeriod = 0  
        .TextFilePromptOnRefresh = False  
        .TextFilePlatform = 437  
        .TextFileStartRow = 1  
        .TextFileParseType = xlDelimited  
        .TextFileTextQualifier = xlTextQualifierDoubleQuote  
        .TextFileConsecutiveDelimiter = False  
        .TextFileTabDelimiter = False  
        .TextFileSemicolonDelimiter = False  
        .TextFileCommaDelimiter = True  
        .TextFileSpaceDelimiter = False  
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)  
        .TextFileTrailingMinusNumbers = True  
        .Refresh BackgroundQuery:=False  
    End With  
 
End Sub

Имееться следующий макрос    
 
Sub Cicl()  
 
For i = 1 To [Tehn!b4] Step 1
 
Basic_Web_Query  
f = 3  
f = f + 1  
 
Next i  
 
End Sub  
 
Function Basic_Web_Query()  
 
 
With Sheets("Ëèñò1").QueryTables.Add(Connection:="URL;" & [Tehn!d4], Destination:=Sheets("Ëèñò1").Range([Tehn!c4]))
.Name = "&[Tehn!d4]"
.FieldNames = True  
.RowNumbers = False  
.PreserveFormatting = True  
.RefreshOnFileOpen = False  
.BackgroundQuery = True  
.RefreshStyle = xlInsertDeleteCells  
.SavePassword = False  
.SaveData = True  
.AdjustColumnWidth = True  
.RefreshPeriod = 0  
.WebSelectionType = xlSpecifidTables  
.WebFormatting = xlWebFormattingNone  
.WebTables = [Tehn!a4]
.WebPreFormattedTextToColumns = True  
.WebConsecutiveDelimitersAsOne = True  
.WebSingleBlockTextImport = False  
.WebDisableDateRecognition = False  
.WebDisableRedirections = False  
.Refresh BackgroundQuery:=False  
End With  
 
End Function  
 
Тоесть цикл я сделал а вот что бы он обращался к другой ячейке не получаеться , он просто несколько раз мне загружает одно и тоже , а мне нужно что бы при каждом разе было смещение на одну строку ниже    , Помогите плиз!

Имееться следующий макрос    
 
 
 
Sub Basic_Web_Query()  
 
With ActiveSheet.QueryTables.Add(Connection:="URL;http://finance.yahoo.com/q?s=goog", Destination:=Range("$A$1"))  
.Name = "q?s=goog"  
.FieldNames = True  
.RowNumbers = False  
.PreserveFormatting = True  
.RefreshOnFileOpen = False  
.BackgroundQuery = True  
.RefreshStyle = xlInsertDeleteCells  
.SavePassword = False  
.SaveData = True  
.AdjustColumnWidth = True  
.RefreshPeriod = 0  
.WebSelectionType = xlSpecifidTables  
.WebFormatting = xlWebFormattingNone  
.WebTables = "1,2"  
.WebPreFormattedTextToColumns = True  
.WebConsecutiveDelimitersAsOne = True  
.WebSingleBlockTextImport = False  
.WebDisableDateRecognition = False  
.WebDisableRedirections = False  
.Refresh BackgroundQuery:=False  
End With  
 
End Sub  
 
 
 
Как сделать что бы это значение в коде " q?s=goog " вводить из ячейки в экселе?