Çözüldü Gizli sayfadan Listbox'a alınan veriden Texbox'a aktarımda hata ?

[mars2]

İyi Günler;

Çalışma kitabımındaki "adres" sayfası gizle durumda, Usreform üzerinde bulunan listbox1'e buradan veri aktarılmaktadır. aktarılan verilerden herhangi birini Texxbox'a aktarmak istediğimde aşağıdaki satırda kod hatası vermektedir. Bu sorunun sebebi ne olabilir ve nasıl çözebiliriz.

adres sayfası herzaman gizli durumda bulunmaktadır.

satno = Sheets("adres").Cells(1, "j") * 1
Sheets("adres").Range("c" & satno).Select

 

[aeGNoR]

İyi Günler;

Çalışma kitabımındaki "adres" sayfası gizle durumda, Usreform üzerinde bulunan listbox1'e buradan veri aktarılmaktadır. aktarılan verilerden herhangi birini Texxbox'a aktarmak istediğimde aşağıdaki satırda kod hatası vermektedir. Bu sorunun sebebi ne olabilir ve nasıl çözebiliriz.

adres sayfası herzaman gizli durumda bulunmaktadır.

satno = Sheets("adres").Cells(1, "j") * 1
Sheets("adres").Range("c" & satno).Select

aşağıdaki satır 0 sonucunu döndürüyor çünkü. 0 numaralı satırı seçmeye çalışması gibi bir şey oluşuyor;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bunun çözümü aşağıdaki gibi olur;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Fakat burada şöyle bir sıkıntı var, satno düzenlenmiş hali ile sürekli 1 değeri döndürecek. Yönteminizde bir yerlerde hata olmalı.

 

[mars2]

Sayın aeGNoR;​

Cevabınız için teşekkürler, ancak

aşağıdaki gibi Sheets("adres").Range("c" & satno).Select satırında hata vermektedir.

 

[askan]

eğer ki J1 hücresinden değer alıyorsanız şu şekilde deneyin :
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

sayfa gizli ise neden select ile hücreyi seçmeye çalışıyorsunuz?

 

[mars2]

Sayın halily;

Konu hakkında farklı çözüm ve örnek bulunması halinde herzaman yardımlarınızı beklenmektedir.

 

[halily]

amacınızı bilmeden nasıl yardım edebilirim ki?
yanılıyor olabilirim ama select'in kullanılabilmesi için sayfanın gizli olmaması gerek yani en azından ben öyle biliyorum
select'in neden kullanıldığını söylerseniz yardımcı olmaya çalışırım

 

[Refaz]

satno = Sheets("adres").Cells(1, "j") * 1

Son satır numarası ise alttaki gibi deneyin.j stununun son boş hücre satır no bulur.

satno = Sheets("adres").Cells(rows.count, "j").end(3).row +1

 

[mars2]

Sayın Haliky;

Adres sayfasındaki verileri Listbox1'e aktarıp, Listbox1'e aktarılan verilerden isime ait bilgileri textboxlara aktarmak ve gerekli düzeltme bulunması halinde düzeltmeleri yapmak.

Diğer taraftan yukarıda belirttiğim gibi, belirlenen ismi seçmek için kullanılan Sheets("adres").Range("c" & satno).Select satırı hata verdiğinden hatanın giderilmesi için

 

[halily]

peki Sheets("adres").Range("c" & satno).Select ile seçtiğiniz hücreye ne yapacaksınız?
o hücreyi seçmezseniz ne olur?
ilgili hücrenin adresi forma yada modül değişkenine kaydedilip o bilgi kullanılsa sorun çıkar mı?
ve neden örnek dosya ekleyip onun üzerinde açıklama yapmıyorsunuz?

 

[mars2]

o hücreyi seçmezseniz ne olur? - Herhangi bir şey olmaz
ilgili hücrenin adresi forma yada modül değişkenine kaydedilip o bilgi kullanılsa sorun çıkar mı? - Hayır
ve neden örnek dosya ekleyip onun üzerinde açıklama yapmıyorsunuz? - Sorunun örnek dosya eklemeden de çözülebileceği düşüncesi ile

 

[halily]

o hücreyi seçmezseniz ne olur? - Herhangi bir şey olmaz

o zaman select olan satırı silin

 

[mars2]

Teşekkürler.