Всем здравствуйте. Столкнулся с проблемой. Вношу данные в ячейку С1, в ячейке Е1, после знака = подставляются нужные мне данные (из С1). Мне надо, чтобы в ячейку F1, копировалась строка из ячейки Е1, но уже без формулы. При измениии данных в ячейке С1, данные в F1 должны также обновляться, но уже без формулы. Буду признателен по помощь.
Всем здравствуйте. Столкнулся с проблемой. Вношу данные в ячейку С1, в ячейке Е1, после знака = подставляются нужные мне данные (из С1). Мне надо, чтобы в ячейку F1, копировалась строка из ячейки Е1, но уже без формулы. При измениии данных в ячейке С1, данные в F1 должны также обновляться, но уже без формулы. Буду признателен по помощь.Mark1976
Private Sub Worksheet_Change(ByVal Target As Range) Dim dd_& dd_ = Cells(Rows.Count, 3).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C1:C" & dd_)) Is Nothing Then If Target <> "" Then Target.Offset(0, 3) = Target.Offset(0, 2).Value End If End Sub
[/vba]
Здравствуйте! Это можно только макросом [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim dd_& dd_ = Cells(Rows.Count, 3).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C1:C" & dd_)) Is Nothing Then If Target <> "" Then Target.Offset(0, 3) = Target.Offset(0, 2).Value End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Set d0_ = Intersect(Target, Range("B1:C" & Cells(Rows.Count, 2).End(3).Row)) If Not d0_ Is Nothing Then Application.ScreenUpdating = 0 Application.Calculation=3 For Each d_ In d0_ r_ = d_.Row a1_ = Cells(r_, 2) a2_ = Cells(r_, 3) If a1_ <> "" And a2_ <> "" Then Cells(r_, 6) = a1_ & a2_ End If Next d_ Application.Calculation=1 Application.ScreenUpdating = 1 End If End Sub
[/vba]
Правой мышой на ярлык листа - исходный текст - все, что там если есть стираете и вставляете код В наших с Игорем файлах он (код) уже вставлен
Отличие в том, что у Игоря работает при изменении в одной (любой непустой) ячейке столбца С, у меня - в любом количестве в столбцах В и С
*Дописал Application-ы
Еще вариант макроса [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Set d0_ = Intersect(Target, Range("B1:C" & Cells(Rows.Count, 2).End(3).Row)) If Not d0_ Is Nothing Then Application.ScreenUpdating = 0 Application.Calculation=3 For Each d_ In d0_ r_ = d_.Row a1_ = Cells(r_, 2) a2_ = Cells(r_, 3) If a1_ <> "" And a2_ <> "" Then Cells(r_, 6) = a1_ & a2_ End If Next d_ Application.Calculation=1 Application.ScreenUpdating = 1 End If End Sub
[/vba]
Правой мышой на ярлык листа - исходный текст - все, что там если есть стираете и вставляете код В наших с Игорем файлах он (код) уже вставлен
Отличие в том, что у Игоря работает при изменении в одной (любой непустой) ячейке столбца С, у меня - в любом количестве в столбцах В и С