Как выделить определенные столбцы в таблицы (Show Details) из сводной таблицы?, Как выделить определенные столбцы в таблицы (Show Details) из сводной таблицы?
С некоторыми столбцами этой таблицы надо дальше работать. Хочу написать макрос для работы с столбцами и их преобразованием , но не знаю как в макросе указать, что надо работать с определенными столбцами полученной таблицы (Show Details). Тема практический дублируется, но я настолько нуб, что просидев с полученными рекомендациями неделю каждый день(чуть не разбив ноут от злости от своей тупости), не смог их грамотно применить. Выхода не осталось, пишу повторно и прикрепив детальный пример.(Хотел даже видео записать )
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pc As PivotCell
Dim sc As Integer, r As Long
Dim sh As Worksheet
On Error Resume Next
Set pc = Target.PivotCell
If Err Then Exit Sub
sc = ThisWorkbook.Sheets.Count
Target.ShowDetail = True
If Err Then Exit Sub ' если нельзя выполнить ShowDetail
On Error GoTo 0
If ThisWorkbook.Sheets.Count > sc Then 'если добавился лист
Set sh = ActiveSheet
r = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
sh.Range(sh.Cells(1, 1), sh.Cells(r, 6)).Copy Destination:=sh.Cells(r + 6, 1)
sh.Cells(r + 6, 7).Formula = "=формула_1"
sh.Cells(r + 7, 7).Formula = "=формула_2"
sh.Cells(r + 5, 8).Formula = "=формула_3"
sh.Cells(r + 7, 8).Formula = "=формула_4"
End If
Cancel = True
End Sub