- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
- Altın Üyelik Bitiş Tarihi
- 08-05-2021
Merhaba arkadaşlar,
Aşağıdaki kod ile kapalı dosyayı açarak belirtilen alanı başka bir dosyaya kopyalayıp kapatıyorum. Kapatma sırasında " Panodaki bilgi çok büyük" le başlayan uyarı mesajını alıyorum.Bu uyarı mesajında "Hayır" ı tıklarsam kopyalama işlemi hızlı oluyor.Bu mesajı almamak için kırmızı renkli satırı ekledim. Fakat bu seferde ( sanırım ) varsayılan buton olan "Evet" butonu tıklanmış gibi kopyalama işlemi biraz uzun sürüyor. Bütün bu işlemler bir form üzerinden ve Application.Visible=false iken yapıldığı için 8-9 sn. kadar beklemek gerekiyor. Bu uyarı mesajına kod ile "Hayır" diyebilir miyiz ya da başka bir çözüm var mıdır? ilgilenen arkadaşlara teşekkür ederim.
Application.DisplayAlerts = False
ds = ActiveWorkbook.Name
Workbooks.Open "d:\MTM_ARSIV\GLR.xls"
Range("giderler!a1:s" & [giderler!a65536].End(3).Row).Copy
Workbooks(ds & "").Activate
[giderler!a1].PasteSpecial
Workbooks("GLR.xls").Close
Application.DisplayAlerts = True
Aşağıdaki kod ile kapalı dosyayı açarak belirtilen alanı başka bir dosyaya kopyalayıp kapatıyorum. Kapatma sırasında " Panodaki bilgi çok büyük" le başlayan uyarı mesajını alıyorum.Bu uyarı mesajında "Hayır" ı tıklarsam kopyalama işlemi hızlı oluyor.Bu mesajı almamak için kırmızı renkli satırı ekledim. Fakat bu seferde ( sanırım ) varsayılan buton olan "Evet" butonu tıklanmış gibi kopyalama işlemi biraz uzun sürüyor. Bütün bu işlemler bir form üzerinden ve Application.Visible=false iken yapıldığı için 8-9 sn. kadar beklemek gerekiyor. Bu uyarı mesajına kod ile "Hayır" diyebilir miyiz ya da başka bir çözüm var mıdır? ilgilenen arkadaşlara teşekkür ederim.
Application.DisplayAlerts = False
ds = ActiveWorkbook.Name
Workbooks.Open "d:\MTM_ARSIV\GLR.xls"
Range("giderler!a1:s" & [giderler!a65536].End(3).Row).Copy
Workbooks(ds & "").Activate
[giderler!a1].PasteSpecial
Workbooks("GLR.xls").Close
Application.DisplayAlerts = True