Lenus[quot vkodor] доброе тебе спасибо. а можно ли сделать добавить определение последней строки если да то как?

http://]http://www.sql.ru/forum/actualthread.aspx?tid=396213

Lenus[quot vkodor] доброе тебе спасибо. а можно ли сделать добавить определение последней строки если да то как?

номер последней строки

Lenus[quot Deggasad]!
я полный чайник в этом. нужно создовать новый макрос или эту строчку вставляют в макрос?

LastRow = WorksheetFunction.CountIf(Range(Cells(1, x), Cells(65536, x)), "*?")

плиз помогите разобраться

Это не моё

vbapro
если нужно определить по колонке, что чаще всего и применяется, я согласен с vkodor, то указываешь колонку, не указываешь - то получаешь максимум. По аналогии с этой функцией можно сделать функцию и для определения последней колонки.

DeggasadЭто не моё

vbapro
если нужно определить по колонке, что чаще всего и применяется, я согласен с vkodor, то указываешь колонку, не указываешь - то получаешь максимум. По аналогии с этой функцией можно сделать функцию и для определения последней колонки.


Текст функции вставить в макрос и использовать




A -номер колонки, в которой нужно посчитать последнюю строчку, _
если A=0, то считается на всём листе
x - искомая последняя строка

Sub test()

x = LastRow(A, Sheets("Лист2"))

End Sub

Lenus[quot Deggasad] а можете на моем приме 2 показать как это делается?

посмотри

Я сам плаваю! Но держи!

Lenus[quot Deggasad], я бы так не сказала! отлично пашет! только мне не хватает чтобы при вводе новой . накл. данные не обнавлялись а оставались и кним добовлялись новые.
Можно,но вероятна опасность, что из одной и той же накладной перересётся несколько раз (разве что проверку сделать по номеру документа) или тогда нужно не по всем листам процедуру делать, а только по активному листу. Наверное лучше как можно правильнее вопрос чформулировать и выложить сюда мож кто чё подскажет, наверняка как нибуть по простому можно сделать через проверку номера документа.

Lenus[quot Deggasad] я дико извиняюсь, но может ты поможешь с этим макросом? может можно его под мой загнать?

Sub voreve()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Tabelle3" Then
ws.Range("D24:CD31").Copy Destination:=Worksheets("Tabelle3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next

End Sub

Я тоже дико извиняюсь, но что значит загнать? Что с ним нужно делать???
1) Он копирует строчки, а вы сказали, что нужно ячейки, которые помечены красным (часть из них не в строчках, а вообще сверху таблицы)
2) Он копирует формулы, а так как мы копируем отдельные ячейки, то нам нужны значения насколько я понимаю.
3) Насколько я опять же понимаю Range("D24:CD31") - является переменным, а не постоянным.
4)...
Я честно так и не могу понять что нужно. Может конкретно написать нужно чтобы получилось вот так...
Из того чего понял сделал перехват ошибок если номер накладной уже встречается и из взял часть вашей процедуры для определения новой строки (там в макросе помечено).
Чем мог тем помог