Я сделал форму, для заполнения-добавления реквизитов новой фирмы. При нажатии кнопки Close, форма закрывается и сортирует реквизиты по названию фирмы.
Проблема: сортирует по первой колонне (названию фирмы), но так же сортирует и все остальные колонны, а надо бы переносить все остальные реквизиты вместе им соответсвующей фирмой. Для наглядности пометил строки цветами.
Вот код кнопки выхода:
[vba]
Код
Private Sub CommandButton2_Click() Dim abc As Object For Each abc In Range("A2:E1000").Columns abc.Sort abc, xlAscending, Header:=xlNo, Orientation:=xlSortColumns Next Unload Me End Sub
[/vba]
Поможете, многоуважаемые? Спасибо за отзывчивость!
П.С. Файло-пример в приложении. П.П.С Если не сложно пишите кодом, файлы у меня почему-то скачанные из интернета не пашут (возможно из-за того, что рус версии).
С уважением, Эдгар
Доброго времени суток, уважаемые!
Я сделал форму, для заполнения-добавления реквизитов новой фирмы. При нажатии кнопки Close, форма закрывается и сортирует реквизиты по названию фирмы.
Проблема: сортирует по первой колонне (названию фирмы), но так же сортирует и все остальные колонны, а надо бы переносить все остальные реквизиты вместе им соответсвующей фирмой. Для наглядности пометил строки цветами.
Вот код кнопки выхода:
[vba]
Код
Private Sub CommandButton2_Click() Dim abc As Object For Each abc In Range("A2:E1000").Columns abc.Sort abc, xlAscending, Header:=xlNo, Orientation:=xlSortColumns Next Unload Me End Sub
[/vba]
Поможете, многоуважаемые? Спасибо за отзывчивость!
П.С. Файло-пример в приложении. П.П.С Если не сложно пишите кодом, файлы у меня почему-то скачанные из интернета не пашут (возможно из-за того, что рус версии).
Надеюсь меня не накажут, если задам еще один вопрос. Просто он касается того же файла и той же формы.
Ну никак не получается написать, чтобы при вводе названия фирмы, он сравнивал весь первый столбец, и если такое название уже есть в списке реквизитов, то выкинуть MessageBox. Я пробовал по разному, пока результат кривой совсем:
[vba]
Код
If Trim(Me.TextBox1.Value) = Cells(ActiveCell.Row, 1).Value Then Me.TextBox1.SetFocus MsgBox "Jau atrodas datubaze!" Exit Sub End If
[/vba]
Т.е. окно выкидывает только тогда, если я пытаюсь ввести такое же название, как на активизированной ячейке(ActiveCell.Row). Поправьте, пжл, если не трудно. Замучился.
Надеюсь меня не накажут, если задам еще один вопрос. Просто он касается того же файла и той же формы.
Ну никак не получается написать, чтобы при вводе названия фирмы, он сравнивал весь первый столбец, и если такое название уже есть в списке реквизитов, то выкинуть MessageBox. Я пробовал по разному, пока результат кривой совсем:
[vba]
Код
If Trim(Me.TextBox1.Value) = Cells(ActiveCell.Row, 1).Value Then Me.TextBox1.SetFocus MsgBox "Jau atrodas datubaze!" Exit Sub End If
[/vba]
Т.е. окно выкидывает только тогда, если я пытаюсь ввести такое же название, как на активизированной ячейке(ActiveCell.Row). Поправьте, пжл, если не трудно. Замучился.DAKRAY
Private Sub CommandButton1_Click() Dim i& If Trim(Me.TextBox1.Value) = "" Then Me.TextBox1.SetFocus MsgBox "Ievadi firmas nosaukumu!", 64 Exit Sub End If If WorksheetFunction.CountIf(Sheets("Sheet1").Columns(1), Me.TextBox1) > 0 Then _ MsgBox "Such firm already exists", 64: Exit Sub
For i = 1 To 5 Me.Controls("TextBox" & i).Value = vbNullString Next Me.TextBox1.SetFocus End Sub
[/vba] ПС цикл и Array можно объединить. А можно и так оставить [offtop]ПС2 пишу пестни если песня без музыки - это ведь тоже как-то называется?[/offtop]
попробуйте вот так: [vba]
Код
Private Sub CommandButton1_Click() Dim i& If Trim(Me.TextBox1.Value) = "" Then Me.TextBox1.SetFocus MsgBox "Ievadi firmas nosaukumu!", 64 Exit Sub End If If WorksheetFunction.CountIf(Sheets("Sheet1").Columns(1), Me.TextBox1) > 0 Then _ MsgBox "Such firm already exists", 64: Exit Sub
For i = 1 To 5 Me.Controls("TextBox" & i).Value = vbNullString Next Me.TextBox1.SetFocus End Sub
[/vba] ПС цикл и Array можно объединить. А можно и так оставить [offtop]ПС2 пишу пестни если песня без музыки - это ведь тоже как-то называется?[/offtop]nilem
Яндекс.Деньги 4100159601573
Сообщение отредактировал nilem - Пятница, 20.12.2013, 18:10
Так что ж сказать о луке? Он в Англии сработан, лук. Искуснейшие руки Из тиса выгнули его Поэтому сердцем чистым Мы любим наш тис смолистый И землю тиса своего
Что скажем о веревке? Веревку в Англии сплели С терпеньем, со сноровкой. Веревка лучникам мила. Пусть чаша идет вкруговую За нашу кудель золотую. За край, где конопля росла
Что о стреле мы скажем? Калили в Англии ее На страх отрядам вражьим. Она всех прочих стрел острей... Пью от души теперь я За гусиные серые перья И за родину серых гусей
А что сказать о людях? Мы в доброй Англии росли Мы нашу землю любим Мы лучники, и нрав наш крут Так пусть же наполнятся чаши - Мы выпьем за родину нашу, За край, где лучники живут!
Решил франклин изведать свет, Не мил его девчонке свет: Ушел дружок. Она одна. Но верность сохранит она!
Пришел к ней рыцарь - плащ до пят, И латы под плащом блестят. Но, хоть колено он склонил. К любви девчонку не склонил.
Оруженосец к ней пришел, На нем малиновый камзол. Играл он нежно, сладко пел. Но в деле мало преуспел.
Пришел богач купец, одет В кафтан и бархатный берет. Но лавки, полные добра. Не принесли ему добра.
Пришел к ней лучник - добрый друг, В руках колчан и меткий лук, В кармане пять монет всего... Девчонка, берегись его!
Ох, кто-то волю дал слезам, А кто-то рыскал по лесам... А лучник в дальней стороне С девчонкой скачет на коне.
Жду с нетерпением!
Всегда мечтал послушать
Так что ж сказать о луке? Он в Англии сработан, лук. Искуснейшие руки Из тиса выгнули его Поэтому сердцем чистым Мы любим наш тис смолистый И землю тиса своего
Что скажем о веревке? Веревку в Англии сплели С терпеньем, со сноровкой. Веревка лучникам мила. Пусть чаша идет вкруговую За нашу кудель золотую. За край, где конопля росла
Что о стреле мы скажем? Калили в Англии ее На страх отрядам вражьим. Она всех прочих стрел острей... Пью от души теперь я За гусиные серые перья И за родину серых гусей
А что сказать о людях? Мы в доброй Англии росли Мы нашу землю любим Мы лучники, и нрав наш крут Так пусть же наполнятся чаши - Мы выпьем за родину нашу, За край, где лучники живут!
Решил франклин изведать свет, Не мил его девчонке свет: Ушел дружок. Она одна. Но верность сохранит она!
Пришел к ней рыцарь - плащ до пят, И латы под плащом блестят. Но, хоть колено он склонил. К любви девчонку не склонил.
Оруженосец к ней пришел, На нем малиновый камзол. Играл он нежно, сладко пел. Но в деле мало преуспел.
Пришел богач купец, одет В кафтан и бархатный берет. Но лавки, полные добра. Не принесли ему добра.
Пришел к ней лучник - добрый друг, В руках колчан и меткий лук, В кармане пять монет всего... Девчонка, берегись его!
Ох, кто-то волю дал слезам, А кто-то рыскал по лесам... А лучник в дальней стороне С девчонкой скачет на коне.