Страницы: 1
RSS
Применение макроса на весь документ, Макрос применяется только на тот диапазон, который ему покажешь, далее он не работает
 
Добрый день! подскажите пожалуйста как настроить макрос что бы он работал на весь файл, не только на тот диапазон что ему покажешь. В нашем случае мы используем транспонирование (главное, что нам нужно - сохранить внутри формулу, поэтому решили попробовать макрос)
Цитата
Range("F433:Q433").Select
   Selection.Copy
   Range("T433").Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
   ActiveWindow.SmallScroll Down:=12
   Range("F445:Q445").Select
   Application.CutCopyMode = False
   Selection.Copy
   Range("T445").Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
End Sub
мы выбираем диапазон, транспонируем его, далее спускаемся на 12 строк ниже, опять выделяем и транспонируем. Как правильно прописать для него этот код, что бы он самостоятельно транспонировал, пока не закончатся наши данные в документе?
Заранее благодарю :)  
 
Наверное так
Код
Sub alinademina()
Dim lRow&
lRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For I = 2 To lRow Step 12
  Range(Cells(I, 3), Cells(I, 14)).Copy
  Range("T" & I).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
Next
Application.ScreenUpdating = True
End Sub
Изменено: Sanja - 10.10.2024 12:04:51
Согласие есть продукт при полном непротивлении сторон
 
Вы гений! Ликуем всем офисом :D  Огромное спасибо!
Страницы: 1
Наверх