Имеется формула на ячейке B1 которая позволяет копировать содержимое ячейки A1, при том условии если что-нибудь написать в ячейке A1: [vba]
Код
=ЕСЛИ(Лист1!A1<>"";Лист1!A1;"")
[/vba] Вопрос: как сделать так чтобы при заполнении ячейки A1 она копировалась и вставлялась в ячейку B2, потом можно было стереть ячейку А1, написать в ней что-нибудь другое и она копировалась и вставлялась в ячейку B3, и.т.д., то есть сделать так, чтобы ячейка B2 не перезаписывалась, а оставалась такой как есть, а ниже неё вставлялся новый текст из ячейки А1. То есть, если в ячейке В2 уже есть какой-то текст, то он не будет перезаписываться.
Здравствуйте!
Имеется формула на ячейке B1 которая позволяет копировать содержимое ячейки A1, при том условии если что-нибудь написать в ячейке A1: [vba]
Код
=ЕСЛИ(Лист1!A1<>"";Лист1!A1;"")
[/vba] Вопрос: как сделать так чтобы при заполнении ячейки A1 она копировалась и вставлялась в ячейку B2, потом можно было стереть ячейку А1, написать в ней что-нибудь другое и она копировалась и вставлялась в ячейку B3, и.т.д., то есть сделать так, чтобы ячейка B2 не перезаписывалась, а оставалась такой как есть, а ниже неё вставлялся новый текст из ячейки А1. То есть, если в ячейке В2 уже есть какой-то текст, то он не будет перезаписываться.Dmitry1992_92
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub lr = Cells(Rows.Count, 2).End(xlUp).Row If lr = 1 Then If Cells(lr, 2).Value = "" Then Cells(lr, 2).Value = Target.Value Else: Cells(lr + 1, 2) = Target.Value End If Else: Cells(lr + 1, 2) = Target.Value End If End Sub
[/vba]
Добрый день. в модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub lr = Cells(Rows.Count, 2).End(xlUp).Row If lr = 1 Then If Cells(lr, 2).Value = "" Then Cells(lr, 2).Value = Target.Value Else: Cells(lr + 1, 2) = Target.Value End If Else: Cells(lr + 1, 2) = Target.Value End If End Sub
sboy, ну вот чтобы я написал на первом листе в ячейке А1 слово "привет" например, и это слово копировалось и вставилось на вторую страницу в ячейку B1.
sboy, ну вот чтобы я написал на первом листе в ячейке А1 слово "привет" например, и это слово копировалось и вставилось на вторую страницу в ячейку B1.Dmitry1992_92
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub With Sheets(2) If .Cells(1, 2).Value = "" Then .Cells(1, 2).Value = Target.Value Else: .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target.Value End If End With End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub With Sheets(2) If .Cells(1, 2).Value = "" Then .Cells(1, 2).Value = Target.Value Else: .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target.Value End If End With End Sub