Вставить строчку в определенное место

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставить строчку в определенное место (Макросы/Sub)

rtv2061

Дата: Вторник, 25.07.2023, 21:14 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2013

Добрый вечер!
Прошу Вашей помощи в решении проблемки.
Есть таблица в которой данные. Необходимо макросом вставитьстрочку ниже последнего выбираемого значения.
К примеру по столбце 2 (столбец В) искать последнее значени "Иванов" и ниже него вставитьь строчку.
Заранее благодарен!

К сообщению приложен файл: 2285054.xlsx (9.6 Kb)

Ответить

Serge_007

Дата: Среда, 26.07.2023, 08:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

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

Цитата rtv2061, 25.07.2023 в 21:14, в сообщении № 1 (

)

вставитьстрочку ниже последнего выбираемого значения

Как выбирается значение?

Цитата rtv2061, 25.07.2023 в 21:14, в сообщении № 1 (

)

вставитьь строчку.

Пустую?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Nic70y

Дата: Среда, 26.07.2023, 10:26 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Двойной клик левой кнопкой мыши по ячейке B1
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$1" Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

[/vba]UserForm1.Show:

Код UserForm1:
[vba]

Код

Private Sub TextBox1_Change()
    a = TextBox1.Value
    b = Cells(Rows.Count, "b").End(xlUp).Row
    c = Application.Match(a, Range("b2:b" & b), 0)
    If IsNumeric(c) Then
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Label1.Caption = d
    Else
        Label1.Caption = ""
    End If
End Sub
Private Sub CommandButton1_Click()
    a = Label1.Caption
    If IsNumeric(a) Then
        Rows(a).Insert Shift:=xlDown
        Unload UserForm1
    Else
        MsgBox "Не найдено!"
    End If
End Sub

[/vba]

К сообщению приложен файл: 0224907.gif (12.8 Kb) · 2285054.xlsm (19.7 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 26.07.2023, 10:26

Ответить

rtv2061

Дата: Среда, 26.07.2023, 18:21 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2013

Serge_007, Значение выбирается из формы. Пример прикладываю.
Вставить необходимо вставить строчку с данными с TextBox1 и TextBox2

К сообщению приложен файл: 3055478.xlsm (19.5 Kb)

Ответить

rtv2061

Дата: Среда, 26.07.2023, 18:26 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2013

Nic70y, потестирую Ваш макрос.

Ответить

Nic70y

Дата: Четверг, 27.07.2023, 08:43 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

rtv2061, не совсем понятно Ваше описание.
[vba]

Код

Private Sub CommandButton1_Click()
    x = ListBox1.ListIndex
    If x = -1 Then
        MsgBox "ФИО не выбраны"
    Else
        a = ListBox1.Value
        b = Cells(Rows.Count, "b").End(xlUp).Row
        c = Application.Match(a, Range("b2:b" & b), 0)
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Rows(d).Insert Shift:=xlDown
        Range("b" & d) = a
        'тута вписать правильные столбцы
        Range("c" & d) = TextBox1.Value
        Range("d" & d) = TextBox2.Value
    End If
End Sub

[/vba]

К сообщению приложен файл: 49.xlsm (25.0 Kb)

ЮMoney 41001841029809

Ответить

rtv2061

Дата: Понедельник, 31.07.2023, 18:46 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2013

Nic70y, Все работает.
Благодарю Вас!

Ответить

Вставить строчку в определенное место (Макросы/Sub)

Страница 1 из 1
1