Girilen Verinin Başka bir Veriye Dönüşmesi

[baydeniro]

Merhaba arkadaşlar. D sütununa girilen verilen TANIM sayfasında önceden belirlenmiş başak bir veriye dönüşmesi (YERİNEKOY) mümkün mü ? Örnek dosya ekte.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz.. Arzu ettiğiniz şey böyle birşeymi?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
Set hcr = Sheets("TANIM").Range("A1:A" & Sheets("TANIM").[A65536].End(3).Row).Find(Target.Value, lookat:=xlWhole)
If Not hcr Is Nothing Then Target.Value = hcr.Offset(0, 1)
End Sub

 

[baydeniro]

Sayın Ayhan Ercan, ilginiz ve yardımlarınız için çok teşekkür ederim. Çok çok güzel bir kod, tam istediğim gibi, emeğinize sağlık, Allah size zeval vermesin, bol kazançlar, sağlıklı günler dilerim. Sağlıcakla kalın.

 

[Ayhan Ercan]

Sayın Ayhan Ercan, ilginiz ve yardımlarınız için çok teşekkür ederim. Çok çok güzel bir kod, tam istediğim gibi, emeğinize sağlık, Allah size zeval vermesin, bol kazançlar, sağlıklı günler dilerim. Sağlıcakla kalın.

Rica ederim.
İyi Çalışmalar...