Girilen bilgiye göre müteakip hücreleri kendi doldursun.

[harakikiri]

Ã?rnek dosyadaki;
sayfa 1 de ki "kaynak" bilgilerinden yararlanarak, sayfa 2 deki "hedef" hücrelerin kendi kendine doldurulabilmesini istiyorum.

Yaklaşık 1000 satırlık plaka bilgilerinin kullandığım ana tablodaki gerekli yerlerine "otomatik" olarak yerleştirilmesi benim işimi öyle bir kolaylaştıracak ki, inanamazsınız.

Ama asıl önemli olanı Bu uygulama sayesinde yeni bişeyler daha öğrenebilmiş olacağım.

Bilgi birikimleriyle paylaşımda bulunabilecek arkadaşlara teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa2 nin kod sayfasına kopyalayarak deneyin.

[vb:1:90fc375afb]Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("sayfa1")
On Error GoTo 10
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
sat = s1.[a1:a65536].Find(Target).Row
Target.Offset(0, 1) = s1.Cells(sat, 2)
Target.Offset(0, 2) = s1.Cells(sat, 3)
Exit Sub
10 MsgBox "YAZDIÐINIZ PLAKAYA AİT VERİ BULUNAMADI"
Target.Select
End Sub
[/vb:1:90fc375afb]

 

[SGM020]

Bir başka çözüm

 

[harakikiri]

Arkadaşlar ne kadar teşekkür etsen azdır. Bukadar kısa bir süre içinde tam 3 tane çözüm buldum. hepsinide kullanabiliyorum üstelik.
sağ olun..

 

[boranturk]

Sayın SGM020, göndermiş olduğunuz dosyanın içeriğini açarmısınız. Sanırım password uygulamışsınız...

 

[kombo]

Sn boranturk
Sn SGM020 'nin göndermiş olduğu dosyada şifre göremedim. Düşeyara formülü ile yapılmış güzel bir çalışma........