Serge_007, это значит, что например у нас есть слово Собака в ячейке G4. Оно перенеслось в колонку Project. Потом мы удаляем это слово из ячейки G4 и пишем туда Кошка. Это слово перенеслось под Собаку. Т.е колонка Project заполняется по мере введения слов в ячейку G4.
Serge_007, это значит, что например у нас есть слово Собака в ячейке G4. Оно перенеслось в колонку Project. Потом мы удаляем это слово из ячейки G4 и пишем туда Кошка. Это слово перенеслось под Собаку. Т.е колонка Project заполняется по мере введения слов в ячейку G4.Oh_Nick
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g4")) Is Nothing Then u = Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("a" & u) = Target.Value End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g4")) Is Nothing Then u = Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("a" & u) = Target.Value End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g4")) Is Nothing Then u_1 = Cells(Rows.Count, "a").End(xlUp).Value u_2 = Cells(Rows.Count, "a").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "a").End(xlUp).Row Range("a" & u_2 + 1) = Target.Value End If End Sub
[/vba]
вдруг правильно [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("g4")) Is Nothing Then u_1 = Cells(Rows.Count, "a").End(xlUp).Value u_2 = Cells(Rows.Count, "a").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "a").End(xlUp).Row Range("a" & u_2 + 1) = Target.Value End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i6")) Is Nothing Then u_1 = Cells(Rows.Count, "a").End(xlUp).Value u_2 = Cells(Rows.Count, "a").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "a").End(xlUp).Row Range("a" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("j6")) Is Nothing Then u_1 = Cells(Rows.Count, "b").End(xlUp).Value u_2 = Cells(Rows.Count, "b").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "b").End(xlUp).Row Range("b" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("k6")) Is Nothing Then u_1 = Cells(Rows.Count, "c").End(xlUp).Value u_2 = Cells(Rows.Count, "c").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "c").End(xlUp).Row Range("c" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("l6")) Is Nothing Then u_1 = Cells(Rows.Count, "d").End(xlUp).Value u_2 = Cells(Rows.Count, "d").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "d").End(xlUp).Row Range("d" & u_2 + 1) = Target.Value End If End Sub
[/vba]
Вот так получилось, вроде работает:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i6")) Is Nothing Then u_1 = Cells(Rows.Count, "a").End(xlUp).Value u_2 = Cells(Rows.Count, "a").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "a").End(xlUp).Row Range("a" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("j6")) Is Nothing Then u_1 = Cells(Rows.Count, "b").End(xlUp).Value u_2 = Cells(Rows.Count, "b").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "b").End(xlUp).Row Range("b" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("k6")) Is Nothing Then u_1 = Cells(Rows.Count, "c").End(xlUp).Value u_2 = Cells(Rows.Count, "c").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "c").End(xlUp).Row Range("c" & u_2 + 1) = Target.Value End If If Not Intersect(Target, Range("l6")) Is Nothing Then u_1 = Cells(Rows.Count, "d").End(xlUp).Value u_2 = Cells(Rows.Count, "d").End(xlUp).Row If u_1 = "" Then u_2 = Cells(u_2, "d").End(xlUp).Row Range("d" & u_2 + 1) = Target.Value End If End Sub