Макрос вставить B2, В3 и т.д

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос вставить B2, В3 и т.д (Макросы/Sub)

Dersarius

Дата: Четверг, 19.03.2015, 13:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Подскажите как Макрос дописать =)
Есть макрос копирует с Лист1 (ячейка А1) и вставляет значение в Лист2 (ячейка В2)
как допилить макрос что бы, если на Листе2 в В2 есть значение, макрос копировал в ячейку В3 и т.д.
Заранее большое спасибо =)

[vba]

Код

Sub test()
     Sheets("лист1").Select
     Range("A1").Select
     Selection.Copy
     Sheets("лист2").Select
     Range("B1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False

[/vba]

Ответить

_Boroda_

Дата: Четверг, 19.03.2015, 13:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16957

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub test()
      n_ = 1
      Do While Sheets("лист2").Range("B" & n_) <> ""
          n_ = n_ + 1
      Loop
      Sheets("лист2").Range("B" & n_) = Sheets("лист1").Range("A1").Value
End Sub

[/vba]

К сообщению приложен файл: 1_1.xlsm (20.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Dersarius

Дата: Четверг, 19.03.2015, 16:03 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Супер почти то что нужно, только странно с макросом.
С вашим не захотел делать копии в низ по столбику, поставил к B единицу B1 что то заработало, но делает с B11 по B19 копию вниз, потом пусто

[vba]

Код

Sub test()
      n_ = 1
      Do While Sheets("Лист2").Range("B1" & n_) <> ""
          n_ = n_ + 1
      Loop
      Sheets("Лист2").Range("B1" & n_) = Sheets("Лист1").Range("b6").Value
End Sub

[/vba]

Хотелось бы что бы начиналось это дело с b3 и вниз до бесконечности =)

К сообщению приложен файл: ___.xlsm (17.7 Kb)

Сообщение отредактировал Dersarius - Четверг, 19.03.2015, 16:06

Ответить

Dersarius

Дата: Четверг, 19.03.2015, 16:19 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо ОГРОМНОЕ все получилось, извините тупеня =)

Ответить

Ckaym

Дата: Суббота, 21.03.2015, 09:31 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Привет! подскажите как сделать тоже самое только сразу с тремя ячейками B, C, D
[moder]Что значит "сразу с тремя"? Из одной ячейки в 3 перенести, из 3-х в 3 или еще как?
В любом случае - создавайте свою тему и прикладывайте пример желаемого.
Эту тему закрываю.

Ckaym

Ответить

Макрос вставить B2, В3 и т.д (Макросы/Sub)

Страница 1 из 1
1