Управление условным форматированием

[valerij]

Сообщение от VictorM

Private Sub CommandButton1_Click()
L = ActiveSheet.Index
MsgBox L
End Sub

Вставил в модуль "L = ActiveSheet.Index" и все ОК!!
VictorM, VictorM!!
Спасибо!!

[VictorM]

ниже Sub Sum() вместо 'MsgBox L напишите L = ActiveSheet.Index

[valerij]

Сообщение от VictorM

ниже Sub Sum() вместо 'MsgBox L напишите L = ActiveSheet.Index

Да, да, все ОК!

З. Ы.
Осталось еще пара проблем это Здесь

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

[VictorM]

Вставил в модуль "L = ActiveSheet.Index" и все ОК!!

пока Вы мне это писали, я отвечал Вам и не заметил Вашего сообщения. Вот и вышел дубль :-)

Осталось еще пара проблем

посмотрю

[valerij]

Сообщение от VictorM

посмотрю

VictorM!
А как по русски это сказать?
L = ActiveSheet.Index

[VictorM]

ActiveSheet - Активный лист
Значение переменной L = Индекс Активного Листа

[VictorM]

Есть столбец I, в листах1-13 в них есть числа, занимают диапазон I31:I36 и I79:I84 и т. д с шагом 48, до I1471:I1476(Такое на всех 13-ти листах)
Максимально, числа могут занимать все шесть ячеек, мин - не одной.
При вводе данных в эти ячейки, нужно, что бы эти данные скопировались в Лист14 в ст. В, все было бы просто, если бы не нули, в случае отсутствия данных. Как провести копирование, типа когда удаляешь ячейку происходит сдвиг в верх, при условии нуля, нулей?

если я Вас правильно понял и если всего 1500 строк, то можно сделать примерно так

Sub ОтсюдаСюда()
Application.ScreenUpdating = False
Worksheets("Отсюда").Range("I1:I1476").Copy Destination:=Worksheets("Сюда").Range("B1")
Application.Goto Reference:=Worksheets("Сюда").Range("B1")
For i = 1 To 1476
    znach = ActiveCell.Value
    If znach = 0 Then
        Selection.Delete Shift:=xlUp
    Else
        ActiveCell.Offset(1, 0).Activate
    End If
Next i
Application.ScreenUpdating = True
End Sub

здесь сохраняются форматы исходных ячеек

[valerij]

Сообщение от VictorM

если я Вас правильно понял и если всего 1500 строк

Не получилось, где выбор чисел I31:I36....., с шагом 48

Он скопировал, даже шапку.
Наверное мне надо, как то попонятнее вложение сделать, щас сделаю

[VictorM]

посмотрите тогда Ваш файл.
Я делал согласно этого.

[valerij]

Сообщение от VictorM

посмотрите тогда Ваш файл.
Я делал согласно этого.

VictorM
Там две задачи, разные, то я виноват, при копировании не должно быть промежутков, нулей!
А вот файл с двумя последними задачами