Пожалуйста, помогите решить задачу. В одной из строк нужно найти слово, стоящее после ";" (в файле больше этот знак не встречается) и скопировать его в другую строку. Заранее очень благодарна!
Пожалуйста, помогите решить задачу. В одной из строк нужно найти слово, стоящее после ";" (в файле больше этот знак не встречается) и скопировать его в другую строку. Заранее очень благодарна!nellilec
gling, здравствуйте! Спасибо, что откликнулись. Это не всегда будет 6 строка, но всегда 1 столбец и конечная строка. И слово, стоящее после ";" нужно скопировать в 1 строку столбец 3 (там оно будет начальным словом). Это формат файла для зачислеия ЗП в Бинбанк. Я уже неделю бьюсь, как рыба об лед. Перелопатила кучу макросов, но что-то не работает, мозгов не хватает((( ....
gling, здравствуйте! Спасибо, что откликнулись. Это не всегда будет 6 строка, но всегда 1 столбец и конечная строка. И слово, стоящее после ";" нужно скопировать в 1 строку столбец 3 (там оно будет начальным словом). Это формат файла для зачислеия ЗП в Бинбанк. Я уже неделю бьюсь, как рыба об лед. Перелопатила кучу макросов, но что-то не работает, мозгов не хватает((( ....nellilec
ShAM, простите за глупость, но как я должна применить эту формулу? Если я ставлю эту формулу в ячейку и нажимаю вычислить у меня получается #ИМЯ? И еще один вопрос блондинки))). Эти файлы будут формироваться всегда разные, формулу нужно каждый раз вставлять? Или можно автоматизировать процесс? Объясню, зачем мне это надо. Конечно, можно в уже сформированном файле найти нужное значение и руками его написать. Но есть вариант в "запарке" просто об этом забыть! И тогда банк отвергнет файл и люди останутся без ЗП! Спасите!!! Помогите!!!
ShAM, простите за глупость, но как я должна применить эту формулу? Если я ставлю эту формулу в ячейку и нажимаю вычислить у меня получается #ИМЯ? И еще один вопрос блондинки))). Эти файлы будут формироваться всегда разные, формулу нужно каждый раз вставлять? Или можно автоматизировать процесс? Объясню, зачем мне это надо. Конечно, можно в уже сформированном файле найти нужное значение и руками его написать. Но есть вариант в "запарке" просто об этом забыть! И тогда банк отвергнет файл и люди останутся без ЗП! Спасите!!! Помогите!!!nellilec
_Boroda_, спасибо! Ваш вариант работает!!!! Как можно сделать этот процесс автоматическим? Чтоб нажать кнопочку и чудо произошло? В день будет формироваться до 15 файлов. Я готова обсудить Ваш P.S
_Boroda_, спасибо! Ваш вариант работает!!!! Как можно сделать этот процесс автоматическим? Чтоб нажать кнопочку и чудо произошло? В день будет формироваться до 15 файлов. Я готова обсудить Ваш P.Snellilec
Sub tekst() Dim I&, KS& For I = 2 To Range("A" & Rows.Count).End(xlUp).Row KS = InStr(Cells(I, 1), ";") If KS > 0 Then Cells(1, 3) = Mid(Cells(I, 1), KS + 1) & " от " & Cells(1, 1) End If Next End Sub
Sub tekst() Dim I&, KS& For I = 2 To Range("A" & Rows.Count).End(xlUp).Row KS = InStr(Cells(I, 1), ";") If KS > 0 Then Cells(1, 3) = Mid(Cells(I, 1), KS + 1) & " от " & Cells(1, 1) End If Next End Sub
Dim I&, KS& For I = 2 To Range("A" & Rows.Count).End(xlUp).Row KS = InStr(Cells(I, 1), ";") If KS > 0 Then Cells(1, 3) = Mid(Cells(I, 1), KS + 1) & " пп от " & Cells(1, 1) + " к выдаче за " End If
[/vba] Все работает!!!! УРА!!! [moder]Используйте теги оформления. Для макросов кнопка #
Wasilic, я ВАС ЛЮБЛЮ!!!!!!!!!!!! Вы-гений! [vba]
Код
Dim I&, KS& For I = 2 To Range("A" & Rows.Count).End(xlUp).Row KS = InStr(Cells(I, 1), ";") If KS > 0 Then Cells(1, 3) = Mid(Cells(I, 1), KS + 1) & " пп от " & Cells(1, 1) + " к выдаче за " End If
[/vba] Все работает!!!! УРА!!! [moder]Используйте теги оформления. Для макросов кнопка #nellilec
Сообщение отредактировал _Boroda_ - Среда, 09.12.2015, 12:16
Спасибо, Всем, кто откликнулся! ShAM, gling, _Boroda_, Wasilic, вы мне очень помогли! Так потихоньку, с чужой помощью, блондинки становятся умными СПАСИБО!!!!!
Спасибо, Всем, кто откликнулся! ShAM, gling, _Boroda_, Wasilic, вы мне очень помогли! Так потихоньку, с чужой помощью, блондинки становятся умными СПАСИБО!!!!!nellilec
Сообщение отредактировал nellilec - Среда, 09.12.2015, 12:24
[offtop] китин, занимательная ссылочка Конечно - это стереотип. Но довольно устойчивый, особенно в мужской среде. Возможно, на сегодняшний день, это выражение даже можно считать фразеологизмом. И про "блондинистость" я упомянула сознательно, понимая, что стереотип сработает, чтобы подчеркнуть значимость помощи, которую получила здесь. Не думаю, что кого-то обидела, и, уж тем более, не стремилась подчеркнуть своё эго! И, ДЕЙСТВИТЕЛЬНО, ОЧЕНЬ БЛАГОДАРНА ЗА ПОМОЩЬ! [p.s.] продолжить дискуссию можем в личной переписке.
[offtop] китин, занимательная ссылочка Конечно - это стереотип. Но довольно устойчивый, особенно в мужской среде. Возможно, на сегодняшний день, это выражение даже можно считать фразеологизмом. И про "блондинистость" я упомянула сознательно, понимая, что стереотип сработает, чтобы подчеркнуть значимость помощи, которую получила здесь. Не думаю, что кого-то обидела, и, уж тем более, не стремилась подчеркнуть своё эго! И, ДЕЙСТВИТЕЛЬНО, ОЧЕНЬ БЛАГОДАРНА ЗА ПОМОЩЬ! [p.s.] продолжить дискуссию можем в личной переписке.nellilec
Сообщение отредактировал nellilec - Четверг, 10.12.2015, 00:51