Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Спасибо БМВ, Eco! Вы мне очень помогли! Дай вам бог здоровья! :*
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Есо, сорри, но почему то в скрытых не получается:( Почему?
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Спасибо Есо! Теперь и ваш код делает то что нужно! А какой теперь использовать не знаю:) А который быстрее должен работать?
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
БМВ!!! Супер! Все работает! Спасибо Вам огромное! :) Дай Вам бог здоровья!
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Eco, спасибо, но ваш код не выдает столбец. Не знаю может я что то делаю не так.
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Спасибо БМВ! Код работает отлично. А если строка переменная и она может меняться? Например MyRow вместо конкретной 2 строки?
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Спасибо Kuzmich, но этот код выдает последний видимый столбец, а мне нужен скрытый.
Найти в скрытых столбцах последний не пустой столбец в конкретной строке., Как найти последний не пустой столбец в строке если столбцы скрыты?
 
Дорогие форумчане подскажите пожалуйста как найти в скрытых столбцах последний не пустой столбец в конкретной строке?
Этот код находит последний по всему листу, а мне нужно только в одной строке.
Код
clm = shm.Cells(2, shm.UsedRange.Columns.Count).End(xlToLeft).column


Заранее благодарю! Уже все перепробовала, везде поискала:(
Изменено: bekzus - 7 Июн 2018 19:20:31
Разрешить вводить только русские буквы/ кириллицу, Запрет ввода данных
 
Гаубица, спасибо! Пример с ссылки подошел как раз :)
Разрешить вводить только русские буквы/ кириллицу, Запрет ввода данных
 
Здравствуйте дорогие форумчане!

Как можно разрешить вводить в ячейку на листе только русские буквы?
Смогла найти запрет на ввод русских букв, а вот наоборот не получилось найти.
Код
Private Sub Worksheet_Change(ByVal Target As Range)   
   Dim i As Integer   
   If Target.Column <> 1 Then Exit Sub   
   For i = 1 To Len(Target)   
       If Asc(Mid(Target, i, 1)) > 191 And Asc(Mid(Target, i, 1)) < 256 Then   
           MsgBox "Неправильный ввод", vbExclamation   
           Target = ""   
       Exit Sub   
       End If   
   Next   
End Sub

Попыталась переделать под себя, но не работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   Dim i As Integer
   If Target.Column <> 10 Then Exit Sub
   For i = 1 To Len(Target)
   Select Case Asc(Mid(Target, i, 1))
       Case 32, 45, 39, 96, 1040 To 1105
       Case Else: Target = "": MsgBox "Только на кириллице!", vbCritical, "Ограничение ввода букв"
   End Select
   Next
End Sub

Буду очень признательна!
Изменено: bekzus - 27 Окт 2017 22:30:49
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
AAF, а возможно добавить Column.Heads?
Название         Цена           Кол-во        Сумма
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
Не успела спросить, как уже получила ответ и на этот вопрос. Какие-то чудеса просто! 8-0  
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
ААF, это просто взрыв мозга! Не думала, что такое вообще возможно. Сижу изучаю теперь. :D  
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
AAF, ваш вариант тоже, как всегда, работает безупречно! Спасибо огромное! :D

Честно говоря это как раз то, что нужно, так как у меня таких строк очень много. Очень удобно. Как будто прочитали мои мысли.
Изменено: bekzus - 23 Окт 2017 18:58:40
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
Спасибо огромное Webley! Все именно так, как нужно! :D  
Указать примечания из ячеек в ListBox'e на пользовательской форме., Как перенести значения из примечаний ячеек в listbox
 
Здравствуйте дорогие форумчане самого полезного форума в сети!

Пыталась своими силами решить этот вопрос, но все тщетно. Не смогла найти в интернете подходящее решение.

Проблема именно в том, что в примечании текст переносится одной строкой в ListBox, а мне надо, что бы все было как в самом примечании в несколько строк.

Есть идеи по решению? Буду очень признательна!
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Оказывается можно. Нашла ошибку сама. Нужно добавить address
Код
If shm.Cells(i, 1).address = Target.Addres
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
А есть возможность этот код использовать для Worksheet_Change? Типа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   'Do nothing if more than one cell is changed or content deleted
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

    On Error Resume Next
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Dim i As Long

    n = shm.Cells(shm.Rows.Count, 1).End(xlUp).Row
    For i = 4 To n Step 5
        If shm.Cells(i, 1) = Target.Address Then MsgBox Target.Address
    Next i

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    On Error GoTo 0
End Sub
или нужно только прописывать конкретно адрес?
Изменено: bekzus - 24 Авг 2017 16:38:00
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Цитата
SAS888 написал:
Подразумеваю, что промежуточные строки могут быть не пустыми (пример автора упрощен), Просто информация из этих ячеек не нужна...

Вы абсолютно правы. Там есть данные
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Vikttur! Я Ваш ответ почему то не увидела. Получается вы первый дали ответ. Спасибо большое!
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Работает! Спасибо Александр. Просто таких наименований 1000. Значит Step 5.
Изменено: bekzus - 23 Авг 2017 19:48:02
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
ну разве она сама не должна вычисляться как lastrow?
Скопировать ячейки с каждой 5-й строки одного столбца в соседний.
 
Дорогие форумчане, подскажите пожалуйста где у меня ошибка. Вроде все делаю по правилам и логике как у всех но почему то не работает.
Код
Sub CopyNames()
    Application.ScreenUpdating = False
    Dim i, k As Long
    
    For i = 4 To n
        For k = 1 To n
            shm.Cells(k, 2) = shm.Cells(i, 1)
        Next k
        i = i + 4
    Next i
    Application.ScreenUpdating = True
End Sub

Есть два столбца

Начиная с 4 строки каждую пятую строку надо скопировать в столбец B.

         А                                      B
1                                      Градусник
2                                      Сироп
3                                      Пюре
4   Градусник                  Настойка
5
6
7
8
9   Сироп
10
11
12
14  Пюре
15
16
17
18
19   Настойка
Изменено: bekzus - 23 Авг 2017 08:23:00
Поиск нужной строки по условию., VBA
 
Ура! Нашла ответ Application.ReferenceStyle = xlA1 :D  
Поиск нужной строки по условию., VBA
 
А есть возможность в коде изменить стиль ссылок R1C1 на обычные A, B, C?
Поиск нужной строки по условию., VBA
 
Здравствуйте ZVI! Я заметила, что код перестает работать когда меняешь в excel показ наименование столбцов на R1C1. Почему так происходит? Кажется Evaluate(VLookUp может применятся только когда названия столбцов через буквы A, B, C
Поиск нужной строки по условию., VBA
 
ZVI, Спасибо большое. А как избежать ошибки при вводе меньшего значения?
Поиск нужной строки по условию., VBA
 
ZVI работает Ваш 1 вариант. Спасибо огромное!

Один вопрос. Там нельзя указать А:B без конкретных строк?
Поиск нужной строки по условию., VBA
 
Цитата
Sanja написал:
Раз поленились привести файл-пример, то проверяйте сами
Дорогой Sanja! У меня в файле очень много страниц и ужасно все некрасиво. Мне просто стыдно его показывать. И чтобы всем было понятнее не стала его прикреплять. Спасибо Вам за код! Но он не работает почему то. Понимаю это моя вина. Вы не смогли его проверить. Сейчас создам файл удалив все остальное.
Поиск нужной строки по условию., VBA
 
Дорогие форумчане помогите пожалуйста!

Как можно найти строку, которая будет отвечать следующему условию:

При вводе любого числа в textbox и нажатии кнопки поиск должен срабатывать макрос, который должен найти строку где число должно быть меньше введенного числа или равное ему, но число в следующей строке должно быть больше введенного и выдать соответствующий код в соседнем столбце.

То есть если ввести в textbox число 65 000, то макрос должен выдать код с первой строки 12 434 345. Если ввести 73 000 то следующую строку и код 34 467 323.
суммакод
60 00012 434 345      
70 00034 467 323
80 00056 500 301
90 00078 533 279
100 000         10 056 625
110 00022 599 235
120 00014 632 213
130 00016 665 191
140 00018 868 169
150 00021 071 147
160 00023 274 125
170 00025 471 503
180 00027 680 081
190 00029 886 359
Попыталась написать такой код, но все тщетно.
Код
Dim i, ra
Dim t

t = TextBox1.Value
ra = sha.Range(sha.Cells(1,1), sha.Cells(Rows.Count, 1).End(xlUp).Row).Value

For i = 1 to UBound(ra)
    if t>=ra(i,1) and t<ra(i+1, 1) then
       msgbox ra.offset(0,1)
    else
       end sub
    end if
next
Изменено: bekzus - 9 Авг 2017 22:13:19
Страницы: 1 2 3 4 5 6 7 След.
Наверх