Господа, прошу помощи ( заранее прошу прощения за простой вопрос, который, возможно, повторялся ни один раз)
Есть код:
Как туда вкрутить второй "if" c условием : если ни одна из ячеек в диапазоне <> "Dest. Storage Type", then msgbox "нет данных".
P.S. Просто, у меня все время получается зацикливать msgbox на каждый из 50 ячеек,но это уже лирика).
Есть код:
| Код |
|---|
Worksheets("Sheet1").Select
lLastRow = Cells.SpecialCells(xlLastCell).Row
For i = 1 To 50
If Cells(1, i).Value = "Dest. Storage Type" Then
Range(Cells(1, i), Cells(lLastRow, i).End(xlDown)).Copy Worksheets("sheet1").Range("V1")
Exit For
End If
Next
|
P.S. Просто, у меня все время получается зацикливать msgbox на каждый из 50 ячеек,но это уже лирика).
