VBA Excel 2003

[tat-besidovska]

Здравствуйте!!! Подскажите, пожалуйтса, каким образом можно с помощью VBA определить последнюю непустую ячейку в столбце определенного диапазона, например столбец("B6:B12"), заранее благодарю за помощь

[SAS888]

Конкретно для Вашего диапазона, например так :

MsgBox Range("B13").End(xlUp).Row

Но если весь диапазон пуст - то полученное значение будет меньше, чем Ваша начальная строка (в данном случае 6). Если нужно - сравнивайте, а дальше по-необходимости.

[tat-besidovska]

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

[SAS888]

Тогда с использованием цикла. Например, так:

For i = 12 To 6 Step -1
        If Not IsEmpty(Cells(i, "B")) Then Exit For
    Next
    
    MsgBox i

P.S. Если диапазон пуст, то i = 5 (строка перед Вашим диапазоном).

[tat-besidovska]

Да, я поняла, только мне нужно именно значение ячейки

[SAS888]

Если известны строка и столбец, то какая проблема?
После выхода из цикла:

X = Cells(i, "B").Value ' это значение

[katrin1548]

Подскажите пожалуйста. Совсем запуталась (никогда не работала с VBA а тут пришлось).

Есь ListBox в который выбираются фамилии (может быть выбрано от одного до бесконечности). И есть папка с файлами (filename=Фамилия.xls). Нужно задать цикл с первого по последнее значение ListBox.
1. Проверить есть ли файл с такой фамилией
2. Если нет создать по шаблону
3. Если есть добавить информацию

P.S. основная проблема заключается в вытягивании значений из ListBox и пункте 1. Столько всего перепробовала...но не получается. Наверняка по незнанию что-то не так делаю...(((

[VictorM]

вытягивании значений из ListBox

может вот это?

iIndex = ListBox1.ListIndex
iFam = ListBox1.List(iIndex, 0)
MsgBox iFam

и перебрать все в цикле

[katrin1548]

не работает((

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

[VictorM]

попробуйте так

For i = 0 To 100'индекс начинается с 0, дальше Ваше значение
iFam = ListBox1.List(iIndex & i, 0)
MsgBox iFam
Next i