Merhabalar değerli üstadlarım,
Sayenizde birçok şey öğrendim. Şimdi yine birsorunla karşılaştım lütfen bilen varsa bilgisini esirgemesin. İki sütunlu bi excel sayfasında makro ile özet tablo oluşturmak istiyorum. Ama hep hata veriyor yazmaya calıstığım kod şöyle :
Columns("A:B").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"SAYFAADI!C1:C2").CreatePivotTable TableDestination:="", TableName:= _
"Özet Tablo 1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("NUMARA")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Özet Tablo 1").AddDataField ActiveSheet.PivotTables( _
"Özet Tablo 1").PivotFields("TOPLAM"), "Say TOPLAM", xlCount
Range("A3").Select
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Say TOTAL").Function = _
xlSum
Ama bana hata kodu olarak Run time Error 1004 diyor ve Ozet tablo alan adı gecerli değil vs ... hatası veriyor.
Aslında yapmak istediğim A ve B sütunundaki verileri tekrarsız olarak toplamak. Yani A sütununda tekrar eden bilet numaralarına karşılık gelen B deki rakamları toplamak.
Sayenizde birçok şey öğrendim. Şimdi yine birsorunla karşılaştım lütfen bilen varsa bilgisini esirgemesin. İki sütunlu bi excel sayfasında makro ile özet tablo oluşturmak istiyorum. Ama hep hata veriyor yazmaya calıstığım kod şöyle :
Columns("A:B").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"SAYFAADI!C1:C2").CreatePivotTable TableDestination:="", TableName:= _
"Özet Tablo 1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("NUMARA")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Özet Tablo 1").AddDataField ActiveSheet.PivotTables( _
"Özet Tablo 1").PivotFields("TOPLAM"), "Say TOPLAM", xlCount
Range("A3").Select
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Say TOTAL").Function = _
xlSum
Ama bana hata kodu olarak Run time Error 1004 diyor ve Ozet tablo alan adı gecerli değil vs ... hatası veriyor.
Aslında yapmak istediğim A ve B sütunundaki verileri tekrarsız olarak toplamak. Yani A sütununda tekrar eden bilet numaralarına karşılık gelen B deki rakamları toplamak.