|
|
| Тема |
 listbox1.value |
|
| Автор |
zvezdi4kata_ff (непознат
) |
|
| Публикувано | 28.04.12 00:35 |
|
|
|
Може ли някой да помогне?
Да обясня какво прави този код!
- На лист1 съм поставила бутон, който извиква форма на която съм поставила listbox1, който се запълва със записи от лист2 и на същата форма също така още един бутон , който изтрива посочения запис едновременно от listbox1 и от лист2.
Всичко това сработва, само ако предварително е активен лист2, но ако е активен друг лист то той не не сработва.
Въпроса ми е, как да направя така, че независимо кой лист е активен кода да работи? Ето го кода!
If MsgBox("Сигурни ли сте че желаете изтриване на отбелязаният запис?", vbYesNo, "Внимание - операция изтриване!") = vbYes Then
For j = 14 To 80
Izbranslujitel = ListBox1.Value
If Cells("B" & j) = Izbranslujitel Then
NomerRed = Range("B" & j).Row
Rows(NomerRed).Delete
End If
Next
ZarediListBox
End If
| |
| |
| 
|
|
