Farklı Sayfada Hücre içi yazı tamamlama

[wesdesa]

Merhabalar,

Aşağıdaki gibi bir kodum var, bu kod ile Sayfa1 'de yani aynı sayfada formül çalışıyor A:A1000 arası, benim yapmak istediğim ,Sayfa1 deki veriyi Sayfa2 çalıştırmak istiyorum (A2:A50).. Yani Sayfa1 deki Firma isimlerini Sayfa2 de belirttiğim sütundaki aralık da hücreye yazmaya başladığımda Sayfa1 deki veriye göre tamamlamasını istiyorum..

Teşekkür Ederim...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column > 1 Then Exit Sub
If Target.Row > 35 Then Exit Sub
For Each a In Range("a2:a" & Range("a65536").End(3).Row)
If a.Value Like Target.Value & "*" Then
Target.Value = a.Value
Exit Sub
End If
Next
End Sub

 

[ÖmerFaruk]

Kodları sayfa2 ye yazın
aşağıdaki satırlarda verdiğim değişikliği yapın.

If Target.Row > 35 Then Exit Sub
If TargetRow<2 or Target.Row > 50 Then Exit Sub

For Each a In Range("a2:a" & Range("a65536").End(3).Row)
For Each a In Worksheets("Sayfa1").Range("a2:a" & Worksheets("Sayfa1").Range("a65536").End(3).Row)

 

[wesdesa]

E

 

[wesdesa]

Kodları sayfa2 ye yazın
aşağıdaki satırlarda verdiğim değişikliği yapın.

If Target.Row > 35 Then Exit Sub
If TargetRow<2 or Target.Row > 50 Then Exit Sub

For Each a In Range("a2:a" & Range("a65536").End(3).Row)
For Each a In Worksheets("Sayfa1").Range("a2:a" & Worksheets("Sayfa1").Range("a65536").End(3).Row)

Hocam allah razı olsun,

Sub Worksheet_Change(ByVal Target As Range) ====== (KODU ÇALIŞTIRDIĞIMDA BURASI HATA VERİYOR NEREDE YANLIŞ YAPIYORUM.
On Error Resume Next
If Target.Row > 35 Then Exit Sub
If Target.Row < 2 Or Target.Row > 50 Then Exit Sub
For Each a In Range("a2:a" & Range("a65536").End(3).Row)
For Each a In Worksheets("Sayfa1").Range("a2:a" & Worksheets("Sayfa1").Range("a65536").End(3).Row)
If a.Value Like Target.Value & "*" Then
Target.Value = a.Value
Exit Sub
End If
Next
End Sub

 

[ÖmerFaruk]

Kod sayfanızın fotoğrafını paylaşır mısınız

 

[wesdesa]

Kod sayfanızın fotoğrafını paylaşır mısınız

hocam linkte bir sorun var sanırım resim ekleyemiyorum...

 

[wesdesa]

Kod sayfanızın fotoğrafını paylaşır mısınız

Hocam şöyle detaylandırayım;

Sayfa1 de A2:A100 arasında Cari hesap isimleri mevcut.. Sayfa2 de A2:A200 aralığında her hücreye bu cariyi çağırma istiyorum fakat ben hücre içine Cari Hesap adını yazmaya başladığımda aynı anda hücre içine tamamlasın istiyorum(Sayfa1 deki cari hesapların arasından)

Ne resim gönderebiliyorum nede dosyayı kusura bakmayın hocam... Link istiyor benden yanyana iki gönderme seçeneğide link istiyor

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column > 1 Then Exit Sub
If Target.Row > 35 Then Exit Sub
For Each a In Range("a2:a" & Range("a65536").End(3).Row)
If a.Value Like Target.Value & "*" Then
Target.Value = a.Value
Exit Sub
End If
Next
End Sub