bir dosyadan hazırladığım forma veri göndermek istiyorum

[flipflop]

arkadaşlar elimde bir form var. forma sürekli olarak önceden belirli değerleri girmem gerekiyor. bunu kopyala yapıştırla yapmak çok zamanımı alıyor. sorunu şöyle açıklayayım:

yukardaki resimdeki bilgiler bir dosyada kayıtlı. ben formu açtığımda sıra numarasına 1 yazarsam yanındaki hücreye q yazmasını eğer 4 yazarsam r yazmasını istiyorum. iç içe "eğer"lerle bunu yapabiliceğimi düşünmüştüm ama en fazla 7 tane eğeri iç içe kullanabiliyormuşuz. bu istediğimi yapabilicek bir excel fonksiyonu var mıdır?

 

[hamitcan]

Örnek dosya ekler misiniz?

 

[N.Ziya Hiçdurmaz]

yanıt

A sütununa yazılanın b sütununa karşılığını verir istenildiği kadar uzatılabilinir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a10000]) Is Nothing Then Exit Sub
If Target = "1" Then
Target.Offset(0, 1) = "a"
End If
If Target = "2" Then
Target.Offset(0, 1) = "b"
End If
If Target = "3" Then
Target.Offset(0, 1) = "c"
End If
End Sub