{quote}{login=Юрий М}{date=08.11.2009 11:26}{thema=}{post}Заменить целиком Макрос1 вот на такой:  
Sub Макрос1()  
End Sub{/post}{/quote}  
 
Простите, может я не в тему здесь напишу, но это просто СУПЕР! Огромнейшее Вам спасибо! Я над этим бился 2 дня!

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

{quote}{login=Юрий М}{date=08.11.2009 11:01}{thema=}{post}Сразу оговорюсь - решение не самое эффективное, но в Вашем случае сработает. Скопируйте нижеприведённый код, затем правый клик по ярлычку листа "Исходящие", - Исходный текст, Вставляем скопированное. Запускаем.  
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{/post}{/quote}  
 
Да так работает, но только я пытался чтобы указанные данные появлялись при нажатии кнопки "Ввести данные", т.е. получается я зря старался? Так не получится? :(. Лист исходящие будет защищаться, пользователям специально на него можно не заходить, я хотел чтобы сразу после ввода данных появлялся MsgBox и каждый мог записать свой номер (и при необходимости свериться с суммой, мало ли ошибка)

{quote}{login=Юрий М}{date=08.11.2009 10:46}{thema=}{post}В Вашем файле требуется отобразить в MsgBox значение ячейки А9 листа "Исходящие"?{/post}{/quote}  
ну по сути, да, только каждый раз записи добавляются, как только каждый пользователь вводит новое значение, он должен иметь возможность еще раз проверить сумму и номер его записи, т.е. мне необходимо, чтобы в в MsgBox отражалось последнее отображаемое значение ячейки из столбца А листа "Исходящие".

{quote}{login=Юрий М}{date=08.11.2009 10:16}{thema=}{post}vfridrih, вынужден был удалить Ваш файл - загляните в Правила.{/post}{/quote}  
да конечно, простите! Я просто так увлекся решением проблемы что обо всем забыл :)  
Больше так не буду :)

{quote}{login=Igor67}{date=08.11.2009 06:05}{thema=}{post}Ошибки нет, просто вероятно Вы пытаетесь отобразить данные с какого то листа, а макрос работает только по активному:)  
ЗЫ у Вас задача меняется как погода осенью. Не понимаю что Вы хотите в итоге получить.{/post}{/quote}  
:) почему? вроде бьюсь над одним и тем же уже вторые сутки :)  
У меня тут ошибка была не правильно написал :)  
MsgBox Range("A" & iR).Text, 64, "Номер:"  
Sheets("Ввод данных").Select  
End Sub

{quote}{login=Igor67}{date=08.11.2009 04:45}{thema=}{post}Вставьте  
 
MsgBox "Номер:" & Range("A" & iR).Text, 64, "Номер:"  
 
iR - определяет номер строки  
Range("A" & iR).Text - вносит содержимое ячейки:){/post}{/quote}  
 
Игорь, подскажите пожалуйста у меня на Вашем примере, все получается как надо, если только вставляю все в свое ничего не выходит, где ошибка?  
Dim iR As Long, iRng As Range  
   Dim LastRow As Long  
   LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
   Set iRng = Range("A" & Cells(1, 1).End(xlDown).Row & ":A" & Cells(Rows.Count, 1).End(xlUp).Row)  
   iR = poslednStroka(iRng) + Cells(1, 1).End(xlDown).Row - 1  
   MsgBox Range("A" & iR).Text, 64, "Íîìåð:"  
   Sheets("номер:").Select  
End Sub

{quote}{login=Igor67}{date=08.11.2009 04:18}{thema=}{post}Пример в файле.{/post}{/quote}  
Видимо я не так объясняю, я кажется понял что меня не поняли. :)  
Если посмотреть в Ваш файл у вас кнопкой отражается номер строки, я бьюсь над тем чтобы MsgBox отразил у меня данные (в Вашем примере это должно быть "24/февраль")  
(последняя запись первого столбца,  которая отражается на экране)  
 
PS сложно кода нет возможности выслать пример... :(

{quote}{login=Igor67}{date=08.11.2009 02:12}{thema=}{post}А можно еще использовать функции СЧЕТ() для чисел и СЧЕТЗ() для текста.  
В данном примере (тафтология) данные начинались с 4 строки, поэтому +3  
 
Function poslednStroka(UsRange As Range) As Long  
End Sub{/post}{/quote}  
 
 
Я теперь совсем запутался :(((  
у меня все выглядит так:  
   Dim LastRow As Long  
   LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
   MsgBox Cells(LastRow, 1), 64, "Номер:"  
   Sheets("ввод данных").Select  
End Sub  
 
как я понимаю мне необходимо просто найти как правильно написать необходимую функцию для запроса необходимых данных, т.е чему будет LastRow =  
или я ошибаюсь.    
Перечитал все посты, но так необходимого значения не нашел, или я просто не понимаю, если у меня результат вычисления функции в ячейке ="" то  MsgBox у меня выдет "" а мне нужно чтобы он выдавал последний номер, номер который отражается в ячейке 1 столбца, а не ""

{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 отражает именно это пустое значение.

{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}  
простите меня за глупый вопрос, но не могли бы вы мне указать где в написанном Вами тексте ссылка на последнее значение в столбце А? Блин, туго мне все это дается, я попытался указать значение в столбце А, но у меня все время пустое поле выходит :(

Подскажите плз еще одну вещь, существует ли возможность вывести необходимые данные из таблицы с  помощью MsgBox, суть в том что количество данных в таблице увеличивается и необходимо указывать нижнее крайнее левое значение (оно текстовое) из таблицы.

{quote}{login=Ёксель-моксель}{date=06.11.2009 08:51}{thema=}{post}"...ячейки с непустыми данными автоматически защищаются, и каждый новый пользователь открывший книгу внести исправления (кроме администратора) в предыдущие значения не может, а только добавить новое."  
 
Если немного поменять структуру ведения документа (ввод данных на одном листе, а аккумулирование на другом), что ИМХО, удобнее - то вот:{/post}{/quote}  
 
Спасибо, идея действительно толковая! Вот теперь бы еще пароль на защищенный лист узнать :))) не подскажете? :)

Уважаемые, необходимо помощь в решении вот какого вопроса:  
1. вариант. есть строка для заполнения с наименованием товаров и заказов в конце данной строки для заполнения стоит дата, так вот задача стоит такая, чтобы после заполнения ячейки с датой вся строка становилась защищенной (желательно под паролем 1 человека администратора), который при необходимости (обращения к нему) может внести в строку исправления,  с той целью, чтобы предыдущие строки пользователями открывающими и работающими в файле не могли изменить данные указанные  в строках выше.  
2. вариант, возможно существует путь, при котором после закрытия книги ячейки с непустыми данными автоматически защищаются, и каждый новый пользователь открывший книгу внести исправления (кроме администратора) в предыдущие значения не может, а только добавить новое.  
 
К сожалению не могу приложить файл для примера, и нигд не смог найти ответа на данный вопрос. Буду очень благодарен за помощь.