Вывод диалогово окна с возмодностью ввода столбца и значений

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

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

Вывод диалогово окна с возмодностью ввода столбца и значений (Макросы/Sub)

timo64uk

Дата: Пятница, 15.11.2024, 08:18 | Сообщение № 1

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

Ранг: Участник

Сообщений: 95

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

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

Office16

Добрый день.
Переделал код, который мне предоставили на данном форуме из удаления под копировать-вставить как 123.
[vba]

Код

       'Если D35 и ниже до последней содержит *Iskomoe*, то столбец Stolbec копировать и вставить как 123
        Dim PS As Variant, i As Variant, Iskomoe As Variant, Stolbec As Variant
        PS = Cells(Rows.Count, 1).End(xlUp).Row
        For i = PS To 35 Step -1
'       Iskomoe = InputBox("Выберите значение в столбце D", "Запрос данных", "")
'       Set Iskomoe = Application.InputBox("Выберите значение в столбце D")
        If Cells(i, 4).Value Like "*Iskomoe*" Then
'       Set Stolbec = Application.InputBox("Выберите номер столбца")
        Cells(i, Stolbec).Copy
        Cells(i, Stolbec).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
        Next

[/vba]
Если переменных нет, то все работает, однако хочется наладить диалог пользователя с кодом через переменные.
Прошу вашей помощи:
Если в столбце 4 в ячейке содержится значение допустим 500, то в столбце допустим 9 (I) в соседней ячейке происходит копирование и вставка как значения (а не формулы). Самое сложное, это то, что значение 500 и столбец 9 выбирает пользователь через диалоговые окна или окно.

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

Сообщение отредактировал timo64uk - Пятница, 15.11.2024, 08:49

Ответить

timo64uk

Дата: Пятница, 15.11.2024, 09:18 | Сообщение № 2

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

Ранг: Участник

Сообщений: 95

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

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

Office16

С вводом искомого значения вроде получилось (случайно). Остается дело за номером столбца (и As Variant явно не везде верно указал)

Сообщение отредактировал timo64uk - Пятница, 15.11.2024, 09:20

Ответить

_Boroda_

Дата: Пятница, 15.11.2024, 10:32 | Сообщение № 3

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

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

Сообщений: 16714

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

Dim Stolbec As Integer
Stolbec = Application.InputBox("Выберите номер столбца")
Cells(2, Stolbec) = Cells(2, Stolbec).Value

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995