Barons
Altın Üye
- Katılım
- 14 Mayıs 2005
- Mesajlar
- 967
- Excel Vers. ve Dili
- Microsoft Ofis 365
- Altın Üyelik Bitiş Tarihi
- 06-01-2040
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
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