Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 185
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
HOCAM LİNKTE detaylu çalışma sayfam ve makrolarım var.müsait zamanda inceleyebilirmisiniz.rica etsem
Excel VBA Auto Filter Hatasını Çözme
- Konuyu başlatan muhsar
- Başlangıç tarihi
Çözüm
- Katılım
- 11 Nis 2019
- Mesajlar
- 9,667
Cevabı yazdıktan sonra belirttiğiniz konu sayfasına bakmıştım zaten.
Belgeniz, başka excel belgeleriyle bağlantılı olduğundan kontrol etmek/düzenleme önermek pek işe yaramaz gibi göründü bana.
Sorun yaşadığınız makronun işlem yapacağı VERİ_GİRİS.xlsm isimli bir belge, eklediğiniz belgeyle bu belgenin bağlantısı nedir onu da anlamadım doğrusu.
Belgeniz, başka excel belgeleriyle bağlantılı olduğundan kontrol etmek/düzenleme önermek pek işe yaramaz gibi göründü bana.
Sorun yaşadığınız makronun işlem yapacağı VERİ_GİRİS.xlsm isimli bir belge, eklediğiniz belgeyle bu belgenin bağlantısı nedir onu da anlamadım doğrusu.
Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 185
Sub excopyex()
'
'
'
ActiveSheet.Unprotect "1"
Application.ScreenUpdating = False
Application.Run "'VERİ_GİRİS.xlsm'!çıkanlar"
ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="ex"
ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=7, Criteria1:="<>"
Rows("9:9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("EX.xlsx").Activate
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteAll
Application.ScreenUpdating = True
ActiveSheet.Protect "1"
'
End Sub
merhaba;yukarıdaki makroyu çalıştıdığımda( ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="ex")satıra hata alıyorum ,neden olabilir?
'
'
'
ActiveSheet.Unprotect "1"
Application.ScreenUpdating = False
Application.Run "'VERİ_GİRİS.xlsm'!çıkanlar"
ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="ex"
ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=7, Criteria1:="<>"
Rows("9:9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("EX.xlsx").Activate
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteAll
Application.ScreenUpdating = True
ActiveSheet.Protect "1"
'
End Sub
merhaba;yukarıdaki makroyu çalıştıdığımda( ActiveSheet.Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="ex")satıra hata alıyorum ,neden olabilir?
- Katılım
- 11 Nis 2019
- Mesajlar
- 9,667
Merhaba.
Filtre uygulaması yapılacak sayfanın AKTİF sayfa olduğundan emin misiniz?
İsterseniz Activesheet.... yerine Sheets("....sayfa adı....").... şeklinde bir deneyin.
Özetle diyeceğim şudur, makrolarda yapılacak işlemlere (filtre/kopyalama vs) ilişkin kod satırlarında,
işlem yapılacak belge/sayfa adını belirtmekte ve mümkün olduğunca da ....Select satırı kullanmamakta yarar var.
Örneğin kod'daki Activesheet..... (aktif sayfa hangisi belli değil), Rows(9:9).., (hangi sayfanın satırıdır bu 9'uncu satır),
filtre alanı diye belirtilen B:H sütunlarında daha evvelden uygulanmış ve başka sütunları içine alan ya da başka satırdan başlayan filtre varsa ne olacak,
gibi sorun çıkartması muhtemel kodlarınız var.
En iyisi bir örnek belge üzerinden soruyu yeniden gözden geçirerek, yapılmak istenilen hususla ilgili net açıklama ekleyin.
Filtre uygulaması yapılacak sayfanın AKTİF sayfa olduğundan emin misiniz?
İsterseniz Activesheet.... yerine Sheets("....sayfa adı....").... şeklinde bir deneyin.
Özetle diyeceğim şudur, makrolarda yapılacak işlemlere (filtre/kopyalama vs) ilişkin kod satırlarında,
işlem yapılacak belge/sayfa adını belirtmekte ve mümkün olduğunca da ....Select satırı kullanmamakta yarar var.
Örneğin kod'daki Activesheet..... (aktif sayfa hangisi belli değil), Rows(9:9).., (hangi sayfanın satırıdır bu 9'uncu satır),
filtre alanı diye belirtilen B:H sütunlarında daha evvelden uygulanmış ve başka sütunları içine alan ya da başka satırdan başlayan filtre varsa ne olacak,
gibi sorun çıkartması muhtemel kodlarınız var.
En iyisi bir örnek belge üzerinden soruyu yeniden gözden geçirerek, yapılmak istenilen hususla ilgili net açıklama ekleyin.
Çözüm
- Durum
Benzer Konular
Popüler İçerikler
Daha Fazlası