fatura numarasına göre veri almak

[marlalı1]

arkadaşlar ekteki dosyayı incelermisiniz.FT NUMARASINA GÖRE verileri almak istiyorum.

 

[HASAN SATILMIS]

Cvben

ekteki dosyayı incelermisiniz

 

[İhsan Tank]

arkadaşlar ekteki dosyayı incelermisiniz.FT NUMARASINA GÖRE verileri almak istiyorum.

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub farura_no_61()
Dim ts, kaplan, trabzonspor, bordo
trabzonspor = MsgBox(Range("D1") & " Fatura Numaralı Bilgileri Aktarıyorum", _
vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Range("B4:C65536").ClearContents
kaplan = 4
Set ts = Sheets("Sayfa1").Range("A:A").Find(Range("D1"), , , xlWhole)
If Not ts Is Nothing Then
bordo = ts.Address
Do
Cells(kaplan, "B") = Sheets("Sayfa1").Cells(ts.Row, "B")
Cells(kaplan, "C") = Sheets("Sayfa1").Cells(ts.Row, "C")
kaplan = kaplan + 1
Set ts = Sheets("Sayfa1").Range("A:A").FindNext(ts)
Loop While Not ts Is Nothing And ts.Address <> bordo
End If
MsgBox Range("D1") & " Verilerini Aktardım", vbInformation, "Bitiş"
End Sub

 

[marlalı1]

bu kodu formülle nasıl yapabiliriz.

 

[İhsan Tank]

bu kodu formülle nasıl yapabiliriz.

Merhaba
B4 hücresine

=EĞER(SATIRSAY(B$4:B4)>EĞERSAY(Sayfa1!$A$2:$A$1000;$D$1);"";İNDİS(
Sayfa1!B$2:B$1000;KÜÇÜK(EĞER(Sayfa1!$A$2:$A$1000=$D$1;SATIR(Sayfa1!$A$2:$A$1000)
-SATIR(Sayfa1!$A$2)+1);SATIRSAY(B$4:B4))))

Formül dizi formülüdür.

Dizi Formülü Formül Hücreye Girildikten Sonra Enter Tuşuna Basmadan Ctrl+Shift+Enter Tuş Kombinasyonu İle Aktif Olmaktadır. Formülün Başında Ve Sonunda { } Bu İşaretler Çıkar Elle Eklediğiniz Takdirde Formül Hata Verir.

Formülde 1000 satır baz alınmıştır

1000 satır'ı değiştirmek için ctrl+h yapın aranan değere $1000 yeni değere $10000 yazın ve tümünü değiştir deyin.
$10000 olan yeri kendinize göre ayarlayınız.

Önemli Not : Veri aralığı arttrıkça dosyanız kasılacak ve işlem yapmayacaktır bilginize

 

[Mahir64]

Merhaba,

Eki İnceleyin

 

[Ayşavkı]

=EĞER(SATIRSAY(B$4:B4)>EĞERSAY(Sayfa1!$A$2:$A$1000;$D$1);"";İNDİS(
Sayfa1!B$2:B$1000;KÜÇÜK(EĞER(Sayfa1!$A$2:$A$1000=$D$1;SATIR(Sayfa1!$A$2:$A$1000)
-SATIR(Sayfa1!$A$2)+1);SATIRSAY(B$4:B4))))

Sayın İhsan Bey!! yazdığınız cevapları hayranlık ile takip etmekteyim yukarıda kullandığınız formüldeki KÜÇÜK,SATIR ve SATIRSAY fonksiyonlarının formül içerisindeki görevleri hakkında; vaktiniz var ise kısa bir izahatiniz olur ise minnettar olurum
Aynı ricam sayın Mahir içinde Geçerli olup saygılarımı arz ederim!!!

 

[İhsan Tank]

=EĞER(SATIRSAY(B$4:B4)>EĞERSAY(Sayfa1!$A$2:$A$1000;$D$1);"";İNDİS(
Sayfa1!B$2:B$1000;KÜÇÜK(EĞER(Sayfa1!$A$2:$A$1000=$D$1;SATIR(Sayfa1!$A$2:$A$1000)
-SATIR(Sayfa1!$A$2)+1);SATIRSAY(B$4:B4))))

Sayın İhsan Bey!! yazdığınız cevapları hayranlık ile takip etmekteyim yukarıda kullandığınız formüldeki KÜÇÜK,SATIR ve SATIRSAY fonksiyonlarının formül içerisindeki görevleri hakkında; vaktiniz var ise kısa bir izahatiniz olur ise minnettar olurum
Aynı ricam sayın Mahir içinde Geçerli olup saygılarımı arz ederim!!!

Merhaba
Bu formülü Sayın Ömer Hocadan (ç)almıştım. Elimden geldiğince açıklayayım.

=EĞER(SATIRSAY(B$4:B4)>

' Burada aşağıya doğru çektiğimizde B4 hücresi 1 karşılığını alır ve aşağıya doğru çekildiğinde numara artar

EĞERSAY(Sayfa1!$A$2:$A$1000;$D$1)

'Yukarıda satırsayın sayısı eğer ki eğersay2ın sayısını geçerse

;"";

'Boş Bırak

İNDİS(
Sayfa1!B$2:B$1000;

'Sayfa1 B2:B1000 aralığındaki karşılığı yaz.

KÜÇÜK(EĞER(Sayfa1!$A$2:$A$1000=$D$1;

' Burada ise eğer Sayfa1 A2:A1000 aralığındaki veri eşitse D1 hücresine dedik.

SATIR(Sayfa1!$A$2:$A$1000)
-SATIR(Sayfa1!$A$2)+1);

'Burada ise Sayfa1:A2:A1000 aralığından karşılığını bulmak için sayıma başlar bunduğunda yani eşit olduğunda formül karşılığını yazar.

SATIRSAY(B$4:B4))))

burada ise yukarıda anlattığım satırsay'ın küçük formülünde 1 veya hangi rakam ise karşılığı ise onu bulmaya yarar.

Umarım anlatabilmişimdir.

 

[Ayşavkı]

Merhaba Sayın İhsan bey!!! değerli vaktinizi ayırıp yaptığınız izahatler için şükranlarımı arz ederim,inanın bu tarz izahatler;siz ve sizin gibi değerli uzmanların verdiği cevaplar kadar makbule geçiyor.saygılar!!!

 

[İhsan Tank]

Merhaba Sayın İhsan bey!!! değerli vaktinizi ayırıp yaptığınız izahatler için şükranlarımı arz ederim,inanın bu tarz izahatler;siz ve sizin gibi değerli uzmanların verdiği cevaplar kadar makbule geçiyor.saygılar!!!

Saygılar bizden
:keyif: