1 değer girildiğinde karşılıklarını sıralı şekilde yazması

[yagiz80]

ı hücresine değer girildiğinde a-b-c-d-e-f-g-h hücrelerine sıralı sekilde hücrelere degerlerin otomatik girilmesi konusunda takıldım tşkler

 

[Murat OSMA]

Sayfanın kod kısmına bu kodları yazıp deneyiniz;

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 9 Then Exit Sub
    Dim a, b, c, d, ad, bd
    [COLOR="red"]a [/COLOR]= Array("Ahmet", "Mehmet", "Fatma", "İsmail")
    [COLOR="red"]b [/COLOR]= Array("Veli", "Hakkı", "Tufam", "Nedim")
    Select Case Target.Value
        Case Is = "[COLOR="red"]a[/COLOR]"
            Range("[COLOR="red"]A[/COLOR]" & Target.Row).Resize(, [COLOR="red"]4[/COLOR]) = [COLOR="red"]a[/COLOR]
        Case Is = "[COLOR="red"]b[/COLOR]"
            Range("[COLOR="red"]A[/COLOR]" & Target.Row).Resize(, [COLOR="red"]4[/COLOR]) = [COLOR="red"]b[/COLOR]
    End Select
End Sub[/FONT]

Not: Kodlar a ve b grubu için yazılmıştır. Diğerlerini aynı şekilde siz çoğaltabilirsiniz.

 

[yagiz80]

Degerli üstadım kabul etmedi benmi hata yaptım acaba

 

[Murat OSMA]

Kabul etmedi ne demek ? :dusun:

 

[kan-nas]

iyi geceler tesekkurler..

 

[yagiz80]

değerli üstadım öncelikle ilgi ve alakandan dolayı tşk ederim çalıştırmayı başardım ancak sadece örnek sadece a yazdıgımda a nın degerleri yazıp diğer o dört taneyi silmesi gerekiyor o konuda yardımcı olabilirmisin

 

[Murat OSMA]

Ne demek istediğinizi anlamadım.

 

[yagiz80]

bu kodlar olmadı

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

Sayfa2 de master liste oluşturulmuştur. Başka kriterleriniz varsa bu sayfaya ekleyerek sonuca gidebilirsiniz.

 

[yagiz80]

korhan hocam tskler istediğim budur çalışmalarınızda basarılar