Otomatik Doldurma,

[emre67z]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba,

Hücre içerisinde sicil numaraları yan yana yazmaktadır. Hücre içerisindeki sicillerin karşılıklarını hücrenin yanına aynı şekilde isim olarak yazdırabilir miyiz?

Teşekkür ederim,
Saygılarımla.

 

[leguminosea]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (18 satır). Giriş Yap

 

[emre67z]

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

Bu kodu görmek için giriş yapmanız gerekmektedir (18 satır). Giriş Yap

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

 

[leguminosea]

Dosyanız ekte

 

[emre67z]

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

 

[leguminosea]

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.

 

[cakarem]

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:

Bu kodu görmek için giriş yapmanız gerekmektedir (11 satır). Giriş Yap

 

[emre67z]

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:

Bu kodu görmek için giriş yapmanız gerekmektedir (11 satır). Giriş Yap

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

 

[cakarem]

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.

 

[emre67z]

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.

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

 

[cakarem]

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