Otomatik Doldurma,

  • Konuyu başlatan Konuyu başlatan emre67z
  • Başlangıç tarihi Başlangıç tarihi

Kısa Açıklama

Otomatik Doldurma, isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Ekli dosyalar
Sayfanın kod bölümüne yapıştırın.
Sayfa1 deki C ve D sütunlarını yer değiştirin.

Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)
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
 
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.
 
Moderatörün son düzenlenenleri:
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.
1602765547407.webp
İlgili Kod:
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)
 
Ekli dosyalar
Moderatörün son düzenlenenleri:
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.
Ekli dosyayı görüntüle 8843
İlgili Kod:
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(11 satır)
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
 
Moderatörün son düzenlenenleri:
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.
 
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.

1600860099575.png
ÇÖZÜLDÜ İKONU
 
Geri
Üst