Правильное наименование страниц в макросе
jijik2
Дата: Вторник, 07.04.2015, 17:23 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
Запуталась в наименований страниц,и макрос как он есть не срабатывает,указывает на ошибку названия листа,листы названы на кирилице а в коде на латыне...пыталась переменовать в кирилицу-не пашит...в общем я запуталась. [vba]Код
Dim Prompt As String Dim RetValue As String Dim Rng As Range Dim RowCrnt As Long Prompt = "" With Sheets("Sheet1") Do While True RetValue = InputBox(Prompt & "Give me a value to look for") 'RetValue will be empty if you click cancel If RetValue = "" Then Exit Do End If Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Rng Is Nothing Then Prompt = "I could not find """ & RetValue & """" Else RowCrnt = Rng.Row Prompt = "I found """ & RetValue & """ on row " & RowCrnt End If Prompt = Prompt & vbLf Loop End With End Sub
[/vba]
Запуталась в наименований страниц,и макрос как он есть не срабатывает,указывает на ошибку названия листа,листы названы на кирилице а в коде на латыне...пыталась переменовать в кирилицу-не пашит...в общем я запуталась. [vba]Код
Dim Prompt As String Dim RetValue As String Dim Rng As Range Dim RowCrnt As Long Prompt = "" With Sheets("Sheet1") Do While True RetValue = InputBox(Prompt & "Give me a value to look for") 'RetValue will be empty if you click cancel If RetValue = "" Then Exit Do End If Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Rng Is Nothing Then Prompt = "I could not find """ & RetValue & """" Else RowCrnt = Rng.Row Prompt = "I found """ & RetValue & """ on row " & RowCrnt End If Prompt = Prompt & vbLf Loop End With End Sub
[/vba] jijik2
Сообщение отредактировал Serge_007 - Вторник, 07.04.2015, 19:57
Ответить
Сообщение Запуталась в наименований страниц,и макрос как он есть не срабатывает,указывает на ошибку названия листа,листы названы на кирилице а в коде на латыне...пыталась переменовать в кирилицу-не пашит...в общем я запуталась. [vba]Код
Dim Prompt As String Dim RetValue As String Dim Rng As Range Dim RowCrnt As Long Prompt = "" With Sheets("Sheet1") Do While True RetValue = InputBox(Prompt & "Give me a value to look for") 'RetValue will be empty if you click cancel If RetValue = "" Then Exit Do End If Set Rng = .Columns("A:A").Find(What:=RetValue, After:=.Range("A1"), _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If Rng Is Nothing Then Prompt = "I could not find """ & RetValue & """" Else RowCrnt = Rng.Row Prompt = "I found """ & RetValue & """ on row " & RowCrnt End If Prompt = Prompt & vbLf Loop End With End Sub
[/vba] Автор - jijik2 Дата добавления - 07.04.2015 в 17:23
Rioran
Дата: Вторник, 07.04.2015, 17:31 |
Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация:
290
±
Замечаний:
0% ±
Excel 2013
jijik2 , здравствуйте! Вот в этой теме была хорошая ссылка по теме в сообщении № 8 от SkyPro . Уверен, при внимательном изучении решит Ваш вопрос. [p.s.]Просьба оформить коды тегами. И красиво, и правила по пункту 3 соблюдены.[/p.s.]
jijik2 , здравствуйте! Вот в этой теме была хорошая ссылка по теме в сообщении № 8 от SkyPro . Уверен, при внимательном изучении решит Ваш вопрос. [p.s.]Просьба оформить коды тегами. И красиво, и правила по пункту 3 соблюдены.[/p.s.]Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Сообщение отредактировал Rioran - Вторник, 07.04.2015, 17:33
Ответить
Сообщение jijik2 , здравствуйте! Вот в этой теме была хорошая ссылка по теме в сообщении № 8 от SkyPro . Уверен, при внимательном изучении решит Ваш вопрос. [p.s.]Просьба оформить коды тегами. И красиво, и правила по пункту 3 соблюдены.[/p.s.]Автор - Rioran Дата добавления - 07.04.2015 в 17:31
jijik2
Дата: Вторник, 07.04.2015, 17:45 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
Rioran, Возможно что то и найду,но по моему случаю нужна конкретика,как прописать имя листа,если в коде: With Sheets("Sheet1") а в наименование книги: Лист4(акриловая ткань) [moder]Не надо удалять замечания модератора. Пока не устраните нарушения Правил форума, ответы будут удаляться[/moder]
Rioran, Возможно что то и найду,но по моему случаю нужна конкретика,как прописать имя листа,если в коде: With Sheets("Sheet1") а в наименование книги: Лист4(акриловая ткань) [moder]Не надо удалять замечания модератора. Пока не устраните нарушения Правил форума, ответы будут удаляться[/moder] jijik2
Сообщение отредактировал Pelena - Вторник, 07.04.2015, 17:52
Ответить
Сообщение Rioran, Возможно что то и найду,но по моему случаю нужна конкретика,как прописать имя листа,если в коде: With Sheets("Sheet1") а в наименование книги: Лист4(акриловая ткань) [moder]Не надо удалять замечания модератора. Пока не устраните нарушения Правил форума, ответы будут удаляться[/moder] Автор - jijik2 Дата добавления - 07.04.2015 в 17:45
KSV
Дата: Вторник, 07.04.2015, 20:24 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
по моему случаю нужна конкретика
конкретнее некуда... :) вместо With Sheets("Sheet1") написать: [vba]Код
With Sheets("акриловая ткань")
[/vba] [moder]Не нужно ничего проверять. Нужно следовать Правилам форума. В частности, п.3.
по моему случаю нужна конкретика
конкретнее некуда... :) вместо With Sheets("Sheet1") написать: [vba]Код
With Sheets("акриловая ткань")
[/vba] [moder]Не нужно ничего проверять. Нужно следовать Правилам форума. В частности, п.3.KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Сообщение отредактировал KSV - Вторник, 07.04.2015, 23:22
Ответить
Сообщение по моему случаю нужна конкретика
конкретнее некуда... :) вместо With Sheets("Sheet1") написать: [vba]Код
With Sheets("акриловая ткань")
[/vba] [moder]Не нужно ничего проверять. Нужно следовать Правилам форума. В частности, п.3.Автор - KSV Дата добавления - 07.04.2015 в 20:24
RAN
Дата: Вторник, 07.04.2015, 20:46 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Не. Так не сработает. Так да. [vba][/vba]
Не. Так не сработает. Так да. [vba][/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Не. Так не сработает. Так да. [vba][/vba] Автор - RAN Дата добавления - 07.04.2015 в 20:46
KSV
Дата: Вторник, 07.04.2015, 21:09 |
Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
RAN , и что же ему помешает? вот, файл с этим кодом - все работает... UPD. Модератор сорри... [moder]Никаких сорей. Файл удален. Нарушение ТСей Правил форума.
RAN , и что же ему помешает? вот, файл с этим кодом - все работает... UPD. Модератор сорри... [moder]Никаких сорей. Файл удален. Нарушение ТСей Правил форума.KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Сообщение отредактировал _Boroda_ - Вторник, 07.04.2015, 21:19
Ответить
Сообщение RAN , и что же ему помешает? вот, файл с этим кодом - все работает... UPD. Модератор сорри... [moder]Никаких сорей. Файл удален. Нарушение ТСей Правил форума.Автор - KSV Дата добавления - 07.04.2015 в 21:09
RAN
Дата: Вторник, 07.04.2015, 21:20 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Не спорю. С этим файлом да. А с тем, что на картинке - нет.
Не спорю. С этим файлом да. А с тем, что на картинке - нет. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Не спорю. С этим файлом да. А с тем, что на картинке - нет. Автор - RAN Дата добавления - 07.04.2015 в 21:20
KSV
Дата: Вторник, 07.04.2015, 23:30 |
Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация:
255
±
Замечаний:
0% ±
Excel 2013
[offtop]RAN , да, не обратил внимания на картинку... теперь вижу, что слова пользователя не соответствуют реальности...
[offtop]RAN , да, не обратил внимания на картинку... теперь вижу, что слова пользователя не соответствуют реальности... KSV
KSV.VBA@gmail.com Яндекс.Деньги: 410011921213333
Ответить
Сообщение [offtop]RAN , да, не обратил внимания на картинку... теперь вижу, что слова пользователя не соответствуют реальности... Автор - KSV Дата добавления - 07.04.2015 в 23:30
jijik2
Дата: Среда, 08.04.2015, 10:10 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
Ответить
Сообщение KSV, СПАСИБО!!!!ВЫШЛО Автор - jijik2 Дата добавления - 08.04.2015 в 10:10
jijik2
Дата: Среда, 08.04.2015, 10:11 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация:
0
±
Замечаний:
40% ±
Excel 2010
RAN, Rioran, Спасибо и вам что пытались помочь
RAN, Rioran, Спасибо и вам что пытались помочь jijik2
Ответить
Сообщение RAN, Rioran, Спасибо и вам что пытались помочь Автор - jijik2 Дата добавления - 08.04.2015 в 10:11