- Katılım
- 27 Ekim 2017
- Mesajlar
- 97
- Excel Vers. ve Dili
- 2016 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 06-01-2024
Aşagıdaki gibi basit bir kodum var...
iep bilgileri sayfasındaki I100 içinde evet yazıyor
I101 isimli hücrenin içinde ise hayır yazıyor..
Ben bunu veri dogrulama ile diger sayfaya yani iep izleme sayfasına taşıyamıyorum..
Formula1 kısmının oldugu yerde hata veriyor.Yardımcı olur musunuz
Sheets("İEP İZLEME").Select
sah2 = Sheets("İEP İZLEME").Cells(65536, "J").End(xlUp).Row + 1
Range("J" & sah2).Select
With Range("J" & sah2).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Sheets("İEP BİLGİLERİ").Range("I100:I101")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Girdi İletisi Başlığı"
.ErrorTitle = "Haya Uyarı Başlığı"
.InputMessage = "Girdi İleti Metni"
.ErrorMessage = "Hata Uyarısı"
.ShowInput = True
.ShowError = True
iep bilgileri sayfasındaki I100 içinde evet yazıyor
I101 isimli hücrenin içinde ise hayır yazıyor..
Ben bunu veri dogrulama ile diger sayfaya yani iep izleme sayfasına taşıyamıyorum..
Formula1 kısmının oldugu yerde hata veriyor.Yardımcı olur musunuz
Sheets("İEP İZLEME").Select
sah2 = Sheets("İEP İZLEME").Cells(65536, "J").End(xlUp).Row + 1
Range("J" & sah2).Select
With Range("J" & sah2).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Sheets("İEP BİLGİLERİ").Range("I100:I101")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Girdi İletisi Başlığı"
.ErrorTitle = "Haya Uyarı Başlığı"
.InputMessage = "Girdi İleti Metni"
.ErrorMessage = "Hata Uyarısı"
.ShowInput = True
.ShowError = True