İlerleme Durumu Göstergesi

E

ercanbrisa

Katılım
3 Ağustos 2006
Mesajlar
38
Excel Vers. ve Dili
MS Office 2007 Enterp.
Hazırladığım uygulamanın bir noktasında veriler 13 ayrı "pivot table" a aktarılıp rapor alınıyor makro yardımı ile bu pivot tabloların formatının doğruluğunu kontrol ediyorum Fakat bu işlem oldukça uzun sürüyor ve kullanıcılar sistemin bloke olduğunu düşünüyorlar.

Yapmak istediğim bu işlemler yapılırken EXCEL in alt kısmında görülen
"hücre: *********" ilerleme durumu göstergesinin bir benzerini akranda göstermek ( program yüklemelerde gösterilen % tipi göstergede olabilir "bunu nasıl yapabilirim aşağıda pivot tablo formatlarını kontrol ettiğim kodlar var
ilgilenenlere teşekkürler



....
.......

' tüm pivot tablolarının yenilenmesi
ActiveWorkbook.RefreshAll
Sheets("pivot").Select

' Pivot tablosunda üstte mekanik altta elektrik bilgilerinin oluşturulması
ActiveSheet.PivotTables("PivotTable5").PivotFields("Arıza Kısmı").PivotItems( _
"Mekanik").Position = 1
ActiveSheet.PivotTables("PivotTable5").PivotSelect "Elektrik", xlDataAndLabel, _
True

' Pivot tablosunda mixer noların yukardan aşağı sıralanması
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("1") _
.Position = 1
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("2") _
.Position = 2
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("3") _
.Position = 3
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("4") _
.Position = 4
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("5") _
.Position = 5
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("6") _
.Position = 6
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("7") _
.Position = 7
ActiveSheet.PivotTables("PivotTable5").PivotFields("Makina No").PivotItems("8") _
.Position = 8

ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("1") _
.Position = 1
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("2") _
.Position = 2
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("3") _
.Position = 3
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("4") _
.Position = 4
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("5") _
.Position = 5
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("6") _
.Position = 6
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("7") _
.Position = 7
ActiveSheet.PivotTables("PivotTable3").PivotFields("Makina No").PivotItems("8") _
.Position = 8

ActiveSheet.PivotTables("PivotTable3").PivotFields("Duruş Tipi").PivotItems("A" _
).Position = 1
ActiveSheet.PivotTables("PivotTable3").PivotFields("Duruş Tipi").PivotItems("B" _
).Position = 2
ActiveSheet.PivotTables("PivotTable3").PivotFields("Duruş Tipi").PivotItems("C" _
).Position = 3


ActiveSheet.PivotTables("PivotTable8").PivotFields("Makina No").CurrentPage = _
"1"
ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Makina No").CurrentPage = _
"2"
ActiveSheet.PivotTables("Özet Tablo 2").PivotFields("Makina No").CurrentPage = _
"3"
ActiveSheet.PivotTables("Özet Tablo 3").PivotFields("Makina No").CurrentPage = _
"4"
ActiveWindow.SmallScroll ToRight:=18
ActiveSheet.PivotTables("Özet Tablo 4").PivotFields("Makina No").CurrentPage = _
"5"
ActiveSheet.PivotTables("Özet Tablo 5").PivotFields("Makina No").CurrentPage = _
"6"
ActiveSheet.PivotTables("Özet Tablo 6").PivotFields("Makina No").CurrentPage = _
"7"
ActiveWindow.SmallScroll ToRight:=11
ActiveSheet.PivotTables("Özet Tablo 7").PivotFields("Makina No").CurrentPage = _
"8"
ActiveSheet.PivotTables("Özet Tablo 8").PivotFields("Makina No").CurrentPage = _
"(Tümü)"


ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar1).Position = 1

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar2).Position = 2

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar3).Position = 3

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar4).Position = 4

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar5).Position = 5

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar6).Position = 6

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar7).Position = 7

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar8).Position = 8

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar9).Position = 9

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar10).Position = 10

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar11).Position = 11

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar12).Position = 12

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar13).Position = 13

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar14).Position = 14

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar15).Position = 15

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar16).Position = 16

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar17).Position = 17

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar18).Position = 18

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar19).Position = 19

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar20).Position = 20

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar21).Position = 21

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar22).Position = 22

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar23).Position = 23

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar24).Position = 24

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar25).Position = 25

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar26).Position = 26

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar27).Position = 27

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar28).Position = 28

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar29).Position = 29

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar30).Position = 30

ActiveSheet.PivotTables("PivotTable5").PivotFields("Tarih").PivotItems( _
pvtar31).Position = 31

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar1).Position = 1

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar2).Position = 2

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar3).Position = 3

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar4).Position = 4

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar5).Position = 5

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar6).Position = 6

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar7).Position = 7

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar8).Position = 8

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar9).Position = 9

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar10).Position = 10

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar11).Position = 11

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar12).Position = 12

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar13).Position = 13

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar14).Position = 14

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar15).Position = 15

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar16).Position = 16

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar17).Position = 17

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar18).Position = 18

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar19).Position = 19

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar20).Position = 20

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar21).Position = 21

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar22).Position = 22

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar23).Position = 23

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar24).Position = 24

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar25).Position = 25

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar26).Position = 26

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar27).Position = 27

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar28).Position = 28

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar29).Position = 29

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar30).Position = 30

ActiveSheet.PivotTables("Özet Tablo 11").PivotFields("Tarih").PivotItems( _
pvtar31).Position = 31

Sheets("veri").Select
MsgBox "Özet Tablolarınız ve Grafikleriniz Başarıyla Oluşturuldu", vbInformation
Range("A460:I500").Select
Selection.ClearContents
Range("I1").Select

'veri tablosunun tarih ve mixer no ya göre sıralanması
Sheets("veri").Select
Columns("B:H").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("I1").Select
End Sub
 
E

ercanbrisa

Katılım
3 Ağustos 2006
Mesajlar
38
Excel Vers. ve Dili
MS Office 2007 Enterp.
Ben Böyle Yaptım Fena Olmadı

Aşağıdaki kodları işlemin başına yazdım zaman tutup çeşitli aralıklarla progressbar. value değerini 100 e kadar yükselttim oldukça gerçekçi ve eş zamanlı oldu. Fakat bu yaptığım işin tarzancası
daha teknik bir yöntem varsa yardımlarınızı beklerim

Me.ProgressBar1.Min = 1
Me.ProgressBar1.Max = 100
Me.ProgressBar1.Value = 1
....
....
Me.ProgressBar1.Value = 25
....
....
Me.ProgressBar1.Value = 40
....
....
....
....
Me.ProgressBar1.Value = 100
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst