range?

[competanxp]

excel üzerinde table sonrası pivot table yaratırken makro ile
source ifadesini oturtamıyorum.

Range("$A$1:$G$satirsonu")
bu ifade hata veriyor. doğru gösterim nasıl olabilir?

teşekkürler şimdiden

 

[Orion1]

excel üzerinde table sonrası pivot table yaratırken makro ile
source ifadesini oturtamıyorum.

Range("$A$1:$G$satirsonu")
bu ifade hata veriyor. doğru gösterim nasıl olabilir?

teşekkürler şimdiden

Range("$A$1:$G$" [B][COLOR="Red"]& satirsonu[/COLOR][/B])

 

[competanxp]

teşekkür ederim.
ama kodum çalışmamakta ısrar ediyor.
pivot işini beceremedim.
kodu komple aşşağıya kopyalıyorum.. yanlış görünen bir şey var mıdır?
çıkamadım işin içinden..



Sheets("z").Select
Range("A1").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$R$" & satirsonu), , xlYes).Name = _
"xxx"
Range("xxx[#All]").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"xxx", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination _
:="w!R3C3", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion12
Sheets("w").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("mc")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Bakiye"), "Sum of Bakiye", xlSum
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Core")
.Orientation = xlColumnField
.Position = 1
End With
Range("D5:E9").Select
Selection.NumberFormat = "#,##0"
Range("C3").Select
ActiveSheet.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium6"
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Core"), "Count of Core", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of Core")
.Orientation = xlColumnField
.Position = 2
End With

 

[Orion1]

Burada satirsonu değişkenine değer (son satır no) atanmamış.

Sheets("z").Select
Range("A1").Select
[B][COLOR="Red"]satirsonu=cells(65536,"A").end(xlup).row[/COLOR][/B]
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$R$" & satirsonu), , xlYes).Name = _
"xxx"
Range("xxx[#All]").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:= _
"xxx", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination _
:="w!R3C3", TableName:="PivotTable1", DefaultVersion:= _
xlPivotTableVersion12
Sheets("w").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("mc")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataFiel d ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Bakiye"), "Sum of Bakiye", xlSum
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Core")
.Orientation = xlColumnField
.Position = 1
End With
Range("D5:E9").Select
Selection.NumberFormat = "#,##0"
Range("C3").Select
ActiveSheet.PivotTables("PivotTable1").TableStyle2 = "PivotStyleMedium6"
ActiveSheet.PivotTables("PivotTable1").AddDataFiel d ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Core"), "Count of Core", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields ("Count of Core")
.Orientation = xlColumnField
.Position = 2
End With

 

[competanxp]

ya ben kodun bir bolumunu aktardim.
satirsonunun degeri var. ustten gelen..
tşk