- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Herkese Merhabalar,
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)
Aşağıdaki kodlar düzgün çalışmadı tüm çalışma sayfasında aktif çalışıyor
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 5000 Then Exit Sub
If Target.Row < 2 Or Target.Row > 5000 Then Exit Sub
For Each a In Sayfa1.Range("a2:a" & Sayfa1.Range("a65536").End(3).Row)
If a.Value Like Target.Value & "*" Then
Target.Value = a.Value
Exit Sub
End If
Next
End Sub
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)
Aşağıdaki kodlar düzgün çalışmadı tüm çalışma sayfasında aktif çalışıyor
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 5000 Then Exit Sub
If Target.Row < 2 Or Target.Row > 5000 Then Exit Sub
For Each a In Sayfa1.Range("a2:a" & Sayfa1.Range("a65536").End(3).Row)
If a.Value Like Target.Value & "*" Then
Target.Value = a.Value
Exit Sub
End If
Next
End Sub
