merhaba,makro kaydedici ile "U.IS EMRI LISTESI" sheetindeki verilerden pivot table oluşturmaya çalışıyorum.(aslında bunda sorun yok) Fakat bu debug veriyor.Debug: U.IS EMRI LISTESI sheetinin activate olayında sortlama işlemi var ve debug olarak bu sortlamayı gösteriyor. bu sorunu nasıl çözebilirim. pivot yaparken o sheeti seçtiğinden işlemler birbirine giriyor sanırım. yardımlarınız için teşekkürler.
U.IS EMRI LISTESI sheetindeki kodlar
bağlantılı olarak başka bir sorum olacak.
makro kaydedici ile yaptığım işi daha kısa nasıl yapabilirim. Amacım U.IS EMRI LISTESI sheetindeki Müşterilerin (e4:e65536) toplam sipariş(h4:h65536),sevk miktarı (ı4:ı65536) ve kalan siparişlerinin (j4:j65536) toplam özetlerini almak.
Kod:
Sub Makro8()
Sheets("U.IS EMRI LISTESI").Select
Range("B4:BG65536").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'U.IS EMRI LISTESI'!R4C2:R65536C59").CreatePivotTable TableDestination:="", _
TableName:="Ã?zet Tablo 4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Ã?zet Tablo 4").AddFields RowFields:=Array("MÜÃTERİ", _
"Veri")
With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("SİPARİÃ TOPLAMI")
.Orientation = xlDataField
.Caption = "Toplam SİPARİÃ TOPLAMI"
.Position = 1
.Function = xlSum
End With
With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("SEVK EDİLEN MİKTAR")
.Orientation = xlDataField
.Caption = "Toplam SEVK EDİLEN MİKTAR"
.Position = 2
.Function = xlSum
End With
With ActiveSheet.PivotTables("Ã?zet Tablo 4").PivotFields("KALAN MİKTAR")
.Orientation = xlDataField
.Caption = "Toplam KALAN MİKTAR"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = True
Range("I4").Select
End Sub
Kod:
Private Sub Worksheet_Activate()
Range("B5:Bg65536").Select
Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub
makro kaydedici ile yaptığım işi daha kısa nasıl yapabilirim. Amacım U.IS EMRI LISTESI sheetindeki Müşterilerin (e4:e65536) toplam sipariş(h4:h65536),sevk miktarı (ı4:ı65536) ve kalan siparişlerinin (j4:j65536) toplam özetlerini almak.