Koddaki hatanın nedeni nedir?

[emk35]

aşağıdaki kodda bir yanlış var ama bir türlü bulamadım yardım edebilecek varsa çok sevinirim


.
.
.
If Sheets("PERSONEL BİLGİLERİ").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "s1.B2:R" & s1.[A65536].End(3).Row
End If
.
.
.


kodun yukarıki bölümünde s1 deyimi, personel bilgileri sayfası olarak tanıtılmıştı...

 

[apocalyt]

If Sheets("PERSONEL BİLGİLERİ").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = s1.range("B2:R" & s1.[A65536].End(3).Row)
End If
şeklinde dener misiniz..

 

[emk35]

ilginden dolayı teşekkür ederim apocalyt ama yazdığınız kodla type mismach diye hata verdi...

 

[emk35]

If Sheets("PERSONEL BİLGİLERİ").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "PERSONEL BİLGİLERİ!B2:R" & [PERSONEL BİLGİLERİ!A65536].End(3).Row
End if



kodun aslı bu şekilde ama sayfa s1 olarak tanımlandığı için yukarıdaki 1. mesajımdaki gibi yazdım ama o da tutmadı...

 

[emk35]

var mı başka ilgilenen???

 

[Hüseyin]

Bu forumda başlığı "yardım" olan bir konu ile fazla ilgilenen olmayacaktır...

 

[ExcelF1]

Kolon sayınızda problem olabilir mi ? R'yi biraz öne çekerek deneyin. (Örneğin C yaparak deneyin.)

 

[emk35]

Bu forumda başlığı "yardım" olan bir konu ile fazla ilgilenen olmayacaktır...

haklısınız aslında ama herşey öğrenmeye dair.. bu sorunuma bir çözüm bulduğumda excel hakkında yeni bir şey daha öğrenmiş olacağım..

yine de başlık hatalı haklısınız...

 

[emk35]

Kolon sayınızda problem olabilir mi ? R'yi biraz öne çekerek deneyin. (Örneğin C yaparak deneyin.)

bu tavsiyenizi de ilk müseit olduğum anda deneyeceğim. inşillah işe yarar.. teşekkürler ilginize...

 

[izmo41]

merhaba,

cari alacak yaşlandırmalarıyla ilgili bir çalışması olan varsa yardımcı olabilirmi acaba?

 

[emk35]

If Sheets("PERSONEL BİLGİLERİ").Range("b2") = Empty Then
.RowSource = Empty
Else
.RowSource = "s1.B2" & s1.[A65536].End(3).Row
End If



ARKADAŞLAR... ExcelF1 arkadaşın tavsiyesinden yola çıkarak kodu yukarıdaki gibi yeniledim. sorun büyük ölçüde çözüldü..

tek bir sorun sorun kaldı bu kodu userformda listbox ta kullanırken listboxta seçtiğimiz veri sayfada bir alt satırda görünüyo.. yani lisbox ta son satır seçiliyken sayfada son dolu satırın altındaki boş satır seçili oluyo.. neden acaba?? İlgilenirseniz sevinirim..

 

[emk35]

Gerçi bu anlattığım sorun sitemizin ordinaryusları için iş bile değil ama lütfedip ilgilenirlerse tabi...

 

[emk35]

Listboxtan veri seçme konusunda sorunum hala devam ediyor...

listboxta seçtiğimiz veri sayfada bir alt satırda görünüyo.. yani lisbox ta son satır seçiliyken sayfada son dolu satırın altındaki boş satır seçili oluyor..

Bu konuda yardım edeceklere duacıyım..

 

[hımmmmmmmm]

ne yapmak istediğini bir bilsek...
aşağıdaki kotlar sana yol göstersin...

Set S = Sheets("Sayfa1")                                           'Sayfa Adını S yap
X = Trim(S.Range("B" + Trim(Rows.Count)).End(3).Row)   'B sütunu veri say

If S.Range("A2") = Empty Then                           'A2 boş ise listbox temiz
   ListBox1.RowSource = Empty
Else
   ListBox1.RowSource = "Sayfa1!B2:R" + X           'a2 dolu ise B-Rsut.göster
End If

mi demek istedin acaba!!!!

 

[emk35]

listbox'ta seçim......

Sn, hımmmmmmmmmm (m'ler fazla mı oldu saymadım..) İlginize teşekkürler...

1 numaralı msjımda gonderdiğim kodla alakalı sorunum kalmadı..
11 numaralı msjımda gönderdiğim düzeltme ile sorun çözüldü..


şimdiki sorunum şu:

listboxta seçtiğimiz veri sayfada bir alt satırda görünüyor.. yani lisbox ta son satır seçiliyken sayfada son dolu satırın altındaki boş satır seçili oluyor..

aslında dosya eklemem lazım ama şu an yapamıyoruim..

tecrübesini kullunuruk bu konu bana yardımcı olabileceklere şimdiden teşekkürler..

 

[hımmmmmmmm]

listboxun value değeri sıfırla başlar...
sayfa ise 1 ile başlar
sayfanın ilk satırına listboxla işlem yapmak istendiğinde value değeri +1 değeri ilave edilmeli...

sende ise ilgilli satırın bulunamaması hatta boş satırı bulması bu value değerine +2 ileve edilmesinden olabilir..

 

[emk35]

.RowSource = "s1.B2" & s1.[A65536].End(3).Row

kodun ilgili kısmı burası..
hata nerede çözemedim.

 

[emk35]

.RowSource = "s1.B2" & s1.[A65536].End(3).Row

kodun ilgili kısmı burası..
hata nerede çözemedim.

Yukarıda yazdığım kodda +2 ilave edilmiş kısmı neresi acaba...

 

[ExcelF1]

ListBox1.RowSource = "Sayfa1!B2:R" + X

 

[emk35]

Sorun çözülmüştür..
arkadaşlar yardımlarınızdan dolayı hepinize cok teşekkürler..

Artık Yardımlaşma nedir diye soranlara excel.web.tr diyorum...