Düşeyara komutu hk. yardım.

[cqners]

Hatalı Anlatım Silindi. Açıklayıcı Örnek Dosya Eklendi.

 

[cqners]

Hatalı Anlatım Silindi. Açıklayıcı Örnek Dosya Eklendi.

 

[Levent Menteşoğlu]

Bu kod ile ne yapmak istediğinizi açıklarmısınız.

 

[cqners]

Sn. LeventM bey,

Anasayfada T3:T1003 arası veri girdiğimde bu Sheets("Liste") a3:a1003 bakarak Sheets("Liste") sayfasındaki D,j sutunundaki veriyi Anasayfada U,V sutununa aktarmaktadır.
Ve
Anasayfada j3:j1003 arası veri girdiğimde bu Sheets("iletisim") a3:a1003 bakarak Sheets("iletisim") sayfasındaki B sutunundaki veriyi Anasayfada K sutununa aktarmaktadır.

Bilginize sunarım.

 

[cqners]

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo 10
Set s1 = Sheets("Liste")
If Intersect(Target, [t3:t1003]) Is Nothing Then Exit Sub
sat = s1.[a3:a1003].Find(Target).Row
Cells(Target.Row, "u") = s1.Cells(sat, "d")
Cells(Target.Row, "v") = s1.Cells(sat, "j")
Exit Sub
10 MsgBox "Yazılan İsim Bulunamadı."
Target.Select
End Sub


Ve

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo 11
Set s2 = Sheets("iletisim")
If Intersect(Target, [j3:j1003]) Is Nothing Then Exit Sub
sat = s2.[a3:a1003].Find(Target).Row
Cells(Target.Row, "k") = s2.Cells(sat, "b")
Exit Sub
11 MsgBox "Telefon Numarası Bulunamadı."
Target.Select

End Sub


Her ikiside ayrı ayrı çalışmakta aynı sayfada otomatik çalışması için birleştirince problem hata vermekte.

 

[cqners]

Örnek Dosyam Ektedir.

Merhaba; LeventM Bey


Örnek dosyam ektedir.


Saygılarımla.

 

[cqners]

Merhaba;

Kodlar ayrı ayrı çalışmaktadır. Birleştirince ilk kod aktif olmakta diyer komutlar ise çalışmamaktadır.
Düşeyaranın Makro modülü.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
Set s1 = Sheets("Liste")
Set s2 = Sheets("iletisim")
If Intersect(Target, [j:j,t:t]) Is Nothing Then Exit Sub
sut = Target.Column
If sut = 10 Then
sat = s2.[a1:a65536].Find(Target).Row
Cells(Target.Row, "k") = s2.Cells(sat, "b")
End If
If sut = 20 Then
sat = s1.[a1:a65536].Find(Target).Row
Cells(Target.Row, "u") = s1.Cells(sat, "d")
Cells(Target.Row, "v") = s1.Cells(sat, "j")
End If
Exit Sub
10 MsgBox "Arana isme ait veri bulunamadı."
Target.Select
End Sub

 

[cqners]

SN. LeventM Bey,

Harika,
Bilginize, Tecrübenize ve en önemlisi yardımcı olduğunuz için Teşekkürler.