Время внесения изменения в ячейке

[and150382]

Здравствуйте!

Подскажите пожалуйста. При занесении данных в ячейки - в соседних автоматом ставится время занесения данных.
Сделал так :

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("B3:B42")) Is Nothing Then 'если изменененная ячейка попадает в диапазон B3:B50
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell

Всё работает.
Единственное время изменения ячейки ставится и при удалении данных.
Как этого избежать?

[agregator]

Например так

Private Sub Worksheet_Change(ByVal Target As Range)
 For Each cell In Target 'проходим по всем измененным ячейкам
 If Not Intersect(cell, Range("B3:B42")) Is Nothing Then 'если изменененная ячейка попадает в диапазон B3:B50
 If Target(1, 1).Value = 0 Then
  With cell.Offset(0, 1)
 .ClearContents
  End With
 Else
 With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
 .Value = Now
 .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
 End With
 End If
 End If
 Next cell
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 For Each cell In Target 'ïðîõîäèì ïî âñåì èçìåíåííûì ÿ÷åéêàì
 If Not Intersect(cell, Range("B3:B42")) Is Nothing Then 'åñëè èçìåíåíåííàÿ ÿ÷åéêà ïîïàäàåò â äèàïàçîí B3:B50
 If Target(1, 1).Value = 0 Then
  With cell.Offset(0, 1)
 .ClearContents
  End With
 Else
 With cell.Offset(0, 1) 'ââîäèì â ñîñåäíþþ ñïðàâà ÿ÷åéêó äàòó
 .Value = Now
 .EntireColumn.AutoFit 'âûïîëíÿåì àâòîïîäáîð øèðèíû äëÿ ñòîëáöà B, ÷òîáû äàòà óìåùàëàñü â ÿ÷åéêå
 End With
 End If
 End If
 Next cell
End Sub

[agregator]

Кто нибудь, поскажите, как сделать, чтобы при копирование из Редактор Visual Basic, русские буквы отображались правильно, а не так как с здесь.

[Watcher_1]

Закиньте в блокнот а из блокнота сюда...
+ Как вариант подключите кодировку 20880

[agregator]

У меня и в блокнот, вставляются кракозябры.

[agregator]

Первый раз в блокнот, вставились кракозябры, а потом стали вставляться русские на сам сайт напрямую. Спасибо за совет.

[and150382]

Спасибо всё работает!!!:

[strannick]

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

Первый раз в блокнот, вставились кракозябры, а потом стали вставляться русские на сам сайт напрямую. Спасибо за совет.

Просто копируйте код при русской раскладке клавиатуры

[agregator]

strannick, СПАСИБО. Всё именно так и есть. Проблема была именно в раскладке клавиатуры.