VBA- как в коде перейти на другой лист - Microsoft Office Excel

Nasten'ka7 · 01.02.2011, 17:48

Доброго времни суток!
Есть такой код

Private Sub CommandButton1_Click()
Dim i As Integer
For k = 1 To 9
Usluga(k) = ""
Next k

k = 0

If CheckBox1.Value = True Then k = k + 1: Usluga(k) = "Авто"
If CheckBox2.Value = True Then k = k + 1: Usluga(k) = "Выставочное"
If CheckBox3.Value = True Then k = k + 1: Usluga(k) = "Брокерство"
If CheckBox4.Value = True Then k = k + 1: Usluga(k) = "Там. консультирование"
If CheckBox5.Value = True Then k = k + 1: Usluga(k) = "Склад"
If CheckBox6.Value = True Then k = k + 1: Usluga(k) = "ММО"
If CheckBox7.Value = True Then k = k + 1: Usluga(k) = "Авиа"
If CheckBox8.Value = True Then k = k + 1: Usluga(k) = "Морское"
If CheckBox9.Value = True Then k = k + 1: Usluga(k) = "Проектное"

If k <> 0 Then
If i = 0 Then i = Cells(1, 2).Value

For J = 1 To k
Cells(i, 1).Value = TextBox1.Text 'наименование клиента
Cells(i, 3).Value = ComboBox1.Value ' регион
If Usluga(J) <> "" Then Cells(i, 2).Value = Usluga(J) 'услуги
i = i + 1
Next J
Exit Sub

End If

проблема в том, что никак не могу сделать, тчоб данные вбивались ан второй лист ... уже и sheet2 делала... и вообще.. помогите, пжлта! Спасибо!

IgorGO · 01.02.2011, 18:10

Sheets(n).Cells(i, 1).Value =...
где n - номер листа

Nasten'ka7 · 01.02.2011, 18:46

я так делала... не получается.. ругается..

может я как-то не так имя листа указываю, я их переименовала..

Djeki · 01.02.2011, 18:50

Я так понимаю это всё в Экселе ? Выложите книгу и посмотрим..

IgorGO · 01.02.2011, 18:58

n - это номер (1,2,3...)

Nasten'ka7 · 01.02.2011, 19:00

у меня большой файл, не загрузится...сейчас урежу

Nasten'ka7 · 01.02.2011, 19:08

Путь такой: Создать-Услуги и регионы, а дальше инфо от туда, должна быть на 2 листе

Nasten'ka7 · 01.02.2011, 19:11

n - это номер (1,2,3...)
я понимаю..

Sheets(2).Cells(i, 1).Value = TextBox1.Text.. на работает.. думаю, что я с листами что то - напутала, но я уже и 2 и 3 перепробовала..указываю 1 - все ок.. но на 1-м листе конечно..

Djeki · 01.02.2011, 19:30

Вроде заносит на второй лист..Проверьте..

Nasten'ka7 · 01.02.2011, 19:35

Заносит, спасибо!

А что не так -то было? Скажите! а как я могу вас отблагодарить?

01.02.2011, 17:48	#1
Nasten'ka7 Пользователь Регистрация: 27.01.2011 Сообщений: 56	VBA- как в коде перейти на другой лист Доброго времни суток! Есть такой код Private Sub CommandButton1_Click() Dim i As Integer For k = 1 To 9 Usluga(k) = "" Next k k = 0 If CheckBox1.Value = True Then k = k + 1: Usluga(k) = "Авто" If CheckBox2.Value = True Then k = k + 1: Usluga(k) = "Выставочное" If CheckBox3.Value = True Then k = k + 1: Usluga(k) = "Брокерство" If CheckBox4.Value = True Then k = k + 1: Usluga(k) = "Там. консультирование" If CheckBox5.Value = True Then k = k + 1: Usluga(k) = "Склад" If CheckBox6.Value = True Then k = k + 1: Usluga(k) = "ММО" If CheckBox7.Value = True Then k = k + 1: Usluga(k) = "Авиа" If CheckBox8.Value = True Then k = k + 1: Usluga(k) = "Морское" If CheckBox9.Value = True Then k = k + 1: Usluga(k) = "Проектное" If k <> 0 Then If i = 0 Then i = Cells(1, 2).Value For J = 1 To k Cells(i, 1).Value = TextBox1.Text 'наименование клиента Cells(i, 3).Value = ComboBox1.Value ' регион If Usluga(J) <> "" Then Cells(i, 2).Value = Usluga(J) 'услуги i = i + 1 Next J Exit Sub End If проблема в том, что никак не могу сделать, тчоб данные вбивались ан второй лист ... уже и sheet2 делала... и вообще.. помогите, пжлта! Спасибо!

01.02.2011, 18:10	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Sheets(n).Cells(i, 1).Value =... где n - номер листа Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

01.02.2011, 18:58	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	n - это номер (1,2,3...) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как дописать код для переноса выборочных данных с форматированием на другой лист	valik65	Microsoft Office Excel	10	20.12.2010 19:41
Как найти число больше 0 из строчки и вставить относительно этого столбца остальные данные в другой лист	e_v_b	Microsoft Office Excel	4	20.09.2010 06:31
как скопировать лист оз одного документа в другой	trunx	Microsoft Office Word	9	14.06.2010 02:58
Как скопировать выпадающий список на другой лист и в другую книгу	gleod	Microsoft Office Excel	4	07.07.2009 22:36
как из одного одной книги экспортировать данные на другой лист	mabru	Microsoft Office Excel	11	07.01.2009 10:20

01.02.2011, 18:46	#3
Nasten'ka7 Пользователь Регистрация: 27.01.2011 Сообщений: 56	я так делала... не получается.. ругается.. может я как-то не так имя листа указываю, я их переименовала..

01.02.2011, 18:50	#4
Djeki Форумчанин Регистрация: 24.01.2011 Сообщений: 136	Я так понимаю это всё в Экселе ? Выложите книгу и посмотрим..

01.02.2011, 19:00	#6
Nasten'ka7 Пользователь Регистрация: 27.01.2011 Сообщений: 56	у меня большой файл, не загрузится...сейчас урежу

01.02.2011, 19:11	#8
Nasten'ka7 Пользователь Регистрация: 27.01.2011 Сообщений: 56	n - это номер (1,2,3...) я понимаю.. Sheets(2).Cells(i, 1).Value = TextBox1.Text.. на работает.. думаю, что я с листами что то - напутала, но я уже и 2 и 3 перепробовала..указываю 1 - все ок.. но на 1-м листе конечно..

01.02.2011, 19:35	#10
Nasten'ka7 Пользователь Регистрация: 27.01.2011 Сообщений: 56	Заносит, спасибо! А что не так -то было? Скажите! а как я могу вас отблагодарить?