{quote}{login=The_Prist}{date=07.11.2009 10:10}{thema=Re: Вывод необходимых данных с помощью MsgBox}{post}{quote}{login=vfridrih}{date=07.11.2009 09:53}{thema=Вывод необходимых данных с помощью MsgBox}{post}необходимо указывать нижнее крайнее левое значение (оно текстовое) из таблицы.{/post}{/quote}Знать бы где у Вас край нижний левый...  
msgbox Cells(cells(rows.count,1).end(xlup).row,1).value,vbinformation,"Вывод значений"  
Послденее значение столбца А{/post}{/quote}  
простите меня за глупый вопрос, но не могли бы вы мне указать где в написанном Вами тексте ссылка на последнее значение в столбце А? Блин, туго мне все это дается, я попытался указать значение в столбце А, но у меня все время пустое поле выходит :(

{quote}{login=The_Prist}{date=07.11.2009 10:22}{thema=Re: Re: Re: Вывод необходимых данных с помощью MsgBox}{post}{quote}{login=vfridrih}{date=07.11.2009 10:18}{thema=Re: Re: Вывод необходимых данных с помощью MsgBox}{post}не могли бы вы мне указать где в написанном Вами тексте ссылка на последнее значение в столбце А?({/post}{/quote}1{/post}{/quote}  
Подскажите пожалуйста еще один вопрос, как я понимаю MsgBox отражает любое значение (даже в том случае если это формула) а у меня в столбце А до конца протянута формула, и данные в ячейках отражаются по мере заполнения других (от которых результат в А зависит) выходит у меня в MsgBox отражается пустое последнее значение (из-за того что там указана формула), если я меняю на число оно отражается, а если формула - то нет, а можно чтобы отражалось только то, что видно на самом листе, т.е. не формула а результат в том случае если он присутствует? надеюсь понятно написал.    
К сожалению, не могу прицеплять файлы (политика безопасности не позволяет) но если написать в виде текста получается:  
А (столбец)  
=ЕСЛИ(ЕПУСТО(C18);"";СЦЕПИТЬ(F18;"/";B18)) дальше по ячейкам  
=ЕСЛИ(ЕПУСТО(C19);"";СЦЕПИТЬ(F19;"/";B19)) и т.д. так вот пока в ячейках C19, F19 и B19 нет значений то на экране отражается пустое значение, и видимо MsgBox отражает именно это пустое значение.

А можно еще использовать функции СЧЕТ() для чисел и СЧЕТЗ() для текста.  
В данном примере (тафтология) данные начинались с 4 строки, поэтому +3  
 
Function poslednStroka(UsRange As Range) As Long  
'Попробуйте так  
Dim iRowFunction As Long  
Dim Proverka As Boolean  
 
 
   Proverka = WorksheetFunction.IsText(UsRange.Cells(1, 1)) 'True если значение в первой ячейке диапазона текстовое  
 
       If Proverka Then  
             
           iRowFunction = WorksheetFunction.CountIf(UsRange, "*?*") + 3 'если истина считаем текстовые строки  
         
       Else: iRowFunction = WorksheetFunction.Count(UsRange) + 3 'если Proverka=ЛОЖЬ считаем строки с числами  
         
       End If  
 
   poslednStroka = iRowFunction  
     
End Function  
 
 
Sub testFuction()  
Dim iR As Long  
 
iR = poslednStroka(Worksheets("Лист1").Range("C4:C500"))  
 
MsgBox iR  
 
End Sub

Пример в файле.

Вставьте  
 
MsgBox "Номер:" & Range("A" & iR).Text, 64, "Номер:"  
 
iR - определяет номер строки  
Range("A" & iR).Text - вносит содержимое ячейки:)

{quote}{login=Юрий М}{date=08.11.2009 04:45}{thema=}{post}А кто запрещает набросать пример? Не нужны нам Ваши секретные данные. Любые нарисуйте, только сохраните структуру. Иначе ещё долго будет гадать ЧТО и ГДЕ у Вас!!!{/post}{/quote}  
Дык в том то и дел, что я формирую файл для отчета, для кучи народа, у каждого свои фантики в голове, чтобы могли увидеть что у них получилось хочу для удобства вывести MsgBox (чтобы каждый мог увидеть итог своих стараний), данных в файле пока никаких нет :) поэтому про какие секретные данные может идти речь :) проблема в том что я файл никак не могу прицепить, т.к. сам проводник выдает сразу уведомление, что мол ограничено политикой :( поэтому приходится писать на пальцах :(. Простите если что не так.

Ошибки нет, просто вероятно Вы пытаетесь отобразить данные с какого то листа, а макрос работает только по активному:)  
ЗЫ у Вас задача меняется как погода осенью. Не понимаю что Вы хотите в итоге получить.

Выложите свой файл пример. Коммерческие секреты не нужны. Только структура и данные замените на фрукты/овощи... Можно не с двумя сотнями листов, а только 3:))

vfridrih, вынужден был удалить Ваш файл - загляните в Правила.

В Вашем файле требуется отобразить в MsgBox значение ячейки А9 листа "Исходящие"?

Сразу оговорюсь - решение не самое эффективное, но в Вашем случае сработает. Скопируйте нижеприведённый код, затем правый клик по ярлычку листа "Исходящие", - Исходный текст, Вставляем скопированное. Запускаем.  
Sub Макрос1()  
Dim LastRow As Long  
LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
  For i = 3 To LastRow  
     If Cells(i, 1) <> "" Then  
        LastRow = i  
     Else  
        Exit For  
     End If  
  Next  
  MsgBox "Значение в последней ячейке: " & Cells(LastRow, 1), 64, "Информация"  
End Sub

Простите за мои глупости но кажется все получилось я все правильно сделал?  
Неужели... :))