[ÇÖZÜLDÜ] Seçilen Tarihdeki Değerler..!

[tactless]

ekte gösterdiğim gibi istediğim seçilen tarihdeki değerlerin sol tarafdaki tabloya gelmesi ekte gösterdiğim gibi. yardımlarınız için şimdiden tşkler...

 

[Necdet]

Merhaba,

Private Sub ComboBox1_Change()
On Error GoTo Son
Set s1 = Sheets(ComboBox1.Value)
Dim i, j, Adet As Long
j = 2
Range("A3:D28").ClearContents
For i = 3 To s1.[A65536].End(3).Row - 1
    If s1.Cells(i, "B") <> "" Or _
       s1.Cells(i, "C") <> "" Or _
       s1.Cells(i, "D") <> "" Then
            j = j + 1
            Adet = Adet + 1
            Cells(j, "A") = s1.Cells(i, "A")
            Cells(j, "B") = s1.Cells(i, "B")
            Cells(j, "C") = s1.Cells(i, "C")
            Cells(j, "D") = s1.Cells(i, "D")
    End If
Next i
Range("A3:D28").Sort Key1:=[A3]
MsgBox Adet & " Kayıt Aktardım...."
Son:
End Sub

Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 6 To [P65536].End(3).Row
    ComboBox1.AddItem Cells(i, "P")
Next i
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun, fonksiyonlarla yapılan çalışma ektedir..

.

 

[tactless]

ya sizler birer harikasınız... çok çok tşkler...

 

[tactless]

ek soru

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz..

.

 

[tactless]

Merhaba,

Örnek dosyayı incelermisiniz..

.

hocam çok tşk ederim tamamdır peki benim hatam nerdeymiş ???

 

[Ömer]

hocam çok tşk ederim tamamdır peki benim hatam nerdeymiş ???

E4 hücresindeki formül,

=EĞER(SATIR(E1)>$R$2;"";İNDİS(R:R;KAÇINCI(KÜÇÜK(T:T;SATIR(E1));[COLOR="Red"]U:U[/COLOR];0);[COLOR="red"]SÜTUN(E1)[/COLOR]))

Doğrusu,

=EĞER(SATIR(E1)>$R$2;"";İNDİS(R:R;KAÇINCI(KÜÇÜK(T:T;SATIR(E1));[COLOR="Red"]T:T[/COLOR];0);[COLOR="red"]1[/COLOR]))

Kaçıncı fonksiyonunda aranan dizi T sütunu dur fakat siz U sütunu olarak yazmışsınız. İndis R:R dizisinde aranan sütun 1. sütundur fakar siz SÜTUN(E1) yazarak olmayan 5. sütunu aratmışsınız, eğer indis R:V olup bizim işlem yapmak istediğimiz sütun V sütunu olsaydı SÜTUN(E1) yani 5 olarak kullanabilirdik.

F4,G4,H4 hücrelerindeki formül F4 için,

=EĞER($[COLOR="red"]A[/COLOR]4="";"";DÜŞEYARA($A4;DOLAYLI($J$7&"![COLOR="red"]A4:D30[/COLOR]");[COLOR="red"]SÜTUN(F1)[/COLOR];0))

Doğrusu,

=EĞER($[COLOR="red"]E[/COLOR]4="";"";DÜŞEYARA($E4;DOLAYLI($J$7&"![COLOR="red"]E4:H30[/COLOR]");[COLOR="red"]SÜTUN(B1)[/COLOR];0))

Bakılan veri E4 olduğu için A4="" ise değil E4="" ise kullanılmalıydı.

Sayfalarda bakılan aralık yan tablodaki A4: D30 aralığı değil E4:H30 aralığıdır,Düşeyarada sütun indis sayısı SÜTUN(F1) yani 6 değil SÜTUN(B1) 2 olması gerekirdir, burada SÜTUN(B1) kullanmamdaki neden formülü yan hücrelere kopyalarken 2,3,4 şeklinde artmasından dolayıdır, G4 ve H4 de kopyaladıktan sonra manuel düzeltmemek için bu şekilde yazılmıştır..

 

[tactless]

anladım hocam tşk ederim. daha çok yolum var anlaşılan şimdi bakmadan tekrar yapacağım. öğreneceğim bu işi hiç kaçarı yok.

tekrardan tşkler...