Tarihe göre bilgileri alt alta getirme

[yyhy]

Veri sayfasından verileri sol tarafta bulunan başlıklara göre tarihi değiştirdiğimde sıralanmasını istiyorum. Yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Makroyu değer değiştiricilere atayarak deneyiniz.
Geri kalan kodlamayı, siz yapabilirsiniz.

Sub kod()

Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Veri")
Set S2 = Sheets("Sorgu")
son1 = S1.[B65536].End(3).Row
son2 = 10

S2.Range("A10:H1000").ClearContents

For i = 2 To son1
If S1.Cells(i, "B") = S2.Cells(5, "G") Then

S2.Cells(son2, "B") = S1.Cells(i, "A")
S2.Cells(son2, "C") = S1.Cells(i, "C")
S2.Cells(son2, "D") = S1.Cells(i, "J")
[COLOR="Red"][B]S2.Cells(son2, "E") = S1.Cells(i, "Q")
[/B][/COLOR]son2 = son2 + 1

Else
End If

Next i
son1 = Empty
son2 = Empty
i = Empty
Set S1 = Nothing
Set S2 = Nothing
Application.ScreenUpdating = True
End Sub

. . .

 

[yyhy]

Sayın Hüseyin Çoban

Sayın Hüseyin Çoban makroyu uygulamaya çalıştım ama sayfada çalıştıramadım. Acaba aynı işlemi formulle yapabilir miyiz? Bu konuda yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Formül ile yapmada yardımcı olamam. Bilen arkadaşlar ilgilenecektir.
Çalıştıramadığınız dosyayı eklerseniz, kontrol edebilirim.

. . .

 

[yyhy]

Dosya ekleme.

Dosya ekte yardımcı olabilirseniz memnun kalırız.

 

[Emir Hüseyin Çoban]

. . .

Ektedir.
Girilen tarihte veri yoksa, liste boş olacaktır. Tablonuza göre 21.09.2012 tarihini deneyiniz.

. . .

 

[yyhy]

Sayın Hüseyin Çoban

Sayın Hüseyin Çoban tarih bölümünü duruşma tarihi olan "K" sütunundan almak istersek acaba kod bölümünde nereyi değiştirmemiz gerekir. Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

S2.Cells(son2, "h") = S1.Cells(i, "k")

Bu kodlar ile H sütununa K sütununda veri alıyor.
Kodlar müzakere tarihine göre çalışıyor. Duruşma gününe göremi çalıştırmak istiyorsunuz.

If S1.Cells(i, "[COLOR="Red"][B]K[/B][/COLOR]") = S2.Cells(5, "G") Then

. . .

 

[yyhy]

Sayın Hüseyin Çoban

Sayın Hüseyin Çoban yardımlarınızla güzel bir çalışma oldu. Diğer kalan bölümleri de sizin verdiğiniz kodlara bakarak çözdüm. Tek bir ayrıntı kaldı ama buna nasıl çözüm buluruz. Gelen listeyi temizlemek için yani B10 hücresinden başlayarak H10 hücresine kadar olan satır ve aşağıya doğru inen satırları tek tuşla temizlemek için acaba kod ne yazabiliriz.

 

[muygun]

Merhaba;
Syn. Hüseyin Çoban makrolarla sorunu çözmüş ama İşlevlerle çözüm alternatif olsun.
İyi çalışmalar.

 

[Emir Hüseyin Çoban]

. . .

Sayın Hüseyin Çoban yardımlarınızla güzel bir çalışma oldu. Diğer kalan bölümleri de sizin verdiğiniz kodlara bakarak çözdüm. Tek bir ayrıntı kaldı ama buna nasıl çözüm buluruz. Gelen listeyi temizlemek için yani B10 hücresinden başlayarak H10 hücresine kadar olan satır ve aşağıya doğru inen satırları tek tuşla temizlemek için acaba kod ne yazabiliriz.

Kodlar bu işlemi yapıyor zaten.

S2.Range("A10:H1000").ClearContents

Kodlara bir ilave yapmanıza gerek yok. Eklediğim dosyada son hali mevcut.

. . .

 

[yyhy]

Teşekkürler

Sayın Hüseyin Çoban ve M. Uygun'a teşekkür ederim. İyi günler iyi çalışmalar.