Sutunda veriyi bulup yazma

[Lyon09]

Selam kusura bakmayın cozemedım bunu. sıte oncelıkle cok ıyı.. helal olsun... tbrkler aga... sımdıden tesekkur ederım. excelde soru su:

A sutunu B sutunu C sutunu D sutunu
1 b 3 5
2 a 5 8
3 c 2 1
4 a 8
5 d 4
6 a 1

tablodaki degerlerde a olan degerlerı bulup sırayla yazması nasıl oluyor? a yazan hucrenın karsılıgındaki değerleri alıp baska sutuna SIRAYLA yazması. duseyara formulunu kullandım ancak. sonraki satıra nasıl sonrakı degerı atayacak?

 

[bzace]

Sayın Lyon09,

Düşeyara ile ilk karşılaştığı veriyi alacaktır.
Şöyle bir şeymi istiyor sunuz?
E1 Hücresine A yazdım.
F1'e C sütunundaki değer,G1 hücresine D sütunundaki değer gelsin.

Yada E1 hücresine A yazıp A-D aralığındaki tüm A'lar mı listelensin ?

 

[Lyon09]

abi şimdi ben olayı anlatayım. bır sutundaki tum a degerlerını bulup, a degerlerının karsısındakı degerlerı alt alta baska bır hucreye sıralasın

 

[Lyon09]

A sutunu-------B sutunu-------C sutunu-------D sutunu
1--------------b--------------3--------------5
2--------------a--------------5--------------8
3--------------c--------------2--------------1
4--------------a--------------8
5--------------d--------------4
6--------------a--------------1

 

[Lyon09]

Sayın Lyon09,

Düşeyara ile ilk karşılaştığı veriyi alacaktır.
Şöyle bir şeymi istiyor sunuz?
E1 Hücresine A yazdım.
F1'e C sütunundaki değer,G1 hücresine D sütunundaki değer gelsin.

Yada E1 hücresine A yazıp A-D aralığındaki tüm A'lar mı listelensin ?

A sutunu-------B sutunu-------C sutunu-------D sutunu
1--------------b--------------3--------------5
2--------------a--------------5--------------8
3--------------c--------------2--------------1
4--------------a--------------8
5--------------d--------------4
6--------------a--------------1

 

[Lyon09]

Yok mu bu sorumu cevaplayacak olan kişi?

 

[bzace]

Şu şekilde denermisiniz.
Sayfa1 A2-D aralığınıza verilerinizi giriniz.(1. satır başlıklarınız olsun)
Sayfa1 E1 hücresine listelenmesi istediğiniz verilerinizi giriniz (örnek "a")

Sub Kopyala()
    Dim i As Integer
    Sayfa2.Range("A2:D65536").ClearContents
    For i = 2 To Range("B65536").End(3).Row
        If Cells(i, "B") = Range("E1") Then
        Range("A" & i & ":D" & i).Copy Sayfa2.Range("A65536").End(3)(2, 1)
        End If
    Next
End Sub

bir Modül'ün içerisine yazınız.
Çalışma mantığı;Sayfa1 E1 hücresindeki değere göre A2-D aralığındaki B sütunundaki değerlere göre Sayfa2 A2-D aralığına yapıştırır.

Dosya linki : http://s3.dosya.tc/server18/gmdSFW/liste.rar.html

 

[Lyon09]

abi ben makroyla yapmayı bilmiyorum. bunu nasıl nereye yazcam? anlamadım tam olarak!? sana numaramı versem bana cagrı at arayayım senı olmaz mı?

 

[Lyon09]

Şu şekilde denermisiniz.
Sayfa1 A2-D aralığınıza verilerinizi giriniz.(1. satır başlıklarınız olsun)
Sayfa1 E1 hücresine listelenmesi istediğiniz verilerinizi giriniz (örnek "a")

Sub Kopyala()
    Dim i As Integer
    Sayfa2.Range("A2:D65536").ClearContents
    For i = 2 To Range("B65536").End(3).Row
        If Cells(i, "B") = Range("E1") Then
            Sayfa2.Range("A65536").End(3)(2, 1) = Cells(i, "A")
            Sayfa2.Range("B65536").End(3)(2, 1) = Cells(i, "B")
            Sayfa2.Range("C65536").End(3)(2, 1) = Cells(i, "C")
            Sayfa2.Range("D65536").End(3)(2, 1) = Cells(i, "D")
        End If
    Next
End Sub

bir Modül'ün içerisine yazınız.
Çalışma mantığı;Sayfa1 E1 hücresindeki değere göre A2-D aralığındaki B sütunundaki değerlere göre Sayfa2 A2-D aralığına yapıştırır.

abi ben makroyla yapmayı bilmiyorum. bunu nasıl nereye yazcam? anlamadım tam olarak!? sana numaramı versem bana cagrı at arayayım senı olmaz mı?

 

[asimavi50]

Yok mu bu sorumu cevaplayacak olan kişi?

Ortada soru yok kardeşşşş; aşağıdaki linke xls örnek dosyanı yükle bakalım.Düşeyara senin işini görür, Kod daha iyi aslında ama neyse.


http://s3.dosya.tc/

 

[asimavi50]

Yok mu bu sorumu cevaplayacak olan kişi?

Aşağıdaki linkte örnek var, kendine uyarlamaya çalış;


http://s3.dosya.tc/server18/SymNHB/D__eyara.xlsx.html

 

[bzace]

#7 numaradaki bilgiler güncellendi.
Dosyanız da aynı mesaja eklendi.Oradan indirip bir deneyiniz.

 

[Lyon09]

Ortada soru yok kardeşşşş; aşağıdaki linke xls örnek dosyanı yükle bakalım.Düşeyara senin işini görür, Kod daha iyi aslında ama neyse.


http://s3.dosya.tc/

yolladım linki de;

http://s3.dosya.tc/server18/GIATl4/SORU.xlsx.html

 

[Lyon09]

sıralı bir listede bulunan bir değeri sırayla baska sutuna yazsın

 

[Lyon09]

http://s3.dosya.tc/server18/GIATl4/SORU.xlsx.html

 

[Lyon09]

bu arada konudan bagımsız bısey sorcam sıze.. bana bu komut hatalı dıyor. yanı bırden fazla degısken gırılmıs dıyor... kabul etmıyor...

EĞER(ESAYIYSA('PLANLAMA SON'!R5;'PLANLAMA SON'!A5;EĞER(ESAYIYSA('PLANLAMA SON'!R7;'PLANLAMA SON'!A7))))

 

[asimavi50]

Kardeş dosyan aşağıdaki linktedir.


http://www.dosya.tc/server24/bAnhcv/SORU_1_.xlsx.html

 

[Lyon09]

kardeş dosyan aşağıdaki linktedir.


http://www.dosya.tc/server24/banhcv/soru_1_.xlsx.html

arkadaş sen kralsın var ya ))) helal olsun...

 

[asimavi50]

arkadaş sen kralsın var ya ))) helal olsun...

Bir tane Kral tanıyorum, taçsız kral "METİN OKTAY" Mekânı cennet olsun inşALLAH.

:hey: