Tarihleri ayrı sayfada göstermek

[1903emre34@gmail.com]

Merhaba,
D6 hücresindeki firma ismi
Merhaba,
D6 hücresindeki firma ismi yazdığım zaman, sayfa1'deki tarihleri dört satır ve küçükte büyüğe sıralamak istedim, kodu çalıştırdığım zaman değişiklik olmadı, ,istenen sarı hücreli boyanmıştır.
yazdığım zaman, sayfa1'deki tarihleri dört satır ve küçükte büyüğe sıralamak istedim, kodu çalıştırdığım zaman değişiklik olmadı, ,istenen sarı hücreli boyanmıştır.

http://s3.dosya.tc/server16/5wvux6/TARIH_1.zip.html

 

[metehan8001]

Merhaba,
D6 hücresindeki firma ismi
Merhaba,
D6 hücresindeki firma ismi yazdığım zaman, sayfa1'deki tarihleri dört satır ve küçükte büyüğe sıralamak istedim, kodu çalıştırdığım zaman değişiklik olmadı, ,istenen sarı hücreli boyanmıştır.
yazdığım zaman, sayfa1'deki tarihleri dört satır ve küçükte büyüğe sıralamak istedim, kodu çalıştırdığım zaman değişiklik olmadı, ,istenen sarı hücreli boyanmıştır.

http://s3.dosya.tc/server16/5wvux6/TARIH_1.zip.html

Dosyanız ektedir.

http://s7.dosya.tc/server7/izkcti/Tarih_exceldepo.xlsm.zip.html

 

[ÖmerBey]

Merhaba,
Sayfa2'ye yazdığınız firma isminin sonunda 1 tane boşluk karakteri var. Bu sebepten olmuyor.
Bir de 4 satır olacak şekilde bir tablo istiyorsanız ilgili satrı şu şekilde düzenleyiniz:If Satir > 10 Then

 

[1903emre34@gmail.com]

Dosyanız ektedir.

http://s7.dosya.tc/server7/izkcti/Tarih_exceldepo.xlsm.zip.html

İlginiz için teşekkürler, dört'er dört satır şeklinde düzenleyecek şeklinde yapabilir miyiz*

If Satir > 10 Then

satırı değiştirdim, ama tarihler gelmedi

 

[ÖmerBey]

Sayın Emre,
Ben yukarıdaki mesajı sizin paylaştığınız dosya için yazmıştım, değişikliği de o dosyaya göre belirttim. Sizin paylaştığınız dosyada kullandığınız kodlar zaten çalışıyor ama yazdığınız firma adı hatalı demek istemiştim.

 

[1903emre34@gmail.com]

Evet, haklısınız, onu atlamışım,

If Satir > 10 Then yaptığımda, 6'li şeklinde tarihleri listeliyor, 4'li şeklinde şeklinde olması değişiklik yapabilir miyiz?

Sub Düğme2_Tıklat()
Dim S1 As Worksheet, S2 As Worksheet
Dim Firma As String, Son As Long, Veri As Range
Dim Satir As Long, Sutun As Integer

Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

Firma = UCase(Replace(Replace(S2.Range("D6").Value, "ı", "I"), "i", "İ"))
Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
S2.Range("D7:L12").ClearContents
Satir = 7
Sutun = 4

For Each Veri In S1.Range("B2:B" & Son)
If UCase(Replace(Replace(Veri.Value, "ı", "I"), "i", "İ")) = Firma Then
S2.Cells(Satir, Sutun) = Veri.Offset(0, -1).Value
Satir = Satir + 1
If Satir > 10 Then
Satir = 7
Sutun = Sutun + 1
End If
End If
Next

S2.Cells.EntireColumn.AutoFit

Set S1 = Nothing
Set S2 = Nothing

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ÖmerBey]

Değişikliği yaptığınızda aslında 4 satır yazdırıyorsunuz, fakat ilk önce eski kodu çalıştırdığınız için 6 satır veri oluştu. Orada gördükleriniz önceki veriler. Temizleme kodunuz da L12'ye kadar sildiği için alt kısım hep kalıyor. El ile sayfayı temizleyip kodu yeniden çalıştırırsanız 4 satır olduğunu göreceksiniz.

 

[Ziynettin]

Merhaba,

Aranan firmaya göre sarı alanda mükerrer yazdırılmış. Sonuç mükerrer ise kod.

Sub benzersiz()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
    a = S1.Range("A2:B" & S1.Cells(Rows.Count, 1).End(3).Row).Value
    sut = Application.RoundUp(UBound(a) / 4, 0)
    Set d = CreateObject("scripting.dictionary")
    Firma = UCase(Replace(Replace(S2.Range("D6").Value, "ı", "I"), "i", "İ"))
    c = 1
    ReDim b(1 To 4, 1 To sut)
    For i = 1 To UBound(a)
        If a(i, 2) = Trim(Firma) Then
            If Not d.exists(a(i, 1)) Then
                say = say + 1
                d(a(i, 1)) = say
                If say > 4 Then
                    say = 1
                    c = c + 1
                End If
                b(say, c) = Format$(a(i, 1))
            End If
        End If
    Next i
    S2.[D7].Resize(4, sut) = b
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Ziynettin hocam, 1 nolu mesajda dosya çalıştı tam istediğim gibi ,orginal dosya uygıladığımda bazı aylar çıkmadı sarı hücreler tarihler çıkmadı.

 

[Ziynettin]

Firma adlarını aynı yazılmamış olabilir mi? kontrol ediniz.

 

[1903emre34@gmail.com]

Firma adlarını aynı yazılmamış olabilir mi? kontrol ediniz.

Teşekkürler,