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 05-01-2018, 18:18   #1
tdanisman
 
Giriş: 05/01/2018
Şehir: Ankara
Mesaj: 9
Excel Vers. ve Dili:
excel 2013
Varsayılan Hücre İçine Tıklandığında Kullanıcıya Değer Girdirme?

Merhaba Sayın Arkadaşlar,

Değer girdirmek istediğim hücrelerin ilk etapta üzerinde "Lütfen Değer Giriniz.." yazmasını ve bu hücrelere tıklandığında bir pencerenin açılmasını ve bu pencerede kullanıcıya değer girdirilmesini, girilen değerin ise başta tıklanmış olan hücreye aktarılmasını istiyorum.

Konu ile baya bir araştırma yaptım. Fakat kod kullanmayı bilmediğimden ve karşıma benzer örnekler çıktığından derleme yapamadım.

Yardımlarınız için şimdiden teşekkür ederim. İyi Çalışmalar
tdanisman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 19:58   #2
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 167
Excel Vers. ve Dili:
2003-tr
Varsayılan

https://www.dosyaupload.com/qaA0

Örnek dosyan burada. Bir hücreye çift tıklayınca "DEĞER GİRİN" diye pencere açılıyor ve girdiğin değer o hücreye geçiyor. Kodu kendinize göre düzenlersiniz. Kodu da aşağıda.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Message = "Değer Giriniz"
Title = "Yeni Değer?"
DefaultValue = ""
giris = InputBox(Message, Title, DefaultValue, vbOKCancel)
ActiveCell.Value = giris
End Sub
NOT: Bu işlerden hiç anlamadığınızı varsayarak şöyle izah edeyim. Alt+F11 ile kod bölümüne ulaşırsınız. Soldan Sayfa1'i çift tıklayarak, Sayfa1'e özel gireceğiniz kodları yazarsınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Worksheet_BeforeDoubleClick
Herhangi bir hücreyi çift tıklattığınız da yapılacak işlemleri yazacağınız yerdir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
InputBox
Açılan mesaj penceresi

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveCell
Çift tıklanmış hücre demek.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 20:18   #3
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,804
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Öncelikle foruma hoş geldiniz ...

ALTTuşu basılı iken F11 e aynı anda basarak VBA kısmına geçin

Soldaki sayfa ağacında sayfa1 e tıklayın , sağ taraafa beyaz zemin açılır.
Bu, o sayfanın olay kısmıdır.

Sizin olayınız hücreye çift tıklayınca pencere gelmesi ve oradaki uyarıya göre
hücreye doğru veri girilmesini sağlamak.

Sayfadaki sarı boyanmış hücreye çift tıklayın, açılan pencerede isim girin
ve OK basın.

Daha sonra kendinize göre düzeltmelerle diğerlerini oluşturun.


http://www.dosya.tc/server11/hr3zh2/inputbox.rar.html

Bir dosya örneklemek istediğinizde bir dış server kullanıp linkini buraya aktarabilirsiniz.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:06   #4
tdanisman
 
Giriş: 05/01/2018
Şehir: Ankara
Mesaj: 9
Excel Vers. ve Dili:
excel 2013
Varsayılan

ilginiz ve alakanız için çok teşekkür ederim. Hoş bulduk

Her hücreye ayrı içeriğe sahip bir kutucuk açtırmak istiyorum. Paylaştığınız kodları kullandığımda tüm hücrelere çift tıklandığında aynı kutucuk açılıyor. Bunu nasıl özelleştirebilirim acaba?

Örneğin, Sayfa1'de B11'e tıklandığında "Santral İsmini Giriniz..", B12'ye tıklandığında "Kömür nem oranını giriniz.." şeklinde.

Bir de hücrelere çift tıklanmadan önce içerisinde değer girilmediğinde görülen, girildikten sonra girilen değeri gösteren bir yapı oluşturabilir miyim?

Örneğin, hiç değer girilmemişken "Veri girmek için çift tıklayınız?" yazacak, çift tıklandıktan sonra girilen değer yazacak, eğer kullanıcı girdiği değeri silerse, yeniden "Veri girmek için çift tıklayınız?" yazacak.

Saygılarımla
tdanisman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:23   #5
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp Kod görüntüle deyince açılan sayfaya) yapıştırıp deneyiniz:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B11]) Is Nothing Then GoTo 10
veri = InputBox("Santral ismini giriniz:")
Target = veri
sendkeys "{ENTER}"
10:
If Intersect(Target, [B12]) Is Nothing Then Exit Sub
20:
veri = InputBox("Kömür nem oranını giriniz")
If IsNumeric(veri) = False Then
    MsgBox "Lütfen sayısal değer giriniz!", vbCritical
    GoTo 20
Else
    Target = veri * 1
    sendkeys "{ENTER}"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B11:B12]) Is Nothing Then Exit Sub
If Target = "" Then
    Application.EnableEvents = False
    Target = "Veri girmek için çift tıklayınız!"
    Application.EnableEvents = True
End If

End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 05-01-2018, 22:38   #6
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 128
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Çok güzel ayrı ayrı 3 kod hepinize ayrı ayrı teşekkürler
uKiGS Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 23:05   #7
tdanisman
 
Giriş: 05/01/2018
Şehir: Ankara
Mesaj: 9
Excel Vers. ve Dili:
excel 2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B11]) Is Nothing Then GoTo 10
veri = InputBox("Santral ismini giriniz:")
Target = veri
SendKeys "{ENTER}"
10:
If Intersect(Target, [B12]) Is Nothing Then GoTo 20
veri = InputBox("Santralde Kullanılan Kömür Cinsini Giriniz:")
Target = veri
SendKeys "{ENTER}"
20:
If Intersect(Target, [B13]) Is Nothing Then Exit Sub
30:
veri = InputBox("Santral Alanında Bulunan Rezerv Miktarını Giriniz:")
If IsNumeric(veri) = False Then
    MsgBox "Lütfen sayısal değer giriniz!", vbCritical
    GoTo 30
Else
    Target = veri * 1
    SendKeys "{ENTER}"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B11:B12:13]) Is Nothing Then Exit Sub
If Target = "" Then
    Application.EnableEvents = False
    Target = "Veri girmek için çift tıklayınız!"
    Application.EnableEvents = True
End If

End Sub
Sizden aldığım kodu ihtiyacım olan hücreleri çoğaltmak için kullandım. Yalnız hata veriyor. Sanırım 10: 20: olayını anlayamadım. Hatamı söylerseniz sevinirim.
tdanisman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 23:08   #8
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(Target, [B11:B12:13]) Is Nothing Then Exit Sub
Yerine

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(Target, [B11:B13]) Is Nothing Then Exit Sub
şeklinde deneyin.

Eğer kod çalışmazsa koddaki

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    Application.EnableEvents = False
satırı kodların çalışmasını engellemiştir. Düzeltmek için aşağıdaki makroyu bir kere çalıştırın:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
sub aktif()
    Application.EnableEvents = True
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 05-01-2018, 23:24   #9
tdanisman
 
Giriş: 05/01/2018
Şehir: Ankara
Mesaj: 9
Excel Vers. ve Dili:
excel 2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Intersect(Target, [B11:B13]) Is Nothing Then Exit Sub
Yukarıda söylemiş olduğunuz düzeltmeyi uygulayınca kod çalıştı. Herhangi bir problem çıkmadı teşekkür ederim.

Yalnız çift tıklamadan, hücreyi tek tıkla seçerek de veri girişi yapılabiliyor. Bunu nasıl engellerim?
tdanisman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2018, 23:40   #10
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Maalesef bu isteğinizi yapamadım. Ayrıca neden kolayca veri girmek varken zorlaştırıyorsunuz ki?
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   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 07:13


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden