Eğer Komutunu Kullanma

[evrimb]

Merhaba;
Eğer komutu ile ilgili 2 sorum var;

D3 ile J1024 arasındaki rakamlar içinde 1000 kaç tane var görmek istiyorum. Yani L3 e 1000 yazdığım zaman D3 ile J1024 arasında kaçtane 1000 var bunu M3 e yazmasını istiyorum (100 tane ise 100 tane, 50 tane ise 50 tane gibi). Ama beceremedim.

Diğeri ise yine D3 ile J1024 arasındaki rakamlar içinde 300 olan satırları alt alta Sayfa 2 de sıralamasını istiyorum.

Yardımcı olursanız sevinirim. Teşekkürler..

 

[YUSUF44]

=EĞERSAY(D3:J1024;L3)

formülüyle L3'teki veriyi saydırabilirsiniz.

İkinci isteğiniz tam açık değil, bir örnek dosya paylaşırsanız iyi olur.

 

[evrimb]

Öncelikle çok teşekkür ederim. 1.sorumun yanıtını işledim.
2.soruma gelince şöyle ;
d3 ile j1024 arasında rakamlar mevcut.
örnek yazıyorum

Tarih d e f g h ı
16 Kasım 1996 385 115 2320 320 134 147
26 Kasım 1996 785 175 7820 385 235 544
28 Kasım 1996 185 167 7020 485 735 144
01 Aralık 1996 275 385 8820 3185 1235 544

385 yazdığım zaman
16 Kasım 1996 385 115 2320 320 134 147
26 Kasım 1996 785 175 7820 385 235 544
01 Aralık 1996 275 385 8820 3185 1235 544

şeklinde sonuç almak istiyorum.
çok teşekkür ederim.

 

[aerten]

Bunu kolayca yapmak için de önerim;
Tabloya yeni bir sütün ekleyip verileri bir karakter ile (Örn:";") birleştirmeniz. Ardından da bu birleştirmenin yapıldığı sütunda filtre ile ;385; 'i süzmeniz olacaktır.

Yine örnek dosyanın bu söylediklerimi anlaşılır ve örneklenebilir kılacağını unutmayınız.

dosya.tc, dosya.co, dosyayukleyin.com sitelerinden birine dosyanızı yükleyebilirsiniz.

 

[evrimb]

Merhaba,
http://s4.dosya.tc/server/36tuac/ornek_1.xlsx.html
örnek bir dosya gönderdim, sanırım bu anlaşılır olacaktır.
Teşekkür ederim.

 

[YUSUF44]

Öncelikle örnek dosyanıza Sayfa2 isimli bir sayfa ekleyiniz.

Aşağıdaki kodları bir modüle ekleyiniz.

Sayfa2'nin A1 hücresine aranacak değeri yazınız ve makroyu çalıştırınız:

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

sonsat = s1.Cells(Rows.Count, "B").End(3).Row
sonsut = s1.Cells(2, Columns.Count).End(xlToLeft).Column

eskisat = s2.Cells(Rows.Count, "B").End(3).Row
eskisut = s2.Cells(1, Columns.Count).End(xlToLeft).Column

uyarı = MsgBox("Sayfa2'deki eski evriler silinsin mi?" & Chr(10) & _
        "Evet derseniz Sayfa2'deki eski veriler silinecektir." & Chr(10) & _
        "Hayır derseniz yeni veriler Sayfa2'eki verilerin altına eklenecektir.", vbYesNo)
        
If uyarı = vbYes Then
    s2.Activate
    s2.Range(Cells(1, "B"), Cells(eskisat, eskisut)).ClearContents
    s1.Activate
    s1.Range(Cells(2, "B"), Cells(2, sonsut)).Copy s2.[B1]
End If
    
For satır = 3 To sonsat
    For sütun = 4 To sonsut
        If s1.Cells(satır, sütun) = s2.[A1] Then
            yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
            s1.Range(Cells(satır, "B"), Cells(satır, sonsut)).Copy s2.Cells(yeni, "B")
        End If
    Next
Next

[A1].Select
End Sub

 

[evrimb]

çok teşekkür ederim...

 

[evrimb]

Tekrar merhaba;
Modüle kodları eklemeye çalışıyorum fakat birtürlü sağdaki ekrana birşeyler yazma şansım olmuyor. sizce problem ne olabilir?

http://s5.dosya.tc/server/4teigv/Ekran_Resmi_2016-06-14_07.40.48.png.html

Teşekkür ederim...

 

[YUSUF44]

Böyle bir VBA düzenleyicisini ilk defa görüyorum. Mac olduğundan galiba. Yorumum yok maalesef.