Hücreye seçme butonu koyma

Katılım
13 Aralık 2018
Mesajlar
105
Excel Vers. ve Dili
Microsoft 365 | Türkçe
Altın Üyelik Bitiş Tarihi
08-01-2024
Merhaba, excel soldaki gibi hücre içine neyi seçersen onu koyan seçmeyi nereden yapıyoruz ? Yardımcı olur musunuz teşekkürler. ( Sadece Evet/Hayır gibi seçenekler seçilecek )

 
Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
A1 Hücresinde iken, veri sekmesini seçiniz.Veri doğrulama,Liste seçiniz.Kaynak yazan alana Evet;Hayır yazınız Tamam seçiniz.A1 de kopyala, özel yapıştır.Doğrulamayı seçerek istediğiniz hücrelerde veri doğrulama listesinin çıkmasını sağlarsınız.Kolay gelsin.
 
Katılım
13 Aralık 2018
Mesajlar
105
Excel Vers. ve Dili
Microsoft 365 | Türkçe
Altın Üyelik Bitiş Tarihi
08-01-2024
A1 Hücresinde iken, veri sekmesini seçiniz.Veri doğrulama,Liste seçiniz.Kaynak yazan alana Evet;Hayır yazınız Tamam seçiniz.A1 de kopyala, özel yapıştır.Doğrulamayı seçerek istediğiniz hücrelerde veri doğrulama listesinin çıkmasını sağlarsınız.Kolay gelsin.
Teşekkür ederim kral (y)
 
Katılım
13 Aralık 2018
Mesajlar
105
Excel Vers. ve Dili
Microsoft 365 | Türkçe
Altın Üyelik Bitiş Tarihi
08-01-2024
A1 Hücresinde iken, veri sekmesini seçiniz.Veri doğrulama,Liste seçiniz.Kaynak yazan alana Evet;Hayır yazınız Tamam seçiniz.A1 de kopyala, özel yapıştır.Doğrulamayı seçerek istediğiniz hücrelerde veri doğrulama listesinin çıkmasını sağlarsınız.Kolay gelsin.
Peki, bu buton içindeki "Evet, Hayır" 'ı daha büyük yapma şansımız var mı? Ufak kaldılar diğerleri yanında..

 
Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Hücre içindeki yazı büyütülebilir.Görünümü büyütmek için Sayfa kodu olarak aşağıdaki kodu kullanabilirsiniz.(A1:A100) veri doğrulama listenize göre belirleyiniz.Dönüş yaptığınız için teşekkür ederim.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Intersect(Target, Range("A1:A100")) Is Nothing Then
    ActiveWindow.Zoom = 100
  Else
    ActiveWindow.Zoom = 200
  End If
End Sub
 
Son düzenleme:
Üst