Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-11-2017, 13:20   #1
EGULERYUZ
Altın Üye
 
Giriş: 21/02/2017
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
2010 TÜRKÇE
Varsayılan iki formülü aynı çalışma sayfasında çalıştırma.

aşağıdaki 2 ad.kodu aynı sayfada nasıl kullanabilirim,yardımlarınız için teşekkürler...




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A,B:B,C:C,D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP, AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ :BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4)I1:I4): (AJ1:AJ4)]) Is Nothing Then Exit Sub

Range("F5").Select
MsgBox ("...!!!HOOOPPPSSS!!!...Bu Hücrede Formül Bulunduğundan Veri Girişi Yapılamaz, Lütfen Doğru Kutucuğu Seçin"), vbCritical


End Sub






Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
If MsgBox("Değişiklik yapmak istiyormusunuz ?", vbYesNo) = vbYes Then
sifre = InputBox("Şifre girin")
If sifre <> 1 Then
MsgBox "Hatalı Şifre girdiniz"
GoTo son
Else
Exit Sub
End If
End If
son:
Target.Offset(1, 0).Select
End If
End Sub
EGULERYUZ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 08:40   #2
faye_efsane
 
Giriş: 01/09/2008
Mesaj: 28
Excel Vers. ve Dili:
2003 Türkçe 2007 Türkçe 2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;

1.Worksheet_SelectionChange kodlarında sütun aralıkları verildiği için Hücrelerde Formül olmasada mesaj ile uyarı çıkar.

Formüllü hücrelerde uyarı vermesi için;
2.Worksheet_SelectionChange kodlarında
Bu satırı
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Target.Value <> "" Then
Bu şekilde değiştiriniz
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Target.HasFormula Then
Formüllü bir hücre seçtiğinizde mesaj ile uyarı çıkar, formül olmayan hücrelerde uyarı çıkmaz.
Saygılarımla, iyi çalışmalar.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 08:53   #3
EGULERYUZ
Altın Üye
 
Giriş: 21/02/2017
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
2010 TÜRKÇE
Varsayılan

sayın "faye efsane" bu kodlar tam olarak işimi görüyor ,ben sadece iki kodu aynı sayfada kullanamıyorum bununla ilgili olarak yardımlarınızı bekliyorum,
saygılar bizden
iyi çalışmalar...
EGULERYUZ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 09:55   #4
faye_efsane
 
Giriş: 01/09/2008
Mesaj: 28
Excel Vers. ve Dili:
2003 Türkçe 2007 Türkçe 2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;
2.Worksheet_SelectionChange kodlarında
If Target.Value <> "" Then satırının üzerine 1. koddaki bu satırı ekleyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(Target, [A:A,B:B,C:C,D:D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ:BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4):(I1:I4):(AJ1:AJ4)]) Is Nothing Then Exit Sub
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 10:06   #5
EGULERYUZ
Altın Üye
 
Giriş: 21/02/2017
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
2010 TÜRKÇE
Varsayılan

Alıntı:
faye_efsane tarafından gönderildi Mesajı Görüntüle
Merhabalar;
2.Worksheet_SelectionChange kodlarında
If Target.Value <> "" Then satırının üzerine 1. koddaki bu satırı ekleyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(Target, [A:A,B:B,C:C,D:D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ:BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4):(I1:I4):(AJ1:AJ4)]) Is Nothing Then Exit Sub
bukodu eklediğimde döngüye giriyor ve hiç bir işlrm yapamıyorum,
ilk kod formüllü alanlara girişi engellemek için kullanıyorum ikincisini f5 ile aj24 arasındaki hücrelere veri değişimi için diğer hücreler verileri başka bir çalışma kitabından alıyor.bu yaptığımız değişiklik hiç bir hücreye erişim sağlamadı.konuyla ilgil dosya yı ekliyorum bir el atarsanız sevinirim...

http://s5.dosya.tc/server5/gmhsb3/GU...NTAJ_.rar.html
Eklenmiş Dosyalar
Dosya Türü: xlsm GÜNLÜK PUANTAJ .xlsm (238.1 KB, 4 Görüntülenme)
EGULERYUZ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 10:11   #6
faye_efsane
 
Giriş: 01/09/2008
Mesaj: 28
Excel Vers. ve Dili:
2003 Türkçe 2007 Türkçe 2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;
Dosya indirme yetkim olmadığından dolayı Çalışma Dosyanıza bakamıyorum. İndiren arkadaşlar yardımcı olacaktır.
Saygılarımla, iyi çalışmalar.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 10:18   #7
EGULERYUZ
Altın Üye
 
Giriş: 21/02/2017
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
2010 TÜRKÇE
Varsayılan

sayın faye efsane ,dosyaya bakmanız için upload sitelerine yükledim indirmek isterseniz ordan ulaşabilirsiniz...

http://s5.dosya.tc/server5/gmhsb3/GU...NTAJ_.rar.html
EGULERYUZ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 13:24   #8
faye_efsane
 
Giriş: 01/09/2008
Mesaj: 28
Excel Vers. ve Dili:
2003 Türkçe 2007 Türkçe 2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;
Hiç aralık belirtmeden, hem dolu hücreleri hem de formüllü hücreleri aşağıdaki şekilde kontrol edebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <> "" Or ActiveCell.HasFormula Then
If MsgBox("Değişiklik yapmak istiyormusunuz ?", vbYesNo) = vbYes Then
sifre = InputBox("Şifre girin")
If sifre <> 1 Then
MsgBox "Hatalı Şifre girdiniz"
GoTo son
Else
Exit Sub
End If
End If
son:
Target.Offset(1, 0).Select
End If
End Sub
Eğer hücre aralıkları olsun derseniz bu satırı da ekleyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(ActiveCell, [A:A,B:B,C:C,D:D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ:BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4):(I1:I4):(AJ1:AJ4)]) Is Nothing Then Exit Sub
Saygılarımla, iyi çalışmalar.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-11-2017, 14:58   #9
EGULERYUZ
Altın Üye
 
Giriş: 21/02/2017
Şehir: İSTANBUL
Mesaj: 42
Excel Vers. ve Dili:
2010 TÜRKÇE
Varsayılan

ellerinize sağlık faye efsane,birde şu aralıktaki hücrelerin seçilmesini engelleyebilirsek çok daha güzel olacak.[A:A,B:B,C:C,D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP, AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ :BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4)I1:I4): (AJ1:AJ4)]
EGULERYUZ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-11-2017, 00:04   #10
faye_efsane
 
Giriş: 01/09/2008
Mesaj: 28
Excel Vers. ve Dili:
2003 Türkçe 2007 Türkçe 2010 Türkçe 2016 Türkçe
Varsayılan

Merhabalar;
Kodu bu şekilde değiştiriniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A:A,B:B,C:C,D:D,E:E,AK:AK,AL:AL,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS,AT:AT,AV:AV,AW:AW,AZ:AZ,BC:BC,BJ:BJ,BM:BM,BN:BN,BQ:BQ,BV:BV,BW:BW,(F1:F4):(I1:I4):(AJ1:AJ4)]) Is Nothing Then
MsgBox "Değiştirilmemesi gereken bir hücre seçtiniz!", vbExclamation, "Uyarı"
Range("F5").Select
Exit Sub
End If

If Target.Value <> "" Then
If MsgBox("Değişiklik yapmak istiyormusunuz ?", vbYesNo) = vbYes Then
sifre = InputBox("Şifre girin")
If sifre <> 1 Then
MsgBox "Hatalı Şifre girdiniz"
GoTo son
Else
Exit Sub
End If
End If
son:
Target.Offset(1, 0).Select
End If
End Sub
Saygılarımla, iyi çalışmalar.
faye_efsane Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden