Farklı sayfadan veriyi Hücre içi yazdıkça tamamlat

[wesdesa]

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

 

Departman Adına Göre Veri Raporlama

Userform TextBox TextBox TextBox görünme

[ExcelDepo]

Dosyanız olmadığı için ne olduğunu yorumlamak zor.
Eğer sadece sayfa2'nin A sütununda çalışmasını istiyorsanız, If Target.Column = 1 Then baş tarafa şeklinde bir kod ekleyin.

 

[ycicek]

Sanırım Sn. @wesdesa 'nın örnek dosyası paylaştığım şekilde.

 

[Ömer BARAN]

@wesdesa

Veri kaynağı olan Cari listesi alanını fareyle seçip (konu açılış mesajında Sayfa1'deki A2:A100 diye belirttiğiniz alan),
bu alan seçiliyken formül çubuğunun en solunda yer alan alana, liste yazıp ENTER tuşuna basın ( AD TANIMLAMASI yapılmış oldu).

Ardından elle veri girişi yaparak otomatik tamamlama istediğiniz sayfanın adına fareyle sağ tıklayıp
KOD GÖRÜNTÜLEyi seçin, karşınıza gelecek VBA ekranında sağdaki boş alana da aşağıdaki kodu yapıştırın.

Sayfa2'de, A2:A200 alanında cari isimlerinden herhangi birinin birkaç harfini yazıp ENTER tuşuna basınca istenilen işlem gerçekleşir.

Dikkat: Elle yazılan harflerle başlayan 1'den fazla cari adı varsa ilkinin adıyla otomatik tamamlama gerçekleşir.
Yani isabetli işlem için elle yazılacak şeylerin yeterli uzunlukta olması gerekir.
Zaten kendi verdiğiniz kod da ilk eşleşen değeri buluyor durumdaydı.

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

 

[wesdesa]

@wesdesa

Veri kaynağı olan Cari listesi alanını fareyle seçip (konu açılış mesajında Sayfa1'deki A2:A100 diye belirttiğiniz alan),
bu alan seçiliyken formül çubuğunun en solunda yer alan alana, liste yazıp ENTER tuşuna basın ( AD TANIMLAMASI yapılmış oldu).

Ardından elle veri girişi yaparak otomatik tamamlama istediğiniz sayfanın adına fareyle sağ tıklayıp
KOD GÖRÜNTÜLEyi seçin, karşınıza gelecek VBA ekranında sağdaki boş alana da aşağıdaki kodu yapıştırın.

Sayfa2'de, A2:A200 alanında cari isimlerinden herhangi birinin birkaç harfini yazıp ENTER tuşuna basınca istenilen işlem gerçekleşir.

Dikkat: Elle yazılan harflerle başlayan 1'den fazla cari adı varsa ilkinin adıyla otomatik tamamlama gerçekleşir.
Yani isabetli işlem için elle yazılacak şeylerin yeterli uzunlukta olması gerekir.
Zaten kendi verdiğiniz kod da ilk eşleşen değeri buluyor durumdaydı.

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

çok teşekkür ederim herkese sorun çözüldü...

 

[Ömer BARAN]

Nasıl çözüldüğü anlaşılmıyor.
-- benim verdiğim cevap ile çözülmüşse, verdiğim kod cevabının sağındaki ONAY İŞARETİne tıklamanız,
-- sorunu/ihtiyacı başka şekilde çözmüşseniz, elde ettiğiniz çözümü paylaşmanız,
yerinde olur.

Böylece benzer ihtiyacı/sorunu olan diğer forumdaşlarımız da yararlanmış olur.
Zaten forum bunun için var. Amaç sadece konu sahibinin sorununun çözülmesi değil, bilgi paylaşımı.