Скрипты в Excel 500 Бал. - есть ответ

CheVava, 123 просмотра

-3

У бухов есть файлик http://slil.ru/26448345 (пароль:guga)

Прошу замутить в нём динамику, что бы те строки у которых в примечании что нить писалось, сразу спускались в куда нибудь в низ (но оставались).

Это нужно потому, что данных файлик будут править несколько человек ну и что бы зёлёные строки не моячили их просят куда нить автоматически смещать.

Готовый файлик прошу скинуть на мыло (профиль) с указанием своего ника в ВиО!
Спасибо!

Примечание:
Версия 2003
Править будут в разное время
Доступ по сетевым папкам без ШараПоинт.

ПСБ, буду ждать )

Ответы:

Вот так и помогай после этого людям :)

Sub sort()
Dim ws As Worksheet, FinalRow As Long, i As Long
Set ws = ThisWorkbook.Worksheets("Ëèñò3")
FinalRow = ws.Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 13 To FinalRow
If Len(ws.Cells(i, 5)) <> 0 Then
ws.Rows(i).Cut
ws.Rows(FinalRow + 1).Insert
End If
Next i
End Sub

Вот так и помогай после этого людям :)

Sub sort()
Dim ws As Worksheet, FinalRow As Long, i As Long
Set ws = ThisWorkbook.Worksheets("Лист3")
FinalRow = ws.Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 13 To FinalRow
If Len(ws.Cells(i, 5)) <> 0 Then
ws.Rows(i).Cut
ws.Rows(FinalRow + 1).Insert
End If
Next i
End Sub

Вот так и помогай после этого людям :)

Я тебе отправил, гони 500 баллов!

16 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.