formülü makroya dönüştürme???

[kokotuna]

arkadaşlar aşağıdaki kodu makroya dönüştürmek mümkünmüdür acaba???

=EĞER(G2="KUMLU ÇAKIL";"GW";EĞER(G2="SİLTLİ ÇAKIL";"GM";EĞER(G2="SİLTLİ KUMLU ÇAKIL";"GM";EĞER(G2="KİLLİ ÇAKIL";"GC";EĞER(G2="ÇAKILLI KUM";"SP";EĞER(G2="SİLTLİ KUM";"SM";EĞER(G2="KİLLİ KUM";"SC";EĞER(G2="SİLTLİ KİL";"CL";""))))))))

accsess e aktarmaya çalışıyorum verileri ancak bir türlü bu formülün makrosunu yazamadım acaba nasıl yazılıyor???

yardımlarınız için şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Daha sonra veri aktardığınız "deg" değişkenini istediğiniz gibi kullanabilirsiniz.

select case [G2]
case "KUMLU ÇAKIL":deg="GW"
case "SİLTLİ ÇAKIL":deg="GM"
case "SİLTLİ KUMLU ÇAKIL":deg="GM"
.
.
.
end select