DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub duzenle()
Dim St As Worksheet, So As Worksheet, i As Long, sat As Long
Set St = Sheets("Table 1")
Set So = Sheets("ornek") 'yeni olusturduğunuz sayfa adı
Application.ScreenUpdating = False
So.Range("A3:H" & Rows.Count).ClearContents
sat = 3 'verilerin yazılmaya başlayacağı satır
For i = 13 To St.Cells(Rows.Count, "A").End(xlUp).Row Step 2
So.Cells(sat, "A") = St.Cells(i, "A")
So.Cells(sat, "B") = St.Cells(i, "C")
So.Cells(sat, "C") = Trim(WorksheetFunction. _
Substitute(St.Cells(i + 1, "C"), "AYLIK", ""))
So.Cells(sat, "D") = St.Cells(i, "F")
So.Cells(sat, "E") = St.Cells(i + 1, "F")
So.Cells(sat, "F") = St.Cells(i, "P")
So.Cells(sat, "G") = St.Cells(i + 1, "Y")
So.Cells(sat, "H") = St.Cells(i + 1, "Z")
sat = sat + 1
Next i
So.Select
So.Cells.EntireColumn.AutoFit
End Sub
Bu gibi durumların önüne geçmek için alttoplamı en üste yerleştirebilirsiniz.FİLTLEME YAPINCA TOPLAM VE ALTTOPLAM ARALARA KARIŞIYOR NEDEN