AvtiveCell select

[haso_excel]

Merhaba arkadaşlar,

A1 den başlayıp K nın hangi satırında biteceğini bilmediğim bir datam var. Bu datanın satır sayısı her zaman değişkenlik gösteriyor. Bazen Alan A1:K678, bazen de A1:k65000 olabilir. Ben bu datayı kullanarak pivot table yapmak istiyorum. Her zaman pivot ile upğraşömmak için macro kayıt ettim. Fakat satır sayısı değişkenlik gösterdiği için A1 ile K daki dolu hücreleri select edip pivot a başlamasını sağlamam gerekiyor. Yardımcı olabilir misiniz ?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub a1k()
Dim alan As Long
alan = Cells(65536, "a").End(xlUp).Row
Range("a1:k" & alan).Activate
End Sub

 

[haso_excel]

Çok teşekkür ederim, elinize sağlık

 

[haso_excel]

Sub TABLO1()
Dim alan As Long
alan = Cells(65536, "a").End(xlUp).Row
Range("a1:k" & alan).Activate

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ALAN").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Vade trh."
ActiveSheet.PivotTables("PivotTable1").PivotFields(" Tutar"). _
Orientation = xlDataField
Range("A4").Select
Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)
Range("B4").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Vade trh.")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").FORMAT xlTable2
Range("B5:G6").Select
Selection.Style = "Comma"
Cells.Select
Cells.EntireColumn.AutoFit
Range("C5").Select
MsgBox "İşlem Tamamlnadı." & vbLf & _
vbLf & "hasanatilcan@hotmail.com", vbOKOnly + vbInformation, ""

End Sub

Merhaba arkadaşlar,
Ben A1 ile K kolonun arasındaki dolu hücreleri select edip pivot table yapmak istiyorum ama olmadı kod yıkarıda yardımcı olıursanız sevinirim

 

[haso_excel]

Dim alan As Long
alan = Cells(65536, "a").End(xlUp).Row
Range("a1:k" & alan).Activate
'End Sub



ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"cekler!R1C1:R" & alan & "C11").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10[/QUOTE

Ben site aynı problemi yaşayan bir arkadaşın kodundan alıntı ile problemimi çözdüm. İlgilennenlere kod yukarıda