Здравствуйте!  
как можно заменить B1 на B2, B2 на B3...B9 на B10 при каждом цикле i  
дублировал http://www.excelworld.ru/forum/2-2105-1  
 
Sub www()  
B1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1)  
B2 = Array(2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2)  
B3 = Array(3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3)  
B4 = Array(4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4)  
B5 = Array(5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5)  
B6 = Array(6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6)  
B7 = Array(7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7)  
B8 = Array(8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8)  
B9 = Array(9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9)  
B10 = Array(10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)  
s = 0  
For i = 1 To 10  
For dd = 1 To 11  
   g = Mid(Selection.Value, dd, 1) * B1(dd - 1) 'B2,B3,B4...B10  
   s = s + g  
Next  
w = s - Int(s / 11) * 11  
'If w < 10 Then Exit For  
Next  
MsgBox "_" & w  
End Sub

Здравствуйте!  
что - то не получается у меня... вроде примере понятно объяснил  
-99475-

Здравствуйте!  
=СУММ(ЕСЛИ({"молоко";"хлеб"}=A1:A10;1;0)*B1:B10)-суммирует, но как можно задать диапазон (заменить {"молоко";"хлеб"} на диапазон), чтобы суммировал по диапазону...что-то у меня не получается :(

Здравствуйте!  
как подсчитать кол-во уникальных записей в столбце (задав столбец)  
пример прилагаю

Здравствуйте!  
Хочу удалить строк не пустых ячеек столбце C, или не так делаю удаляет на половину...  
 
Sub d()  
Dim d&  
With Sheets("Недостача")  
   For d = 2 To .Cells(Rows.Count, 1).End(xlUp).Row  
       If .Cells(d, 3).Value <> "" Then  
           .Rows(d).EntireRow.Delete  
       End If  
   Next  
End With  
End Sub

Здравствуйте!  
Объединил несколько макросов, для удалении модуля2 с 1.xls книги, импортируем с 2.xls книги модуль2 в книгу 1.xls с помощью книги 3.xls... это работает...  
 
но этот что-то ругает вроде как понял что не может снять пароль с VBA(проект) книги 3.xls...  
открываем книгу 1.xls удаляем модуль2, импортируем модуль2 с книги 3.xls (с этого книги), если снять VBA(проект) пароль с книги 3.xls работает...  
Заранее спасибо!

как можно запомнить значение в Label, ...в следующем запуске формы (закрыть файл и открыть) появилась значение  Label до этого сохранившийся...

Здравствуйте!  
Код на кнопке сравнивает строк (при полном вводе ФИО), если совпало тогда выводит на ListBox...  
не как не могу переделать код чтобы сравнивал строк по 3 критериям как на форме, пример ввел... (:

Здравствуйте!  
С женским днем ДАМАМ!  
При нажати кнопки Label не меняется?  
как можно перед циклом Label, Button чтобы видны были???  
 
------------------------------------------------------------------------  
Private Sub CommandButton1_Click() 'CommandButton1.Caption = "Поиск"  
Dim i&  
CommandButton1.Caption = "Идет поиск..."'не меняется (вроде меняется но не видно)  
ListBox1.Clear  
ListBox2.Clear  
ListBox3.Clear  
Label1.Caption = ""  
Label1.Caption = "идет поиск..."'не меняется (вроде меняется но не видно)  
For i = 2 To Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row  
      If TextBox1.Text = Sheets("1").Cells(i, 2).Value Then  
       With Worksheets("1")  
           ListBox1.AddItem ListBox1.ListCount - 1  
           ListBox2.AddItem ListBox1.ListCount - 1  
           ListBox3.AddItem ListBox1.ListCount - 1  
           ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(i, 2).Value  
           ListBox2.List(ListBox1.ListCount - 1, 0) = .Cells(i, 3).Value  
           ListBox3.List(ListBox1.ListCount - 1, 0) = .Cells(i, 4).Value  
       End With  
End If  
Next  
Label1.Caption = "поиск закончен"'работает  
CommandButton1.Caption = "Поиск"'работает  
End Sub

Здравствуйте!  
как можно с макросом сцепить ячейки столбце G словарем массив. Более 100000 строк.    
"Если совпадают столбцы C, D, E, F,H, тогда сцепляем ячейке совпадающих  строк столбце G"

Здравствуйте!  
как можно найти наименьший и наибольший кол-во товаров по 3-м критериям?

Здравствуйте!  
Есть ли у кого нибудь пример, управление с помощью Excel данные Access-а  
(добавление данных, удаление, изменение и т.д.)  
хотел бы научится ....

Здравствуйте!  
Каким образом можно нумерацию строк изменить при удалении строку  
нумерация по порядку 1,2,3,4,5,6,...  
Sub Макрос2()  
   s = ActiveCell.Row - 1  
   Selection.ListObject.ListRows(s).Delete  
   Cells(s + 1, 1).Value = ActiveCell.Row - 1 'это строка вроде не тот  
 
'вроде здесь код не могу написать  
     
End Sub  
 
<EM><FONT color=#99000><STRONG>Зачем в названии темы указыать себя, любимого?</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Здравствуйте!  
Каким образом можно формат ячеек на текстовый поменять, если UserForm1.TextBox1.Text вводиться цифры (на пример: 0123456789)  
 
Private Sub CommandButton1_Click()  
Selection.NumberFormat = "@" 'не могу формат ячеек поставить  
'___________________________________________________________­____________  
.Sheets("1").Range("B" & .Sheets("1").Cells(.Sheets("1").Rows.Count, 1).End(xlUp).Row).Value = UserForm1.TextBox1.Text  
End Sub

Здравствуйте! Форумчане!  
каком образом можно заполнить ячейки по условии...  
файле описание условии...

Доброго дня Форумчане!  
в книги 1.xls (Form1) кнопка Запись,он должен записывать данные из Form1.textbox1 & textbox1 & Combobox1 на 2.xls  
и кнопка Переместить(поиск Combobox1.text в книге 2.xls столбцец 2), переместить строку в книгу 1.xls и удалял строку в книге 2.xls  
Заранее спасибо!

Доброго дня!  
Я использую ВПР но долго думает(3-4сек), в книге БАЗА.xlsx примерно 100000 строк  
=ЕСЛИОШИБКА(ВПР(B44;'C:\Users\Даулет.ALMATY\Desktop\11111\[БАЗА.xlsx]1'!$C$2:$J$100000;2;ЛОЖЬ);"НЕТ ДАННЫХ")
 
VBA  
Cells(s, 4).Formula = _  
"=IFERROR(VLOOKUP(" & Cells(s, 2) & ",'" & Path & "1'!$C$2:$J$100000,2,FALSE),""НЕТ ДАННЫХ"")"  
таких ВПР у меня на 5 столбце  
 
как можно на макросе написать код чтобы быстро находил?

Доброго дня Форумчане!  
Есть ли код для игнорирование сообщении о защите листа(рисунок), хотел бы свою форму поставить...

Доброго дня!  
есть ли у кого формула для разбиение значении  
символ "\"

Здравствуйте!  
скачал файл: http://www.planetaexcel.ru/docs/forum_upload/post_263655.zip  
и на свою загрузил коды, что-то прогресс бар не работает  
или не так сделал  
мой файл: копирует с сети файлы mp3 на мой компьютер-этот код работает, но прогресс бар форма открывается но % сам процесс не идет...

Можете подсказать:  
Ввожу значения (символ) на E10 MsgBox выдает E11  
хотел бы MsgBox выдавал E10  
кроме ActiveCell.Row-1 или x-1  
 
 
Option Explicit  
Dim x$  
Private Sub Worksheet_Change(ByVal Target As Range)  
   x = ActiveCell.Row 'Cells(Rows.Count, 1).End(xlUp).Row  
       If Not Intersect(Target, Range("e3:e" & x)) Is Nothing Then  
           MsgBox x ' - 1  
       End If  
End Sub

Здравствуйте!  
что-то сравнение идет с низу вверх (строка y)  
а мне нужен сверху вниз срав.  
----------------------------  
x = sheets("1").Cells(Rows.Count, 3).End(xlUp).Row  
For y = 3 To sheets("2").Cells(Rows.Count, 1).End(xlUp).Row  
If sheets("1").Cells(x, 3).Value = sheets("2").Cells(y, 3).Value Then  
  sheets("1").Cells(x, 4).Value = sheets("2").Cells(y, 4).Value  
end if  
next

Здравствуйте!  
С Новым Годом!!!  
примере вроде понятно написал!

Здравствуйте!  
строк листе 1 примерно 500000 строк, на 2 листе примерно более 100000 строк  
есть ли у кого макрос для сверки, примерно за 5 минут сверил большой объем данных!!!  
 
1. сверка по ФИО_Д/Р и СЧЕТ  
если не совпало, то  
2. сверка по ФИО_Д/Р если счет не совпало  
если не совпало, то  
3. сверка по счету если ФИО_Д/Р не совпало  
если не совпало, то  
пишем "не совпало"  
 
пример на файле  
лист2 - РЕЗУЛЬТАТ  
 
Заранее спасибо!

Здравствуйте!  
Как можно сохранить книгу без вопроса замены с помощью макроса  
Заранее спасибо Всем!!!