мне надо было найти строку по слову и в этой строке в определенный столбец вставить значени [vba]
Код
Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Белгород" Workbooks("Ñâîä").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) If Not rFoundRng Is Nothing Then rFoundRng.Column("F") = k_ Else MsgBox "Ничего нет" Exit Sub End If
[/vba] т.е. он нашел Белгород и в столбце "численность" напротив Белгорода поставил число. Ругается именно на .Column("F") я в это новичок, так что не ругайте сразу((
мне надо было найти строку по слову и в этой строке в определенный столбец вставить значени [vba]
Код
Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Белгород" Workbooks("Ñâîä").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) If Not rFoundRng Is Nothing Then rFoundRng.Column("F") = k_ Else MsgBox "Ничего нет" Exit Sub End If
[/vba] т.е. он нашел Белгород и в столбце "численность" напротив Белгорода поставил число. Ругается именно на .Column("F") я в это новичок, так что не ругайте сразу((Klara
1. Что такое у Вас в макроса k_? Должна быть численность, но где Вы ее до этого считаете, Вы нам не показываете почему-то. 2. Я Вам привел КУСОК макроса (видите троеточия вверху и внизу?). Не догадались, да? Целиком макрос такой [vba]
Код
Sub tt() Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Белгород" Workbooks("Ñâîä"").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) r_ = rFoundRng.Row If Not rFoundRng Is Nothing Then Range("F" & r_) = k_ Else MsgBox "Ничего нет" Exit Sub End If End Sub
[/vba]
1. Что такое у Вас в макроса k_? Должна быть численность, но где Вы ее до этого считаете, Вы нам не показываете почему-то. 2. Я Вам привел КУСОК макроса (видите троеточия вверху и внизу?). Не догадались, да? Целиком макрос такой [vba]
Код
Sub tt() Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Белгород" Workbooks("Ñâîä"").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) r_ = rFoundRng.Row If Not rFoundRng Is Nothing Then Range("F" & r_) = k_ Else MsgBox "Ничего нет" Exit Sub End If End Sub
_Boroda_, ну так я так и сделала, вставила тот кусочек, туда куда надо и один фиг, он добавляет в первую строку...а от k_ разве что-то зависит? а код не показываю потому что, там все так плохо и ужасно, что аж стыдно...но главное работает))
_Boroda_, ну так я так и сделала, вставила тот кусочек, туда куда надо и один фиг, он добавляет в первую строку...а от k_ разве что-то зависит? а код не показываю потому что, там все так плохо и ужасно, что аж стыдно...но главное работает)) Klara
На Вашем же файле у меня добавляет в ячейку F2 - ведь напротив нее Белгород, так ведь? А код [vba]
Код
Sub tt() Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Иркутск" k_ = 555 ' Workbooks("N~a^i^a"").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) r_ = rFoundRng.Row If Not rFoundRng Is Nothing Then Range("F" & r_) = k_ Else MsgBox "Ничего нет" Exit Sub End If End Sub
[/vba]добавляет в F5 - где Иркутск.
На Вашем же файле у меня добавляет в ячейку F2 - ведь напротив нее Белгород, так ведь? А код [vba]
Код
Sub tt() Dim rFoundRng As Range Dim sTSearch As String sTSearch = "Иркутск" k_ = 555 ' Workbooks("N~a^i^a"").Activate Set rFoundRng = Rows.Find(sTSearch, , xlFormulas, xlPart) r_ = rFoundRng.Row If Not rFoundRng Is Nothing Then Range("F" & r_) = k_ Else MsgBox "Ничего нет" Exit Sub End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
