Range komutu ile başka sayfadan veri çekmek

[ofbayoglu]

Merhabalara Arkadaşlar oluşturduğum sistemde verileri çekerken örneğin cari verilerini seçerken alttaki komutu kullanıyorum. bu işlemle cari sekmesindeyken excel sayfasında verileri buluyor. fakat ana menü yada diğer sayfalardayken arama yaptığımda hata veriyor veriyi çekmiyor. safanın adı wsCari olarak Dimde kayıtlı. Range("A:A").Find(Aranan).Select bu şekilde yazdığımda çalışma sayfasının cari bölümünde olması gerekiyor. Başka sayfadayken burdan veri nasıl çekebilirim.

Aranan = InputBox("Aranan Değeri Giriniz", "Arama İşlemi")

Range("A:A").Find(Aranan).Select

sil_satır = ActiveCell.Row

TB1_Cari.Value = wsCari.Cells(sil_satır, 1)
TB1_Firma.Value = wsCari.Cells(sil_satır, 2)
TB1_Yetkili.Value = wsCari.Cells(sil_satır, 3)
TB1_Cep.Value = wsCari.Cells(sil_satır, 4)
TB1_Tel.Value = wsCari.Cells(sil_satır, 5)
TB1_Fax.Value = wsCari.Cells(sil_satır, 6)
TB1_email.Value = wsCari.Cells(sil_satır, 7)
TB1_Adres.Value = wsCari.Cells(sil_satır, 8)
TB1_İl.Value = wsCari.Cells(sil_satır, 9)
CB1_ödeme.Value = wsCari.Cells(sil_satır, 10)
TB1_Not.Value = wsCari.Cells(sil_satır, 11)

 

[ÖmerFaruk]

wsCari.Range("A:A").Find(Aranan).Select

 

[ofbayoglu]

wsCari.Range("A:A").Find(Aranan).Select

hocam o şekilde olmuyor çekmiyor

 

[Muzaffer Ali]

Aktif olmayan sayfada hücre seçimi yapılamaz.
Sayın @NexLEvel in yazdığı kod arananı bulsa bile hata verecektir.

Aktif olmayan sayfada hücre seçmenin bir mantığı nedir?

 

[ofbayoglu]

Aktif olmayan sayfada hücre seçimi yapılamaz.
Sayın @NexLEvel in yazdığı kod arananı bulsa bile hata verecektir.

Aktif olmayan sayfada hücre seçmenin bir mantığı nedir?

yapmak istediğim hücre seçimi aslında basit bir sipariş programı, mantığı şu şekilde 3 sayfa düşünün 1.sayfa sipariş giriş yeri 2.sayfa sipariş takip yeri. 3.sayfada siparişlerin üretim yeri 1.sayfadan girilen veriler sorunsuz şekilde kaydediliyor. 2.sayfa arka plan durumda, 3. sayfa ise üretim planlama bölümü üretilen ürünlerin tamamlandığını bu hücreden tamamlıyoruz. bu hücrede yaptığımızı değişikliğin aktif olması için mecbur değişikliği 2. sayfadan yapıyoruz. liste çoklaştığı zaman bulmak zor oluyor o yüzden üretim planlamaya attığımız satırları satır numaralarına göre çağırıp başka sayfada değişikliği gerçekleştirmemiz daha kolay oluyor. baika sayfada yapılan değişikliği makro ile yapmaya çalıştığımda ürünün prgram mantığında çalıştığını düşünürsek hiç excelde çalışmamış gibi kayıt değiştirmeyi istiyoruz. mantığı bu şekilde size ekte dosyada paylaşıyorum incelerseniz nedemek istediğim daha net şekilde görülecektir.

 

[Muzaffer Ali]

Aşağıdaki kod ile wsCari sayfasında arama yapıp verileri alabilirsiniz.

Sub test()
Dim Bul As Range
Set Bul = wsCari.Range("A:A").Find(Aranan)
MsgBox Bul.Offset(0, 1) 'Bulunan satırın B sütunundaki değeri verir.
MsgBox Bul.Offset(0, 2) 'Bulunan satırın C sütunundaki değeri verir.
End Sub

 

[ofbayoglu]

Hocam Çok Teşekkür ederim Harika oldu günlerdir çözemedim harikasınız, Emeğinize teşekkür ederim...

 

[ofbayoglu]

Aşağıdaki kod ile wsCari sayfasında arama yapıp verileri alabilirsiniz.

Sub test()
Dim Bul As Range
Set Bul = wsCari.Range("A:A").Find(Aranan)
MsgBox Bul.Offset(0, 1) 'Bulunan satırın B sütunundaki değeri verir.
MsgBox Bul.Offset(0, 2) 'Bulunan satırın C sütunundaki değeri verir.
End Sub

Hocam şöyle bi problemle karşılaşıyorum. bulduğum hücreyi ekrana mesaj olarak doğru geliyor ama hücrelere taşırken bi önceki satırı getiriyor. bunu nasıl düzeltebiliriz.

 

[Muzaffer Ali]

TB1_Cari.Value = wsCari.Cells(Bul, 1)

Yukarıdaki gibi olan kodlar aşağıdaki gibi olmalı.

TB1_Cari.Value = Bul.Offset(0, 1)