Otomatik Doldurma,

Sayfanın kod bölümüne yapıştırın.
Sayfa1 deki C ve D sütunlarını yer değiştirin.

leguminosea' Alıntı:

Sayfanın kod bölümüne yapıştırın.
Sayfa1 deki C ve D sütunlarını yer değiştirin.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(18 satır)

Genişletmek için tıklayın ...

Sayfaya yapıştırdım ancak makra çalışmıyor. buton da atamayı denedim. butonu kabul etmiyor maalesef,


Sub aaaa()
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
a = Target
b = Len(a) - Len(WorksheetFunction.Substitute(a, ",", "")) + 1
c = 1
For i = 1 To b
d = WorksheetFunction.Find(",", a, c)
If d < c Then d = Len(a) + 1
e = Mid(a, c, d - c) * 1
f = WorksheetFunction.VLookup(e, Sheets("Sayfa1").Range("C6:D18"), 2, 0)
g = f & ","
h = h & g
c = d + 1
Next
1:
Target.Cells.Offset(0, 1).Value = Left(h, Len(h) - 1)
End Sub
End Sub

Dosyanız ekte

Kötü amaçlı yazılım algılandığı için dosyayı indiremiyorum.
Emeğinize sağlık

Sonuçta sizin gönderdiğiniz dosyaya makro ekledim.
Antirüs taraması yaptım,siteden tekrar indirdim, sıkıntı yok.
Dosya makro içerdiğinden antivirüs yazılımınız veya güvenlik duvarınız engel olmuş olabilir.

Alternatif olsun. Ekli dosyayı inceleyeniz.
Not: D sütununda ki satırlar da değişiklik yapıldığında E sütununda ilgili değerler yazdırılmaktadır.

İlgili Kod:

cakarem' Alıntı:

Alternatif olsun. Ekli dosyayı inceleyeniz.
Not: D sütununda ki satırlar da değişiklik yapıldığında E sütununda ilgili değerler yazdırılmaktadır.

İlgili Kod:

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Genişletmek için tıklayın ...

Hocam dosyayı indirdim. görünüm makrolar kısmında makro adı yok. nasıl çalıştıracağız bu kodu? buton da ekleyemiyorum iki tane sub oluyor hata veriyor. Bu konuda aydınlatır mısınız beni.

Elinize sağlık teşekkürler

Rica ederim. Kod E sütununa veri girdiğinizde otomatik olarak tetiklenip çalışacaktır. Bir makro ataması yapmanıza gerek yok.
İllaki isterseniz kodlarda bir kaç değişiklik gereklidir.

cakarem' Alıntı:

Rica ederim. Kod E sütununa veri girdiğinizde otomatik olarak tetiklenip çalışacaktır. Bir makro ataması yapmanıza gerek yok.
İllaki isterseniz kodlarda bir kaç değişiklik gereklidir.

Genişletmek için tıklayın ...

Süper bir çalışma olmuş emeğinize sağlık

Sayın @emre67z
Sorunuz çözüme ulaştı ise cevabını olduğunu düşündüğünüz mesajın sağ tarafında ÇÖZÜLDÜ ikonunu tıklarsanız konuyu kapatmış oluruz.

ÇÖZÜLDÜ İKONU