progress bar

[Barons]

Merhabalar

Bir kod içinde progressbar uygulaması yapmak istiyorum.Nedense bu konu bana hep ters gelmiştir.İnanın yazmadan önce forum içindeki bütün progress bar konularını inceledim ancak kendi kodlarıma uyarlayamadım.Aslında yapmak istediğim bir güncelleme dosyası.Bu dosya açıldığında diğer dosyayı açıp verileri yapıştırıp çıkacak bu süre içindede userformda oluşturduğum progress bar çalışacak.

Sn LeventM'nin daha önce foruma gönderdiği c=c+1 mantığını uygulamak istedim.
Kodlarım aşağıdadır.Progress bar kodlarını bunun içine monte edemiyorum.Yardımcı olacak arkadaşlara teşekkürler

On Error Resume Next
Application.ScreenUpdating = False

Worksheets("update").Visible = True
Sheets("update").Select
Range("a1:l3800").Select

Selection.Copy
Sheets("sayfa1").Select
Worksheets("update").Visible = xlVeryHidden
Workbooks.Open Filename:="C:\DTM\DTM.xls"
Workbooks("DTM.xls").Activate
Worksheets("DTM").Visible = True
Sheets("DTM").Select
Range("a3").Select
ActiveSheet.Paste
Workbooks("DTM.xls").Save
Workbooks("DTM.xls").Close
MsgBox "Güncelleme işlemi tamamlanmıştır.Teşekkürler "
Application.DisplayAlerts = False
ActiveWorkbook.Close

 

[Barons]

Tekrar merhaba

Birde eklemeyi unuttuğum bir husus var.Güncelleme kodları aradığı dosyayı bulamadığı takdirde mesaj ile uyarabilirmi?"Aradığınız dosya bulunamadı" gibi.

veya "kendiniz bulmak istermisiniz?" gibi...tabi bu ikincisi biraz daha zor bu veya Sadece birincisi gibi mesaj verse yeterli?

 

[Jezus]

Boyle birsey isine yararmi..?
http://www.excel.web.tr/viewtopic.php?t=12133