• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bir hücreye koşula bağlı olarak değerler girme

  • Konbuyu başlatan Konbuyu başlatan cim26
  • Başlangıç tarihi Başlangıç tarihi
Katılım
10 Mayıs 2011
Mesajlar
4
Excel Vers. ve Dili
2007 tükçe
Öncelikle ilgi gösteren herkese çok teşekkür ederim.

Örnek dosya içerisinde sorumu elimden geldiğince açık anlattım.

Yardımcı olabilirseniz çok memnun olurum.

Herkese kolay gelsin...
 

Ekli dosyalar

Öncelikle ilgi gösteren herkese çok teşekkür ederim.

Örnek dosya içerisinde sorumu elimden geldiğince açık anlattım.

Yardımcı olabilirseniz çok memnun olurum.

Herkese kolay gelsin...

merhaba
bu kodu sayfanızin kod bölümüne yapıştrın ve deneyin
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A5") = 5 Then
Columns("C:C").EntireColumn.Hidden = False
Range("C5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A,B,C,D"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("A5") = 6 Then
Columns("C:C").EntireColumn.Hidden = False
Range("C5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Z,Y,V,U"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("A5") = 7 Then
Columns("C:C").EntireColumn.Hidden = True
End If
End Sub
 
İhsan bey ilginize teşekkür ederim.
Fakat ben excel kod konusunda oldukca yeniyim bu kodu nereye nasıl ekleyeceğimi belirtebilirseniz çok memnun olurum.

saygılarımla.
 
İhsan bey ilginize teşekkür ederim.
Fakat ben excel kod konusunda oldukca yeniyim bu kodu nereye nasıl ekleyeceğimi belirtebilirseniz çok memnun olurum.

saygılarımla.

merhaba
eki inceler misiniz
kod'u görmek için Alt+F11 tuş kombinasyonunu kullanabilirsiniz.

kod'u ilgili yere yapıştırdıktan sonra 2007 kullandığınız için makro içerebilen dosya şeklinde kayıt yapmanız gerekmektedir.
 

Ekli dosyalar

İhsan bey gerçekten cok yardımcı oldunuz, çok teşekkür ederim.
Yalnız 5 seçildiğinde C5 hücresinde A, B, C, D değerlerinden herhangi biri seçilebilir olmasını nasıl sağlayabilirim?
Suanda A5 6 iken C5 "A,B,C,D" değerini alıyor, herhangi biri seçilebilir değil.

Kolay gelsin.
 
İhsan bey gerçekten cok yardımcı oldunuz, çok teşekkür ederim.
Yalnız 5 seçildiğinde C5 hücresinde A, B, C, D değerlerinden herhangi biri seçilebilir olmasını nasıl sağlayabilirim?
Suanda A5 6 iken C5 "A,B,C,D" değerini alıyor, herhangi biri seçilebilir değil.

Kolay gelsin.

c5 hücresine tıklayıp yanındaki ok'a tıklayarak bakabilir misiniz bende istediğiniz harfler seçilebilir olarak görünüyor
 
Geri
Üst