Aynı isimli kayıt girildiğinde Kodu otomatik olarak yazması

[teksen]

Arkadaşlar merhaba,

Ekteki dosyada A sütununa yazdığım ilk 6 satırın karşılığında B sütununa Kodları kendim yazdım

Daha sonra A sütununa tekrar aynı isimi verdiğim zaman karşılığına onun kodunu nasıl yazdırabiliriz acaba?

Şimdiden teşekkür ederim

Herkese iyi çalışmalar.

 

[ceyrek]

Dosyanız ektedir.

 

[teksen]

Teşekkür ederim

 

[Recep İpek]

Eğer aynı işlemi makrolar ile yapmak istiyorsanız aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.
Burada ilk girilen değerin karşısındaki veri alınır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim alan As Range
Set alan = [a1:a100]
If Intersect(Target, alan) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value=Empty
Set bul = alan.Find(Target, LookAt:=xlWhole)
If Not bul Is Nothing Then
Target.Offset(0, 1).Value = bul.Offset(0, 1).Value
End If
Set bul = Nothing
Set alan = Nothing
End Sub

 

[byfeat]

Verİler 2 Satirdan Fazla İse ?

Eğer aynı işlemi makrolar ile yapmak istiyorsanız aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.
Burada ilk girilen değerin karşısındaki veri alınır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim alan As Range
Set alan = [a1:a100]
If Intersect(Target, alan) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value=Empty
Set bul = alan.Find(Target, LookAt:=xlWhole)
If Not bul Is Nothing Then
Target.Offset(0, 1).Value = bul.Offset(0, 1).Value
End If
Set bul = Nothing
Set alan = Nothing
End Sub

Sayın R.İpek
yazdığınız kod tam istediğim gibi çalışıyor
girmek istediğimiz veriler 2 sütundan fazla ise enaz 10 sütun gibi
yandaki verileri nasıl yazdırabiliriz bu kod üzerinde oynamalar yaptım.
Sadece herhangi bir sütunu yazdırabildim.
c sütunu liste olacak isim seçilince D+E+F deki verilerin aktarılması için
+3 sütun + 4 sütun + 5 sütun +....... gibi sütun eklemek istersem, nasıl bir kod eklemeliyiz?
Sorum hemen hemen aynı olduğundan yeni başlık açmadım.
teşekkürler.

 

[Recep İpek]

If Not bul Is Nothing Then
Target.Offset(0, 1).Value = bul.Offset(0, 1).Value
End If

satırına

If Not bul Is Nothing Then
Target.Offset(0, 1).Value = bul.Offset(0, 1).Value
[COLOR=blue]Target.Offset(0, 2).Value = bul.Offset(0, 2).Value[/COLOR]
[COLOR=blue]Target.Offset(0, 3).Value = bul.Offset(0, 3).Value[/COLOR]
[COLOR=blue]Target.Offset(0, 4).Value = bul.Offset(0, 4).Value[/COLOR]
[COLOR=#0000ff]'...................[/COLOR]
End If

gibi ilaveler yapabilirsiniz.

Veya daha kısa olarak

If Not bul Is Nothing Then
For i = 1 To 10
Target.Offset(0, i).Value = bul.Offset(0, i).Value
Next i
End If

 

[byfeat]

Bu kadar hızlı cevap için ne kadar
teşekkür etsem azdır.
Eline, Emeğine sağlık üstad.
sevgilerimle

 

[Recep İpek]

Önemli değil.İşinize yaradığına bende sevindim.