| Вопрос: поиск строки по ячейке | Добавлено: 04.06.08 15:29 |
Автор вопроса:  sashok60
|
| Ответы | Всего ответов: 38 |
|
Номер ответа: 31 Автор ответа:  sashok60 Вопросов: 3 Ответов: 23 |
Профиль | | #31 | Добавлено: 05.06.08 15:20 |
| все разобралсяЮ, спасибо | ||
|
Номер ответа: 32 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #32 | Добавлено: 07.06.08 11:15 |
| есть проблемка не большая Range(tmpRange).Select уже 100 сторк выделить не может, что можно сделать? | ||
|
Номер ответа: 33 Автор ответа:  Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #33 | Добавлено: 07.06.08 11:20 |
| а MsgBox tmpRange что пишет? | ||
|
Номер ответа: 34 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #34 | Добавлено: 07.06.08 11:23 |
| пишет строки 300:300 и тд... | ||
|
Номер ответа: 35 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #35 | Добавлено: 07.06.08 11:34 |
|
вот такой код Private Sub CommandButton1_Click()
Dim RowIndex As Long  im tmpRange As String
ActiveSheet.Select For RowIndex = 2 To 400 If Len(Cells(RowIndex, vbNull).Value) = 0 Then _ tmpRange = tmpRange & CStr(RowIndex) & ":" & CStr(RowIndex) & "," Next If Len(tmpRange) > vbNull Then tmpRange = Left$(tmpRange, Len(tmpRange) - vbNull) Range(tmpRange).Select а вот сдесь вылетает ошибка Method 'Range' of object'_Global' field Selection.Copy Sheets(ActiveSheet.Index + 1).Select Range("A4"  .Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets(ActiveSheet.Index - 1).Select Selection.EntireRow.Delete Range("A1" .Select
End If Unload Me End Sub |
||
|
Номер ответа: 36 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #36 | Добавлено: 07.06.08 11:45 |
| MsgBox tmpRange пишет если оставить все пустые ячейки только до 157 строки | ||
|
Номер ответа: 37 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #37 | Добавлено: 07.06.08 12:06 |
| могу выслать файл | ||
|
Номер ответа: 38 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #38 | Добавлено: 07.06.08 19:57 |
| maxpotas@mail.ru | ||