[azbest]

Извините, в этом помочь не могу.

[Margarittka]

Спасибо всем!!!!!!!!!!!!!!!
Все работает просто потрясающе!!!!!!!!!!!!!!!!!!!!

[MaryMegg]

Добрый день.
Помогите пожалуйста. Вопрос такой:
Есть Книга в Ecxel, в ней 3 листа...
1-й лист - опросник; 2-ой лист - обрабатывает данные опроса, 3-й должен содержать в себе (по строкам) ФИО из 1-ого листа и данные из 2-ого листа. Должно быть опрошено 60 чел. и соответственно на 3-ем листе должна появиться таблица из 60 строк с ФИО и данными опроса по каждому.
На 1-ом листе имеется кнопка Сохранить, после ввода данных каждым участником нажатие этой кнопки должно приводить к перемещению данных относящихся к данному участнику опроса в таблицу на 3-ем листе, а опросник приводиться в исходный вид (очищаться).
Основной вопрос в следующем, как добиться того, чтобы данные о каждом следующем участнике записывались в следующую строку.
Советам по другим моментам грамотного написания данного макроса буду рада.
Заранее спасибо:-)

[Pliomera]

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

Для этого надо определить номер последней занятой строки. Для этого немножко курим мануал по ключевым словам Cells(..., ...).End(xlDown)

[vik]

Доброго времени суток всем. Помогите пожалуйста.
Требуется каждую ячейку выделенного блока скопировать на отдельный лист книги.
т.е. одная ячейка- один лист.
Примерно вот так.
Саша- ячейка на лист1
Петя-ячейка на лист2
Миша-ячейка на лист3
и.т.д.
Заранее спасибо

Доброго времени суток всем. Помогите пожалуйста.
Требуется каждую ячейку выделенного блока скопировать на отдельный лист книги.
т.е. одная ячейка- один лист.
Примерно вот так.
Саша- ячейка на лист1
Петя-ячейка на лист2
Миша-ячейка на лист3
и.т.д.
Заранее спасибо.

[Pliomera]

vik,

Код:

Sub CellsCopy()
x = 1
With Selection
For i = 1 To .Columns.Count
For j = 1 To .Rows.Count
x = x + 1
If x > Sheets.Count Then Sheets.Add after:=Sheets(x - 1)
Sheets(x).Cells(1, 1).Value = .Cells(j, i).Value
Next j
Next i
End With
End Sub

[vik]

Pliomera,

Спасибо!!!!!
То что надо!

[MR.TOR]

Пожалуйста помогите.
Нужен макрос для Excel, чтоб в документе в каждой заполненной ячейке содержимое брал в одинарные кавычки и перед началом ставил пробел, пример : пробел'0000'
Буду очень признателен всем кто посодействует!

[Delirium]

MR.TOR, ячейки должны задаваться или же просто нужен обход всех ячеек листа? Как пример - для диапазона в 500 строк и 500 столбцов:

Код:

Sub Макрос1()
    For i = 1 To 500
        For j = 1 To 500
            If Cells(i, j) <> "" Then
                Cells(i, j) = " '" & Cells(i, j) & "'"
            End If
        Next
    Next
    MsgBox "Готово"
End Sub

P.S. И перестаньте писать капсом, первое предупреждение.

[MR.TOR]

Delirium спаибо Вам большое. Очень сильно выручили! Этот макрос для Excel, это то что мне нужно для моей роботы. Большое человеческое спасибо!