Помогите дополнить макрос в Excel

[Оля]

Всем Привет!..Есть макрос, который переносит информацию из столбца Листа1..в строку Листа2 (переносит примерно 15 значений)...теперь мне нужно добавить 16 значение..сответственно там и там
Помогите пожалуйста!работа горит..(((

[Оля]

Вот кидаю код программы:...начала только работать(((не могу разобраться
Sub накопление()
Application.ScreenUpdating = False
    Sheets("База").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Copy
    Rows("3:3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlNone
        .ColorIndex = xlAutomatic
    End With
    Sheets("База1").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Copy
    Rows("3:3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlNone
        .ColorIndex = xlAutomatic
    End With
    Sheets("Ввод").Select
    Range("C6:C12,C14:C32,D6:D12,D14:D36").Select
    Range("C15").Activate
    Selection.ClearContents
    Range("C3").Select
    Application.ScreenUpdating = True
End Sub

[Sla]

не могу понять, что не получается?

[Оля]

надо добавить в столбец еще одну ячейку листа1...которая соответственно будет отображаться на листе2...предыдущие все ячейки столбца листа1 переносятся в лист2...вот не знаю как сделать чтоб он начал учитывать доболнительную ячейку((

[Оля]

например:
лист1:
отпуск по колдоговору  (КД)   \ 1
льготные дни  (ЛД)                \1
льготные часы  (ЛЧ)                \1

лист2 получается выводится в строку:
отпуск по колдоговору  (КД)          льготные дни  (ЛД)           льготные часы  (ЛЧ)
                  1                                                   1                                        1             
 
А надо например еще дополнительно:
отпуск по колдоговору  (КД)   \ 1
льготные дни  (ЛД)                \1
льготные часы  (ЛЧ)                \1
!Число отработанных чел-часов  \1

и это соответственно будет в листе2((((вот...

[Sla]

Оля, я смотрю на макрос
и не вижу где, в каком месте ты переносишь с листа1 в лист2

Sheets("База").Select  ' выбрали лист База
    Rows("3:3").Select ' выбрали 3 строку
    Selection.Insert Shift:=xlDown ' Что-то вставляем? в 3 строку
    Rows("1:1").Select ' выбираем 1 строку
    Selection.Copy ' копируем
    Rows("3:3").Select ' выбираем 3 строку

никак не могу увидеть ни столбцов ни строк

попробуй создать макрос и посмотреть его код

[Оля]

Вот именно я тоже про это!!!!!((((...До меня этот макрос написан был программистом..меня щас попросили добавить в таблицу ячейку...тоже понять не могу

[Оля]

где имеено осуществляется пренос-понять не могу

[Sla]

Оля, значит ты показываешь не тот макрос

[Оля]

Думаешь о где то зашит?((...я перерыла все!!!...не знаешь где,и как может скрываться он!!!!?

[Оля]

сколько смотрела-единственный макрос на 7 листов!!!!

[Оля]

Сейчас посмотрела лист-База!представляешь нет 1 строки-как зашита!!!?...может быть в этом какой то подвох!?..как думаешь?и я ее не могу отобразить((((

[Sla]

макрос тот

но он не занимается копирование с листа Ввод

он занимается копированием с листа База1 первой строки в третью

зы... сними закрепление областей на листах база и база1 и по формулам в первой строке поймешь что к чему



кроме того
в специальной вставке (pastspecial есть параметр transparent), но это здесь не нужно

[yaser]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sText As String, sResultText As String
Dim nI As Integer, nX As Integer

  nI = 1
  sText = Cells(nI, 1)
  While sText <> ""
    sResultText = sResultText & sText & ", "
    nI = nI + 1
    sText = Cells(nI, 1)
  Wend
  sResultText = Left(sResultText, Len(Trim(sResultText)) - 1)
  Sheets("Лист2").Cells(1, 1) = sResultText

End Sub

[Sla]

yaser, уже вопрос решен, там было тривиальное решение

[HandKot]

yaser, уже вопрос решен, там было тривиальное решение

и какое?
прочитал несколько раз и не увидел

[Sla]

HandKot, в ответе #12
 я попросил прислать файлик

макрос обрабатывает первую строку на листе База

затем вставляет пустую строку (3)
делает специальную вставку в третью строку значений из первой строки

Проблема была в том, что была закреплена область, и не было видно этой первой строки

А в первой строке стоит формула, выбирающая значения  с листа ВВОД

[HandKot]

HandKot, в ответе #12
 я попросил прислать файлик

макрос обрабатывает первую строку на листе База

затем вставляет пустую строку (3)
делает специальную вставку в третью строку значений из первой строки

Проблема была в том, что была закреплена область, и не было видно этой первой строки

А в первой строке стоит формула, выбирающая значения  с листа ВВОД

вот так вот и научимся телепатии
так в постах ничего подобного не видел

[Оля]

Ребята Привет!!!...есть еще одна проблема((((..Sla,у тя сохранился тот документ,который я тебе высылала!!?...если да-то...блин не пойму опять как информация переходит в лист-"таблица"(((..там еще надо сделать дополнительную ячейку(

[Sla]

Оля, у нас все ходы записаны...
...
должны быть записаны...

Та что не понятно?

[Sla]

на листе "таблица" находится сводная таблица

на пальцах обїяснять что єто такое - я не умею, надо просто потренироваться...

зы.. тем кому интересно, то о чем мы
есть книга размером 4 МБ, а в ней ведется табель